CLaSH.Sized.Internal.Signed.json

[ { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.size#"
    , "type"      : "size# :: KnownNat n => Signed n -> Int"
    , "templateE" : "~SIZE[~TYPO]'sd~LIT[0]"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.pack#"
    , "type"      : "pack# :: KnownNat n => Signed n -> BitVector n"
    , "templateE" : "~ARG[1]"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.unpack#"
    , "type"      : "unpack# :: KnownNat n => BitVector n -> Signed n"
    , "templateE" : "~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 SV for n=0"
    , "templateE" : "{1'b1, {(~LIT[0]-1) {1'b0}}}"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.maxBound#"
    , "type"      : "maxBound# :: KnownNat n => Signed n"
    , "comment"   : "Generates incorrect SV for n=0"
    , "templateE" : "{1'b0, {(~LIT[0]-1) {1'b1}}}"
    }
  }
, { "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" : "~ARG[1] * ~ARG[2]"
    }
  }
, { "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" : "(~ARG[1] < ~LIT[0]'sd0) ? -~ARG[1] : ~ARG[1]"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.fromInteger#"
    , "type"      : "fromInteger# :: KnownNat n => Integer -> Signed (n :: Nat)"
    , "templateE" : "$signed(~ARG[1])"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.plus#"
    , "type"      : "plus# :: Signed m -> Signed n -> Signed (1 + Max m n)"
    , "templateE" : "~ARG[0] + ~ARG[1]"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.minus#"
    , "type"      : "minus# :: Signed m -> Signed n -> Signed (1 + Max m n)"
    , "templateE" : "~ARG[0] - ~ARG[1]"
    }
  }
, { "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] % ~ARG[1]"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.div#"
    , "type"      : "div# :: Signed n -> Signed n -> Signed n"
    , "templateD" :
"// divInt begin
wire ~SIGD[~GENSYM[quot_res][0]][0];
wire ~SIGD[~GENSYM[dividend][1]][0];
wire ~SIGD[~GENSYM[divider][2]][1];

// divide (rounds towards zero)
assign ~SYM[0] = ~ARG[0] / ~ARG[1];

// round toward minus infinity
assign ~SYM[1] = ~ARG[0];
assign ~SYM[2] = ~ARG[1];
assign ~RESULT = (~SYM[1][~SIZE[~TYPO]-1] == ~SYM[2][~SIZE[~TYPO]-1]) ? ~SYM[0] : ~SYM[0] - ~SIZE[~TYPO]'sd1;
// divInt end"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.mod#"
    , "type"      : "mod# :: Signed n -> Signed n -> Signed n"
    , "templateD" :
"// modSigned begin
wire ~SIGD[~GENSYM[rem_res][0]][0];
wire ~SIGD[~GENSYM[dividend][1]][0];
wire ~SIGD[~GENSYM[divider][2]][1];
assign ~SYM[1] = ~ARG[0];
assign ~SYM[2] = ~ARG[1];

// remainder
assign ~SYM[0] = ~SYM[1] % ~SYM[2];

// modulo
assign ~RESULT = (~SYM[1][~SIZE[~TYPO]-1] == ~SYM[2][~SIZE[~TYPO]-1]) ?
                 ~SYM[0] :
                 (~SYM[1] == ~SIZE[~TYPO]'sd0 ? ~SIZE[~TYPO]'sd0 : ~SYM[0] + ~SYM[2]);
// modSigned end"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.toInteger#"
    , "type"      : "toInteger# :: Signed n -> Integer"
    , "templateD" : "assign ~RESULT = $signed(~ARG[0]);"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.and#"
    , "type"      : "and# :: KnownNat n => Signed n -> Signed n -> Signed n"
    , "templateE" : "~ARG[1] & ~ARG[2]"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.or#"
    , "type"      : "or# :: KnownNat n => Signed n -> Signed n -> Signed n"
    , "templateE" : "~ARG[1] | ~ARG[2]"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.xor#"
    , "type"      : "xor# :: KnownNat n => Signed n -> Signed n -> Signed n"
    , "templateE" : "~ARG[1] ^ ~ARG[2]"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.complement#"
    , "type"      : "complement# :: KnownNat n => Signed n -> Signed n"
    , "templateE" : "~ ~ARG[1]"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.shiftL#"
    , "type"      : "shiftL# :: KnownNat n => Signed n -> Int -> Signed n"
    , "templateE" : "~ARG[1] <<< ~ARG[2]"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.shiftR#"
    , "type"      : "shiftR# :: KnownNat n => Signed n -> Int -> Signed n"
    , "templateE" : "~ARG[1] >>> ~ARG[2]"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.rotateL#"
    , "type"      : "rotateL# :: KnownNat n => Signed n -> Int -> Signed n"
    , "templateD" :
"// rotateL begin
wire [2*~LIT[0]-1:0] ~SYM[0];
assign ~SYM[0] = {~ARG[1],~ARG[1]} << ~ARG[2];
assign ~RESULT = $signed(~SYM[0][~LIT[0]-1 : 0]);
// rotateL end"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.rotateR#"
    , "type"      : "rotateR# :: KnownNat n => Signed n -> Int -> Signed n"
    , "templateD" :
"// rotateR begin
wire [2*~LIT[0]-1:0] ~GENSYM[s][0];
assign ~SYM[0] = {~ARG[1],~ARG[1]} >> ~ARG[2];
assign ~RESULT = $signed(~SYM[0][~LIT[0]-1 : 0]);
// rotateR end"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.resize#"
    , "type"      : "resize# :: (KnownNat n, KnownNat m) => Signed n -> Signed m"
    , "comment"   : "Back-end should only use this code when the result is smaller than the argument"
    , "templateD" :
"// resize begin
~GENERATE
if (~LIT[1] < ~LIT[0]) begin
  // truncate, sign preserving
  wire ~SIGD[~GENSYM[s][0]][2];
  assign ~SYM[0] = ~ARG[2];
  assign ~RESULT = $signed({~SYM[0][~LIT[0]-1],~SYM[0][(~LIT[1]-2):0]});
end else begin
  // sign-extend
  assign ~RESULT = $signed(~ARG[2]);
end
~ENDGENERATE
// resize end"
    }
  }
, { "BlackBox" :
    { "name"      : "CLaSH.Sized.Internal.Signed.truncateB#"
    , "type"      : "truncateB# :: KnownNat m => Signed (n + m) -> Signed m"
    , "templateD" : "assign ~RESULT = $signed(~ARG[1]);"
    }
  }
]