godzil/ack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

some minor bug fixes

Browse Source
This commit is contained in:
ceriel
1986-12-01 10:06:53 +00:00
parent ad40a77afd
commit c57d4ff268
15 changed files with 165 additions and 106 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
lang/m2/comp/code.c
View File

@@ -401,16 +401,7 @@ CodeParameters(param, arg)
return;
}
if (left_type->tp_fund == T_STRING) {
register arith szarg = WA(left_type->tp_size);
arith sz = WA(tp->tp_size);
if (szarg != sz) {
/* null padding required */
assert(szarg < sz);
C_zer(sz - szarg);
}
CodeString(left); /* push address of string */
C_loi(szarg);
CodePString(left, tp);
return;
}
CodePExpr(left);
@@ -418,6 +409,22 @@ CodeParameters(param, arg)
CodeCoercion(left_type, tp);
}
CodePString(nd, tp)
struct node *nd;
struct type *tp;
{
arith szarg = WA(nd->nd_type->tp_size);
register arith zersz = WA(tp->tp_size) - szarg;
if (zersz) {
/* null padding required */
assert(zersz > 0);
C_zer(zersz);
}
CodeString(nd); /* push address of string */
C_loi(szarg);
}
CodeStd(nd)
struct node *nd;
{
@@ -731,8 +738,8 @@ CodeOper(expr, true_label, false_label)
C_cmi(tp->tp_size);
break;
case T_POINTER:
case T_EQUAL:
case T_HIDDEN:
case T_EQUAL:
case T_CARDINAL:
case T_INTORCARD:
C_cmu(tp->tp_size);