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

More adjustments to ADDRESS vs LONGINT. An -O2 on 64 bit compiler has worked once!

Browse source
This commit is contained in:
David Brown 2016-09-23 10:53:24 +01:00
parent 7b8eed9993
commit cca132d784
201 changed files with 1468 additions and 1456 deletions
Download patch file Download diff file Expand all files Collapse all files

8
bootstrap/unix-88/OPC.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspaSfF */
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspaSfF */
#define INTEGER int32
#define LONGINT int64
@ -1041,7 +1041,7 @@ static void OPC_IdentList (OPT_Object obj, int32 vis)
} else if ((obj->mode == 2 && obj->typ->comp == 4)) {
OPC_EndStat();
OPC_BegStat();
OPM_WriteString((CHAR*)"LONGINT *", 10);
OPM_WriteString((CHAR*)"address *", 10);
OPC_Ident(obj);
OPM_WriteString((CHAR*)"__typ", 6);
base = NIL;
@ -1078,7 +1078,7 @@ static void OPC_AnsiParamList (OPT_Object obj, BOOLEAN showParamNames)
OPM_WriteString((CHAR*)", LONGINT ", 11);
OPC_LenList(obj, 1, showParamNames);
} else if ((obj->mode == 2 && obj->typ->comp == 4)) {
OPM_WriteString((CHAR*)", LONGINT *", 12);
OPM_WriteString((CHAR*)", address *", 12);
if (showParamNames) {
OPC_Ident(obj);
OPM_WriteString((CHAR*)"__typ", 6);
@ -1166,7 +1166,7 @@ static void OPC_GenDynTypes (OPT_Node n, int32 vis)
} else {
OPM_WriteString((CHAR*)"export ", 8);
}
OPM_WriteString((CHAR*)"LONGINT *", 10);
OPM_WriteString((CHAR*)"address *", 10);
OPC_Andent(typ);
OPM_WriteString((CHAR*)"__typ", 6);
OPC_EndStat();