clash-vhdl-0.7: primitives/CLaSH.Sized.Internal.Signed.json

[ { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.size#"
    , "type"      : "size# :: KnownNat n => Signed n -> Int"
    , "templateE" : "to_signed(~LIT[0],~SIZE[~TYPO])"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.pack#"
    , "type"      : "pack# :: KnownNat n => Signed n -> BitVector n"
    , "templateE" : "std_logic_vector(~ARG[1])"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.unpack#"
    , "type"      : "unpack# :: KnownNat n => BitVector n -> Signed n"
    , "templateE" : "signed(~ARG[1])"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.eq#"
    , "type"      : "eq# :: Signed n -> Signed n -> Bool"
    , "templateE" : "~ARG[0] = ~ARG[1]"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.neq#"
    , "type"      : "neq# :: Signed n -> Signed n -> Bool"
    , "templateE" : "~ARG[0] /= ~ARG[1]"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.lt#"
    , "type"      : "lt# :: Signed n -> Signed n -> Bool"
    , "templateE" : "~ARG[0] < ~ARG[1]"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.ge#"
    , "type"      : "ge# :: Signed n -> Signed n -> Bool"
    , "templateE" : "~ARG[0] >= ~ARG[1]"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.gt#"
    , "type"      : "gt# :: Signed n -> Signed n -> Bool"
    , "templateE" : "~ARG[0] > ~ARG[1]"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.le#"
    , "type"      : "le# :: Signed n -> Signed n -> Bool"
    , "templateE" : "~ARG[0] <= ~ARG[1]"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.minBound#"
    , "type"      : "minBound# :: KnownNat n => Signed n"
    , "comment"   : "Generates incorrect VDHL for n=0"
    , "comment2"  : "the quantification with signed gives the array an ascending index"
    , "templateE" : "signed'(0 => '1', 1 to ~LIT[0]-1 => '0')"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.maxBound#"
    , "type"      : "maxBound# :: KnownNat n => Signed n"
    , "comment"   : "Generates incorrect VDHL for n=0"
    , "comment2"  : "the quantification with signed gives the array an ascending index"
    , "templateE" : "signed'(0 => '0', 1 to ~LIT[0]-1  => '1')"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.+#"
    , "type"      : "(+#) :: KnownNat n => Signed n -> Signed n -> Signed n"
    , "templateE" : "~ARG[1] + ~ARG[2]"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.-#"
    , "type"      : "(-#) :: KnownNat n => Signed n -> Signed n -> Signed n"
    , "templateE" : "~ARG[1] - ~ARG[2]"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.*#"
    , "type"      : "(*#) :: KnownNat n => Signed n -> Signed n -> Signed n"
    , "templateE" : "resize(~ARG[1] * ~ARG[2], ~LIT[0])"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.negate#"
    , "type"      : "negate# :: KnownNat n => Signed n -> Signed n"
    , "templateE" : "-~ARG[1]"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.abs#"
    , "type"      : "abs# :: KnownNat n => Signed n -> Signed n"
    , "templateE" : "abs ~ARG[1]"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.fromInteger#"
    , "type"      : "fromInteger# :: KnownNat n => Integer -> Signed (n :: Nat)"
    , "templateE" : "resize(~ARG[1],~LIT[0])"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.plus#"
    , "type"      : "plus# :: Signed m -> Signed n -> Signed (1 + Max m n)"
    , "templateE" : "resize(~ARG[0],~SIZE[~TYPO]) + resize(~ARG[1],~SIZE[~TYPO])"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.minus#"
    , "type"      : "minus# :: Signed m -> Signed n -> Signed (1 + Max m n)"
    , "templateE" : "resize(~ARG[0],~SIZE[~TYPO]) - resize(~ARG[1],~SIZE[~TYPO])"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.times#"
    , "type"      : "times# :: Signed m -> Signed n -> Signed (m + n)"
    , "templateE" : "~ARG[0] * ~ARG[1]"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.quot#"
    , "type"      : "quot# :: Signed n -> Signed n -> Signed n"
    , "templateE" : "~ARG[0] / ~ARG[1]"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.rem#"
    , "type"      : "rem# :: Signed n -> Signed n -> Signed n"
    , "templateE" : "~ARG[0] rem ~ARG[1]"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.div#"
    , "type"      : "div# :: Signed n -> Signed n -> Signed n"
    , "templateD" :
"-- divSigned begin~IF ~AND[~ISVAR[0],~ISVAR[1]] ~THEN
~GENSYM[divSigned][0] : block
  signal ~GENSYM[quot_res][3] : ~TYP[0];
begin
  ~SYM[3] <= ~ARG[0] / ~ARG[1];
  ~RESULT <= ~SYM[3] - to_signed(1,~SIZE[~TYPO]) when ~ARG[0](~ARG[0]'high) = not (~ARG[1](~ARG[1]'high)) else
             ~SYM[3];
end block;~ELSE
~SYM[0] : block
  signal ~GENSYM[dividend][1] : ~TYP[0];
  signal ~GENSYM[divider][2] : ~TYP[1];
  signal ~SYM[3] : ~TYP[0];
begin
  ~SYM[1] <= ~ARG[0];
  ~SYM[2] <= ~ARG[1];
  ~SYM[3] <= ~SYM[1] / ~SYM[2];
  ~RESULT <= ~SYM[3] - to_signed(1,~SIZE[~TYPO]) when ~SYM[1](~SYM[1]'high) = not (~SYM[2](~SYM[2]'high)) else
             ~SYM[3];
