summaryrefslogtreecommitdiff
path: root/aarch64/mono/SignExtend__0.sail
blob: 1d5449c98687292dfcef8ee6be92222c55934833 (plain)
1
2
3
4
5
6
7
val SignExtend__0 : forall ('M : Int) ('N : Int), 'M >= 0 & 'N >= 0.
  (bits('M), atom('N)) -> bits('N) effect {escape}

function SignExtend__0 (x, N) = {
  assert('N >= 'M);
  return(extsv(x))
}