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

Add IsConsole tests to compiler.mod, update bootstrap.

Browse source
This commit is contained in:
David Brown 2016-11-15 18:03:57 +00:00
parent 6da0d5d685
commit c12aae020d
187 changed files with 348 additions and 342 deletions
Download patch file Download diff file Expand all files Collapse all files

18
bootstrap/windows-88/Compiler.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/15]. Bootstrapping compiler for address size 8, alignment 8. xtspamSf */
/* voc 1.95 [2016/11/15]. Bootstrapping compiler for address size 8, alignment 8. xtspamS */
#define SHORTINT INT8
#define INTEGER INT16
@ -46,22 +46,14 @@ void Compiler_Module (BOOLEAN *done)
if (OPM_noerr) {
if ((__IN(10, OPM_Options, 32) && __STRCMP(OPM_modName, "SYSTEM") != 0)) {
OPM_DeleteNewSym();
if (!__IN(16, OPM_Options, 32)) {
VT100_SetAttr((CHAR*)"32m", 4);
}
OPM_LogVT100((CHAR*)"32m", 4);
OPM_LogWStr((CHAR*)" Main program.", 16);
if (!__IN(16, OPM_Options, 32)) {
VT100_SetAttr((CHAR*)"0m", 3);
}
OPM_LogVT100((CHAR*)"0m", 3);
} else {
if (new) {
if (!__IN(16, OPM_Options, 32)) {
VT100_SetAttr((CHAR*)"32m", 4);
}
OPM_LogVT100((CHAR*)"32m", 4);
OPM_LogWStr((CHAR*)" New symbol file.", 19);
if (!__IN(16, OPM_Options, 32)) {
VT100_SetAttr((CHAR*)"0m", 3);
}
OPM_LogVT100((CHAR*)"0m", 3);
OPM_RegisterNewSym();
} else if (ext) {
OPM_LogWStr((CHAR*)" Extended symbol file.", 24);