end block;~FI
-- divSigned end"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.mod#"
    , "type"      : "mod# :: Signed n -> Signed n -> Signed n"
    , "templateE" : "~ARG[0] mod ~ARG[1]"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.toInteger#"
    , "type"      : "toInteger# :: Signed n -> Integer"
    , "templateE" : "resize(~ARG[0],~SIZE[~TYPO])"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.and#"
    , "type"      : "and# :: KnownNat n => Signed n -> Signed n -> Signed n"
    , "templateE" : "~ARG[1] and ~ARG[2]"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.or#"
    , "type"      : "or# :: KnownNat n => Signed n -> Signed n -> Signed n"
    , "templateE" : "~ARG[1] or ~ARG[2]"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.xor#"
    , "type"      : "xor# :: KnownNat n => Signed n -> Signed n -> Signed n"
    , "templateE" : "~ARG[1] xor ~ARG[2]"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.complement#"
    , "type"      : "complement# :: KnownNat n => Signed n -> Signed n"
    , "templateE" : "not ~ARG[1]"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.shiftL#"
    , "type"      : "shiftL# :: KnownNat n => Signed n -> Int -> Signed n"
    , "templateE" : "shift_left(~ARG[1],to_integer(~ARG[2]))"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.shiftR#"
    , "type"      : "shiftR# :: KnownNat n => Signed n -> Int -> Signed n"
    , "templateE" : "shift_right(~ARG[1],to_integer(~ARG[2]))"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.rotateL#"
    , "type"      : "rotateL# :: KnownNat n => Signed n -> Int -> Signed n"
    , "templateE" : "rotate_left(~ARG[1],to_integer(~ARG[2]))"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.rotateR#"
    , "type"      : "rotateR# :: KnownNat n => Signed n -> Int -> Signed n"
    , "templateE" : "rotate_right(~ARG[1],to_integer(~ARG[2]))"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.resize#"
    , "type"      : "resize# :: (KnownNat n, KnownNat m) => Signed n -> Signed m"
    , "templateE" : "resize(~ARG[2],~LIT[1])"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.truncateB#"
    , "type"      : "truncateB# :: KnownNat m => Signed (n + m) -> Signed m"
    , "templateD" :
"-- truncateB begin~IF ~ISVAR[1] ~THEN
~RESULT <= ~ARG[1](~LIT[0]-1 downto 0);~ELSE
~GENSYM[truncateB][0] : block
  signal ~GENSYM[s][1] : ~TYP[1];
begin
  ~SYM[1] <= ~ARG[1];
  ~RESULT <= ~SYM[1](~LIT[0]-1 downto 0);
end block;~FI
-- truncateB end"
    }
  }
]