d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

prevent sign-extension in unpack when needed

Browse source
This commit is contained in:
ceriel 1991-02-19 12:41:27 +00:00
parent d16c25fc80
commit 07092a19ca
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lang/pc/comp/code.c
View file

@ -1023,6 +1023,7 @@ CodeStd(nd)
case R_PACK: { case R_PACK: {
label lba = tp->arr_ardescr; label lba = tp->arr_ardescr;
CodeDAddress(left); CodeDAddress(left);
arg = arg->nd_right; arg = arg->nd_right;
left = arg->nd_left; left = arg->nd_left;
@ -1043,6 +1044,12 @@ CodeStd(nd)
*/ */
label lba, lbz = tp->arr_ardescr; label lba, lbz = tp->arr_ardescr;
tp = tp->arr_elem;
if (tp->tp_fund == T_SUBRANGE &&
tp->sub_lb >= 0) {
C_loc((arith) 1);
}
else C_loc((arith) 0);
CodeDAddress(left); CodeDAddress(left);
arg = arg->nd_right; arg = arg->nd_right;
left = arg->nd_left; left = arg->nd_left;
@ -1054,7 +1061,7 @@ CodeStd(nd)
C_lae_dlb(lbz, (arith) 0); C_lae_dlb(lbz, (arith) 0);
C_lae_dlb(lba, (arith) 0); C_lae_dlb(lba, (arith) 0);
C_cal("_unp"); C_cal("_unp");
C_asp(4 * pointer_size + word_size); C_asp(4 * pointer_size + 2 * word_size);
break; break;
} }