vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 04:02:25 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Moving Heap.Mod to SYSTEM.UINTPTR. Only 64 bit working for now.

Browse source
This commit is contained in:
David Brown 2016-09-03 11:56:17 +01:00
parent 11de6b8512
commit cdd8a26481
205 changed files with 656 additions and 650 deletions
Download patch file Download diff file Expand all files Collapse all files

8
bootstrap/unix-48/OPV.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/02] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/03] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h"
#include "OPC.h"
#include "OPM.h"
@ -939,7 +939,7 @@ static void OPV_expr (OPT_Node n, int16 prec)
OPM_Write(')');
break;
case 24:
OPM_WriteString((CHAR*)"(SYSTEM_ADRINT)", 16);
OPM_WriteString((CHAR*)"(uintptr)", 10);
if (l->class == 1) {
OPC_CompleteIdent(l->obj);
} else {
@ -955,7 +955,7 @@ static void OPV_expr (OPT_Node n, int16 prec)
OPC_Ident(n->typ->strobj);
OPM_Write(')');
if (__IN(n->typ->form, 0x1800) || __IN(l->typ->form, 0x1800)) {
OPM_WriteString((CHAR*)"(SYSTEM_ADRINT)", 16);
OPM_WriteString((CHAR*)"(uintptr)", 10);
}
OPV_expr(l, exprPrec);
} else {
@ -1327,7 +1327,7 @@ static void OPV_NewArr (OPT_Node d, OPT_Node x)
if (x->class == 7) {
OPC_IntLiteral(x->conval->intval, OPM_PointerSize);
} else {
OPM_WriteString((CHAR*)"((SYSTEM_ADRINT)(", 18);
OPM_WriteString((CHAR*)"((uintptr)(", 12);
OPV_expr(x, 10);
OPM_WriteString((CHAR*)"))", 3);
}