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

fixes, added some standard functions to handle LONGREAL, LONGINT

Browse Source
This commit is contained in:
ceriel
1987-05-27 10:16:03 +00:00
parent 86c5c56a38
commit bb9b16ab50
17 changed files with 210 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
lang/m2/comp/cstoper.c
View File

@@ -386,14 +386,19 @@ cstcall(expp, call)
CutSize(expp);
break;
case S_LONG:
case S_SHORT: {
struct type *tp = expp->nd_type;
*expp = *expr;
expp->nd_type = tp;
break;
}
case S_CAP:
if (expr->nd_INT >= 'a' && expr->nd_INT <= 'z') {
expp->nd_INT = expr->nd_INT + ('A' - 'a');
expr->nd_INT = expr->nd_INT + ('A' - 'a');
}
else expp->nd_INT = expr->nd_INT;
CutSize(expp);
break;
/* fall through */
case S_CHR:
expp->nd_INT = expr->nd_INT;
CutSize(expp);