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

More LONGINTS changed to Address. Remove special FetchAddress code in Heap.

Browse source
This commit is contained in:
David Brown 2016-09-14 13:02:00 +01:00
parent f13130bbd3
commit 7efd5a0158
201 changed files with 1227 additions and 1132 deletions
Download patch file Download diff file Expand all files Collapse all files

24
bootstrap/unix-88/OPM.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/12] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/14] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int32
#define LONGINT int64
@ -288,15 +288,15 @@ void OPM_InitOptions (void)
s[0] = 0x00;
Platform_GetArg(OPM_S, (void*)s, 256);
}
OPM_dontAsm = __IN(13, OPM_opt);
OPM_dontLink = __IN(14, OPM_opt);
OPM_mainProg = __IN(10, OPM_opt);
OPM_mainLinkStat = __IN(15, OPM_opt);
OPM_notColorOutput = __IN(16, OPM_opt);
OPM_forceNewSym = __IN(17, OPM_opt);
OPM_Verbose = __IN(18, OPM_opt);
OPM_dontAsm = __IN(13, OPM_opt, 64);
OPM_dontLink = __IN(14, OPM_opt, 64);
OPM_mainProg = __IN(10, OPM_opt, 64);
OPM_mainLinkStat = __IN(15, OPM_opt, 64);
OPM_notColorOutput = __IN(16, OPM_opt, 64);
OPM_forceNewSym = __IN(17, OPM_opt, 64);
OPM_Verbose = __IN(18, OPM_opt, 64);
if (OPM_mainLinkStat) {
OPM_glbopt |= __SETOF(10);
OPM_glbopt |= __SETOF(10,64);
}
OPM_GetProperties();
}
@ -771,7 +771,7 @@ void OPM_SymWLReal (LONGREAL lr)
void OPM_RegisterNewSym (void)
{
if (__STRCMP(OPM_modName, "SYSTEM") != 0 || __IN(10, OPM_opt)) {
if (__STRCMP(OPM_modName, "SYSTEM") != 0 || __IN(10, OPM_opt, 64)) {
Files_Register(OPM_newSFile);
}
}
@ -970,10 +970,10 @@ void OPM_CloseFiles (void)
}
if (OPM_noerr) {
if (__STRCMP(OPM_modName, "SYSTEM") == 0) {
if (!__IN(10, OPM_opt)) {
if (!__IN(10, OPM_opt, 64)) {
Files_Register(OPM_BFile);
}
} else if (!__IN(10, OPM_opt)) {
} else if (!__IN(10, OPM_opt, 64)) {
OPM_Append(&OPM_R[2], Files_Rider__typ, OPM_HFile);
Files_Register(OPM_HIFile);
Files_Register(OPM_BFile);