Expr vc_bvWriteToMemoryArray(VC vc,
Expr array, Expr byteIndex,
Expr element, int numOfBytes) {
if(!(numOfBytes > 0))
BEEV::FatalError("numOfBytes must be greater than 0");
int newBitsPerElem = numOfBytes*8;
if(numOfBytes == 1)
return vc_writeExpr(vc, array, byteIndex, element);
else {
int count = 1;
int hi = newBitsPerElem - 1;
int low = newBitsPerElem - 8;
int low_elem = 0;
int hi_elem = low_elem + 7;
Expr c = vc_bvExtract(vc, element, hi_elem, low_elem);
Expr newarray = vc_writeExpr(vc, array, byteIndex, c);
while(--numOfBytes > 0) {
hi = low-1;
low = low-8;
low_elem = low_elem + 8;
hi_elem = low_elem + 7;
c = vc_bvExtract(vc, element, hi_elem, low_elem);
newarray =
vc_writeExpr(vc, newarray,
vc_bvPlusExpr(vc, 32, byteIndex, vc_bvConstExprFromInt(vc,32,count)),
c);
count++;
}
return newarray;
}
}
int main() {
for(int j=0;j < 3; j++) {
VC vc = vc_createValidityChecker();
vc_setFlags(vc,'n');
vc_setFlags(vc,'d');
vc_setFlags(vc,'p');
vc_setFlags(vc,'x');
Type bv8 = vc_bvType(vc, 8);
Expr a = vc_bvCreateMemoryArray(vc, "a");
Expr index_3 = vc_bvConstExprFromLL(vc, 32, 3);
Expr a_of_0 = vc_readExpr(vc, a, index_3);
int i;
for (i = 2; i >= 0; i--)
a_of_0 = vc_bvConcatExpr(vc,
a_of_0,
vc_readExpr(vc, a,
vc_bvConstExprFromInt(vc, 32, i)));
Expr cast_32_to_8 = vc_bvExtract(vc, a_of_0, 7, 0);
Expr cast_8_to_32 = vc_bvSignExtend(vc, cast_32_to_8, 32);
vc_printExpr(vc, cast_8_to_32);
cast_8_to_32 = vc_simplify(vc, cast_8_to_32);
vc_Destroy(vc);
}
}
Expr vc_bvVar32LeftShiftExpr(VC vc, Expr sh_amt, Expr child) {
Expr ifpart;
Expr thenpart;
Expr elsepart = vc_trueExpr(vc);
Expr ite = vc_trueExpr(vc);
for(int count=32; count >= 0; count--){
if(count != 32) {
ifpart = vc_eqExpr(vc, sh_amt,
vc_bvConstExprFromInt(vc, 32, count));
thenpart = vc_bvExtract(vc,
vc_bvLeftShiftExpr(vc, count, child),
31, 0);
ite = vc_iteExpr(vc,ifpart,thenpart,elsepart);
elsepart = ite;
}
else
elsepart = vc_bvConstExprFromInt(vc,32, 0);
}
return ite;
}
/* Same as vc_bvRightShift only that the answer in 32 bits long */
Expr vc_bv32RightShiftExpr(VC vc, int sh_amt, Expr child) {
return vc_bvExtract(vc, vc_bvRightShiftExpr(vc, sh_amt, child), 31, 0);
}
value caml_vc_bvExtract(value vc, value e, value hi, value lo)
{
CAMLparam4(vc,e,hi,lo);
CAMLreturn(alloc_Expr(vc_bvExtract(VC_val(vc),Expr_val(e),Int_val(hi),
Int_val(lo))));
}
