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

Update bootstrap C source files.

Browse source
This commit is contained in:
David Brown 2018-04-24 16:11:16 +01:00
parent f458b98ff2
commit 1c8828ede1
185 changed files with 530 additions and 530 deletions
Download patch file Download diff file Expand all files Collapse all files

2
bootstrap/unix-44/Compiler.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspamS */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspamS */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

4
bootstrap/unix-44/Configuration.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -19,6 +19,6 @@ export void *Configuration__init(void)
__DEFMOD; __DEFMOD;
__REGMOD("Configuration", 0); __REGMOD("Configuration", 0);
/* BEGIN */ /* BEGIN */
__MOVE("2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8.", Configuration_versionLong, 76); __MOVE("2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8.", Configuration_versionLong, 76);
__ENDMOD; __ENDMOD;
} }

2
bootstrap/unix-44/Configuration.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Configuration__h #ifndef Configuration__h
#define Configuration__h #define Configuration__h

120
bootstrap/unix-44/Files.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -154,20 +154,20 @@ static void Files_MakeFileName (CHAR *dir, ADDRESS dir__len, CHAR *name, ADDRESS
__DUP(name, name__len, CHAR); __DUP(name, name__len, CHAR);
i = 0; i = 0;
j = 0; j = 0;
while (dir[i] != 0x00) { while (dir[__X(i, dir__len)] != 0x00) {
dest[i] = dir[i]; dest[__X(i, dest__len)] = dir[__X(i, dir__len)];
i += 1; i += 1;
} }
if (dest[i - 1] != '/') { if (dest[__X(i - 1, dest__len)] != '/') {
dest[i] = '/'; dest[__X(i, dest__len)] = '/';
i += 1; i += 1;
} }
while (name[j] != 0x00) { while (name[__X(j, name__len)] != 0x00) {
dest[i] = name[j]; dest[__X(i, dest__len)] = name[__X(j, name__len)];
i += 1; i += 1;
j += 1; j += 1;
} }
dest[i] = 0x00; dest[__X(i, dest__len)] = 0x00;
__DEL(dir); __DEL(dir);
__DEL(name); __DEL(name);
} }
@ -180,45 +180,45 @@ static void Files_GetTempName (CHAR *finalName, ADDRESS finalName__len, CHAR *na
n = Files_tempno; n = Files_tempno;
i = 0; i = 0;
if (finalName[0] != '/') { if (finalName[0] != '/') {
while (Platform_CWD[i] != 0x00) { while (Platform_CWD[__X(i, 256)] != 0x00) {
name[i] = Platform_CWD[i]; name[__X(i, name__len)] = Platform_CWD[__X(i, 256)];
i += 1; i += 1;
} }
if (Platform_CWD[i - 1] != '/') { if (Platform_CWD[__X(i - 1, 256)] != '/') {
name[i] = '/'; name[__X(i, name__len)] = '/';
i += 1; i += 1;
} }
} }
j = 0; j = 0;
while (finalName[j] != 0x00) { while (finalName[__X(j, finalName__len)] != 0x00) {
name[i] = finalName[j]; name[__X(i, name__len)] = finalName[__X(j, finalName__len)];
i += 1; i += 1;
j += 1; j += 1;
} }
i -= 1; i -= 1;
while (name[i] != '/') { while (name[__X(i, name__len)] != '/') {
i -= 1; i -= 1;
} }
name[i + 1] = '.'; name[__X(i + 1, name__len)] = '.';
name[i + 2] = 't'; name[__X(i + 2, name__len)] = 't';
name[i + 3] = 'm'; name[__X(i + 3, name__len)] = 'm';
name[i + 4] = 'p'; name[__X(i + 4, name__len)] = 'p';
name[i + 5] = '.'; name[__X(i + 5, name__len)] = '.';
i += 6; i += 6;
while (n > 0) { while (n > 0) {
name[i] = (CHAR)((int)__MOD(n, 10) + 48); name[__X(i, name__len)] = (CHAR)((int)__MOD(n, 10) + 48);
n = __DIV(n, 10); n = __DIV(n, 10);
i += 1; i += 1;
} }
name[i] = '.'; name[__X(i, name__len)] = '.';
i += 1; i += 1;
n = Platform_PID; n = Platform_PID;
while (n > 0) { while (n > 0) {
name[i] = (CHAR)((int)__MOD(n, 10) + 48); name[__X(i, name__len)] = (CHAR)((int)__MOD(n, 10) + 48);
n = __DIV(n, 10); n = __DIV(n, 10);
i += 1; i += 1;
} }
name[i] = 0x00; name[__X(i, name__len)] = 0x00;
__DEL(finalName); __DEL(finalName);
} }
@ -319,8 +319,8 @@ void Files_Close (Files_File f)
if (f->state != 1 || f->registerName[0] != 0x00) { if (f->state != 1 || f->registerName[0] != 0x00) {
Files_Create(f); Files_Create(f);
i = 0; i = 0;
while ((i < 4 && f->bufs[i] != NIL)) { while ((i < 4 && f->bufs[__X(i, 4)] != NIL)) {
Files_Flush(f->bufs[i]); Files_Flush(f->bufs[__X(i, 4)]);
i += 1; i += 1;
} }
} }
@ -359,35 +359,35 @@ static void Files_ScanPath (INT16 *pos, CHAR *dir, ADDRESS dir__len)
*pos += 1; *pos += 1;
} }
} else { } else {
ch = (Files_SearchPath->data)[*pos]; ch = (Files_SearchPath->data)[__X(*pos, Files_SearchPath->len[0])];
while (ch == ' ' || ch == ';') { while (ch == ' ' || ch == ';') {
*pos += 1; *pos += 1;
ch = (Files_SearchPath->data)[*pos]; ch = (Files_SearchPath->data)[__X(*pos, Files_SearchPath->len[0])];
} }
if (ch == '~') { if (ch == '~') {
*pos += 1; *pos += 1;
ch = (Files_SearchPath->data)[*pos]; ch = (Files_SearchPath->data)[__X(*pos, Files_SearchPath->len[0])];
while (Files_HOME[i] != 0x00) { while (Files_HOME[__X(i, 1024)] != 0x00) {
dir[i] = Files_HOME[i]; dir[__X(i, dir__len)] = Files_HOME[__X(i, 1024)];
i += 1; i += 1;
} }
if ((((((ch != '/' && ch != 0x00)) && ch != ';')) && ch != ' ')) { if ((((((ch != '/' && ch != 0x00)) && ch != ';')) && ch != ' ')) {
while ((i > 0 && dir[i - 1] != '/')) { while ((i > 0 && dir[__X(i - 1, dir__len)] != '/')) {
i -= 1; i -= 1;
} }
} }
} }
while ((ch != 0x00 && ch != ';')) { while ((ch != 0x00 && ch != ';')) {
dir[i] = ch; dir[__X(i, dir__len)] = ch;
i += 1; i += 1;
*pos += 1; *pos += 1;
ch = (Files_SearchPath->data)[*pos]; ch = (Files_SearchPath->data)[__X(*pos, Files_SearchPath->len[0])];
} }
while ((i > 0 && dir[i - 1] == ' ')) { while ((i > 0 && dir[__X(i - 1, dir__len)] == ' ')) {
i -= 1; i -= 1;
} }
} }
dir[i] = 0x00; dir[__X(i, dir__len)] = 0x00;
} }
static BOOLEAN Files_HasDir (CHAR *name, ADDRESS name__len) static BOOLEAN Files_HasDir (CHAR *name, ADDRESS name__len)
@ -398,7 +398,7 @@ static BOOLEAN Files_HasDir (CHAR *name, ADDRESS name__len)
ch = name[0]; ch = name[0];
while ((ch != 0x00 && ch != '/')) { while ((ch != 0x00 && ch != '/')) {
i += 1; i += 1;
ch = name[i]; ch = name[__X(i, name__len)];
} }
return ch == '/'; return ch == '/';
} }
@ -413,9 +413,9 @@ static Files_File Files_CacheEntry (Platform_FileIdentity identity)
if (!Platform_SameFileTime(identity, f->identity)) { if (!Platform_SameFileTime(identity, f->identity)) {
i = 0; i = 0;
while (i < 4) { while (i < 4) {
if (f->bufs[i] != NIL) { if (f->bufs[__X(i, 4)] != NIL) {
f->bufs[i]->org = -1; f->bufs[__X(i, 4)]->org = -1;
f->bufs[i] = NIL; f->bufs[__X(i, 4)] = NIL;
} }
i += 1; i += 1;
} }
@ -514,9 +514,9 @@ void Files_Purge (Files_File f)
INT16 error; INT16 error;
i = 0; i = 0;
while (i < 4) { while (i < 4) {
if (f->bufs[i] != NIL) { if (f->bufs[__X(i, 4)] != NIL) {
f->bufs[i]->org = -1; f->bufs[__X(i, 4)]->org = -1;
f->bufs[i] = NIL; f->bufs[__X(i, 4)] = NIL;
} }
i += 1; i += 1;
} }
@ -560,22 +560,22 @@ void Files_Set (Files_Rider *r, ADDRESS *r__typ, Files_File f, INT32 pos)
offset = __MASK(pos, -4096); offset = __MASK(pos, -4096);
org = pos - offset; org = pos - offset;
i = 0; i = 0;
while ((((i < 4 && f->bufs[i] != NIL)) && org != f->bufs[i]->org)) { while ((((i < 4 && f->bufs[__X(i, 4)] != NIL)) && org != f->bufs[__X(i, 4)]->org)) {
i += 1; i += 1;
} }
if (i < 4) { if (i < 4) {
if (f->bufs[i] == NIL) { if (f->bufs[__X(i, 4)] == NIL) {
__NEW(buf, Files_BufDesc); __NEW(buf, Files_BufDesc);
buf->chg = 0; buf->chg = 0;
buf->org = -1; buf->org = -1;
buf->f = f; buf->f = f;
f->bufs[i] = buf; f->bufs[__X(i, 4)] = buf;
} else { } else {
buf = f->bufs[i]; buf = f->bufs[__X(i, 4)];
} }
} else { } else {
f->swapper = __MASK(f->swapper + 1, -4); f->swapper = __MASK(f->swapper + 1, -4);
buf = f->bufs[f->swapper]; buf = f->bufs[__X(f->swapper, 4)];
Files_Flush(buf); Files_Flush(buf);
} }
if (buf->org != org) { if (buf->org != org) {
@ -622,7 +622,7 @@ void Files_Read (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x)
} }
Files_Assert(offset <= buf->size); Files_Assert(offset <= buf->size);
if (offset < buf->size) { if (offset < buf->size) {
*x = buf->data[offset]; *x = buf->data[__X(offset, 4096)];
(*r).offset = offset + 1; (*r).offset = offset + 1;
} else if ((*r).org + offset < buf->f->len) { } else if ((*r).org + offset < buf->f->len) {
Files_Set(&*r, r__typ, (*r).buf->f, (*r).org + offset); Files_Set(&*r, r__typ, (*r).buf->f, (*r).org + offset);
@ -660,7 +660,7 @@ void Files_ReadBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, ADDRESS x
} else { } else {
min = n; min = n;
} }
__MOVE((ADDRESS)&buf->data[offset], (ADDRESS)&x[xpos], min); __MOVE((ADDRESS)&buf->data[__X(offset, 4096)], (ADDRESS)&x[__X(xpos, x__len)], min);
offset += min; offset += min;
(*r).offset = offset; (*r).offset = offset;
xpos += min; xpos += min;
@ -689,7 +689,7 @@ void Files_Write (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE x)
offset = (*r).offset; offset = (*r).offset;
} }
Files_Assert(offset < 4096); Files_Assert(offset < 4096);
buf->data[offset] = x; buf->data[__X(offset, 4096)] = x;
buf->chg = 1; buf->chg = 1;
if (offset == buf->size) { if (offset == buf->size) {
buf->size += 1; buf->size += 1;
@ -723,7 +723,7 @@ void Files_WriteBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, ADDRESS
} else { } else {
min = n; min = n;
} }
__MOVE((ADDRESS)&x[xpos], (ADDRESS)&buf->data[offset], min); __MOVE((ADDRESS)&x[__X(xpos, x__len)], (ADDRESS)&buf->data[__X(offset, 4096)], min);
offset += min; offset += min;
(*r).offset = offset; (*r).offset = offset;
Files_Assert(offset <= 4096); Files_Assert(offset <= 4096);
@ -843,7 +843,7 @@ static void Files_FlipBytes (SYSTEM_BYTE *src, ADDRESS src__len, SYSTEM_BYTE *de
j = 0; j = 0;
while (i > 0) { while (i > 0) {
i -= 1; i -= 1;
dest[j] = src[i]; dest[__X(j, dest__len)] = src[__X(i, src__len)];
j += 1; j += 1;
} }
} else { } else {
@ -900,7 +900,7 @@ void Files_ReadString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS x__len)
i = 0; i = 0;
do { do {
Files_Read(&*R, R__typ, (void*)&ch); Files_Read(&*R, R__typ, (void*)&ch);
x[i] = ch; x[__X(i, x__len)] = ch;
i += 1; i += 1;
} while (!(ch == 0x00)); } while (!(ch == 0x00));
} }
@ -910,16 +910,16 @@ void Files_ReadLine (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS x__len)
INT16 i; INT16 i;
i = 0; i = 0;
do { do {
Files_Read(&*R, R__typ, (void*)&x[i]); Files_Read(&*R, R__typ, (void*)&x[__X(i, x__len)]);
i += 1; i += 1;
} while (!(x[i - 1] == 0x00 || x[i - 1] == 0x0a)); } while (!(x[__X(i - 1, x__len)] == 0x00 || x[__X(i - 1, x__len)] == 0x0a));
if (x[i - 1] == 0x0a) { if (x[__X(i - 1, x__len)] == 0x0a) {
i -= 1; i -= 1;
} }
if ((i > 0 && x[i - 1] == 0x0d)) { if ((i > 0 && x[__X(i - 1, x__len)] == 0x0d)) {
i -= 1; i -= 1;
} }
x[i] = 0x00; x[__X(i, x__len)] = 0x00;
} }
void Files_ReadNum (Files_Rider *R, ADDRESS *R__typ, SYSTEM_BYTE *x, ADDRESS x__len) void Files_ReadNum (Files_Rider *R, ADDRESS *R__typ, SYSTEM_BYTE *x, ADDRESS x__len)
@ -992,7 +992,7 @@ void Files_WriteString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS x__len
{ {
INT16 i; INT16 i;
i = 0; i = 0;
while (x[i] != 0x00) { while (x[__X(i, x__len)] != 0x00) {
i += 1; i += 1;
} }
Files_WriteBytes(&*R, R__typ, (void*)x, x__len * 1, i + 1); Files_WriteBytes(&*R, R__typ, (void*)x, x__len * 1, i + 1);

2
bootstrap/unix-44/Files.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Files__h #ifndef Files__h
#define Files__h #define Files__h

2
bootstrap/unix-44/Heap.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. tsSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. tsSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-44/Heap.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. tsSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. tsSF */
#ifndef Heap__h #ifndef Heap__h
#define Heap__h #define Heap__h

2
bootstrap/unix-44/Modules.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-44/Modules.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Modules__h #ifndef Modules__h
#define Modules__h #define Modules__h

2
bootstrap/unix-44/OPB.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-44/OPB.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPB__h #ifndef OPB__h
#define OPB__h #define OPB__h

2
bootstrap/unix-44/OPC.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-44/OPC.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPC__h #ifndef OPC__h
#define OPC__h #define OPC__h

2
bootstrap/unix-44/OPM.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-44/OPM.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPM__h #ifndef OPM__h
#define OPM__h #define OPM__h

2
bootstrap/unix-44/OPP.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-44/OPP.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPP__h #ifndef OPP__h
#define OPP__h #define OPP__h

20
bootstrap/unix-44/OPS.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -56,11 +56,11 @@ static void OPS_Str (INT8 *sym)
OPS_err(241); OPS_err(241);
break; break;
} }
OPS_str[i] = OPS_ch; OPS_str[__X(i, 256)] = OPS_ch;
i += 1; i += 1;
} }
OPM_Get(&OPS_ch); OPM_Get(&OPS_ch);
OPS_str[i] = 0x00; OPS_str[__X(i, 256)] = 0x00;
OPS_intval = i + 1; OPS_intval = i + 1;
if (OPS_intval == 2) { if (OPS_intval == 2) {
*sym = 35; *sym = 35;
@ -76,7 +76,7 @@ static void OPS_Identifier (INT8 *sym)
INT16 i; INT16 i;
i = 0; i = 0;
do { do {
OPS_name[i] = OPS_ch; OPS_name[__X(i, 256)] = OPS_ch;
i += 1; i += 1;
OPM_Get(&OPS_ch); OPM_Get(&OPS_ch);
} while (!(((OPS_ch < '0' || ('9' < OPS_ch && __CAP(OPS_ch) < 'A')) || 'Z' < __CAP(OPS_ch)) || i == 256)); } while (!(((OPS_ch < '0' || ('9' < OPS_ch && __CAP(OPS_ch) < 'A')) || 'Z' < __CAP(OPS_ch)) || i == 256));
@ -84,7 +84,7 @@ static void OPS_Identifier (INT8 *sym)
OPS_err(240); OPS_err(240);
i -= 1; i -= 1;
} }
OPS_name[i] = 0x00; OPS_name[__X(i, 256)] = 0x00;
*sym = 38; *sym = 38;
} }
@ -143,7 +143,7 @@ static void OPS_Number (void)
if (('0' <= OPS_ch && OPS_ch <= '9') || (((d == 0 && 'A' <= OPS_ch)) && OPS_ch <= 'F')) { if (('0' <= OPS_ch && OPS_ch <= '9') || (((d == 0 && 'A' <= OPS_ch)) && OPS_ch <= 'F')) {
if (m > 0 || OPS_ch != '0') { if (m > 0 || OPS_ch != '0') {
if (n < 24) { if (n < 24) {
dig[n] = OPS_ch; dig[__X(n, 24)] = OPS_ch;
n += 1; n += 1;
} }
m += 1; m += 1;
@ -173,7 +173,7 @@ static void OPS_Number (void)
OPS_numtyp = 1; OPS_numtyp = 1;
if (n <= 2) { if (n <= 2) {
while (i < n) { while (i < n) {
OPS_intval = __ASHL(OPS_intval, 4) + (INT64)Ord__7(dig[i], 1); OPS_intval = __ASHL(OPS_intval, 4) + (INT64)Ord__7(dig[__X(i, 24)], 1);
i += 1; i += 1;
} }
} else { } else {
@ -187,7 +187,7 @@ static void OPS_Number (void)
OPS_intval = -1; OPS_intval = -1;
} }
while (i < n) { while (i < n) {
OPS_intval = __ASHL(OPS_intval, 4) + (INT64)Ord__7(dig[i], 1); OPS_intval = __ASHL(OPS_intval, 4) + (INT64)Ord__7(dig[__X(i, 24)], 1);
i += 1; i += 1;
} }
} else { } else {
@ -196,7 +196,7 @@ static void OPS_Number (void)
} else { } else {
OPS_numtyp = 2; OPS_numtyp = 2;
while (i < n) { while (i < n) {
d = Ord__7(dig[i], 0); d = Ord__7(dig[__X(i, 24)], 0);
i += 1; i += 1;
if (OPS_intval <= __DIV(9223372036854775807LL - (INT64)d, 10)) { if (OPS_intval <= __DIV(9223372036854775807LL - (INT64)d, 10)) {
OPS_intval = OPS_intval * 10 + (INT64)d; OPS_intval = OPS_intval * 10 + (INT64)d;
@ -214,7 +214,7 @@ static void OPS_Number (void)
expCh = 'E'; expCh = 'E';
while (n > 0) { while (n > 0) {
n -= 1; n -= 1;
f = (Ord__7(dig[n], 0) + f) / (LONGREAL)(LONGREAL)10; f = (Ord__7(dig[__X(n, 24)], 0) + f) / (LONGREAL)(LONGREAL)10;
} }
if (OPS_ch == 'E' || OPS_ch == 'D') { if (OPS_ch == 'E' || OPS_ch == 'D') {
expCh = OPS_ch; expCh = OPS_ch;

2
bootstrap/unix-44/OPS.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPS__h #ifndef OPS__h
#define OPS__h #define OPS__h

2
bootstrap/unix-44/OPT.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-44/OPT.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPT__h #ifndef OPT__h
#define OPT__h #define OPT__h

2
bootstrap/unix-44/OPV.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-44/OPV.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPV__h #ifndef OPV__h
#define OPV__h #define OPV__h

2
bootstrap/unix-44/Out.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-44/Out.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Out__h #ifndef Out__h
#define Out__h #define Out__h

2
bootstrap/unix-44/Platform.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-44/Platform.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Platform__h #ifndef Platform__h
#define Platform__h #define Platform__h

2
bootstrap/unix-44/Reals.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-44/Reals.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Reals__h #ifndef Reals__h
#define Reals__h #define Reals__h

2
bootstrap/unix-44/Strings.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-44/Strings.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Strings__h #ifndef Strings__h
#define Strings__h #define Strings__h

2
bootstrap/unix-44/Texts.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-44/Texts.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Texts__h #ifndef Texts__h
#define Texts__h #define Texts__h

2
bootstrap/unix-44/VT100.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-44/VT100.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef VT100__h #ifndef VT100__h
#define VT100__h #define VT100__h

2
bootstrap/unix-44/extTools.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-44/extTools.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef extTools__h #ifndef extTools__h
#define extTools__h #define extTools__h

2
bootstrap/unix-48/Compiler.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspamS */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspamS */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

4
bootstrap/unix-48/Configuration.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -19,6 +19,6 @@ export void *Configuration__init(void)
__DEFMOD; __DEFMOD;
__REGMOD("Configuration", 0); __REGMOD("Configuration", 0);
/* BEGIN */ /* BEGIN */
__MOVE("2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8.", Configuration_versionLong, 76); __MOVE("2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8.", Configuration_versionLong, 76);
__ENDMOD; __ENDMOD;
} }

2
bootstrap/unix-48/Configuration.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Configuration__h #ifndef Configuration__h
#define Configuration__h #define Configuration__h

120
bootstrap/unix-48/Files.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -154,20 +154,20 @@ static void Files_MakeFileName (CHAR *dir, ADDRESS dir__len, CHAR *name, ADDRESS
__DUP(name, name__len, CHAR); __DUP(name, name__len, CHAR);
i = 0; i = 0;
j = 0; j = 0;
while (dir[i] != 0x00) { while (dir[__X(i, dir__len)] != 0x00) {
dest[i] = dir[i]; dest[__X(i, dest__len)] = dir[__X(i, dir__len)];
i += 1; i += 1;
} }
if (dest[i - 1] != '/') { if (dest[__X(i - 1, dest__len)] != '/') {
dest[i] = '/'; dest[__X(i, dest__len)] = '/';
i += 1; i += 1;
} }
while (name[j] != 0x00) { while (name[__X(j, name__len)] != 0x00) {
dest[i] = name[j]; dest[__X(i, dest__len)] = name[__X(j, name__len)];
i += 1; i += 1;
j += 1; j += 1;
} }
dest[i] = 0x00; dest[__X(i, dest__len)] = 0x00;
__DEL(dir); __DEL(dir);
__DEL(name); __DEL(name);
} }
@ -180,45 +180,45 @@ static void Files_GetTempName (CHAR *finalName, ADDRESS finalName__len, CHAR *na
n = Files_tempno; n = Files_tempno;
i = 0; i = 0;
if (finalName[0] != '/') { if (finalName[0] != '/') {
while (Platform_CWD[i] != 0x00) { while (Platform_CWD[__X(i, 256)] != 0x00) {
name[i] = Platform_CWD[i]; name[__X(i, name__len)] = Platform_CWD[__X(i, 256)];
i += 1; i += 1;
} }
if (Platform_CWD[i - 1] != '/') { if (Platform_CWD[__X(i - 1, 256)] != '/') {
name[i] = '/'; name[__X(i, name__len)] = '/';
i += 1; i += 1;
} }
} }
j = 0; j = 0;
while (finalName[j] != 0x00) { while (finalName[__X(j, finalName__len)] != 0x00) {
name[i] = finalName[j]; name[__X(i, name__len)] = finalName[__X(j, finalName__len)];
i += 1; i += 1;
j += 1; j += 1;
} }
i -= 1; i -= 1;
while (name[i] != '/') { while (name[__X(i, name__len)] != '/') {
i -= 1; i -= 1;
} }
name[i + 1] = '.'; name[__X(i + 1, name__len)] = '.';
name[i + 2] = 't'; name[__X(i + 2, name__len)] = 't';
name[i + 3] = 'm'; name[__X(i + 3, name__len)] = 'm';
name[i + 4] = 'p'; name[__X(i + 4, name__len)] = 'p';
name[i + 5] = '.'; name[__X(i + 5, name__len)] = '.';
i += 6; i += 6;
while (n > 0) { while (n > 0) {
name[i] = (CHAR)((int)__MOD(n, 10) + 48); name[__X(i, name__len)] = (CHAR)((int)__MOD(n, 10) + 48);
n = __DIV(n, 10); n = __DIV(n, 10);
i += 1; i += 1;
} }
name[i] = '.'; name[__X(i, name__len)] = '.';
i += 1; i += 1;
n = Platform_PID; n = Platform_PID;
while (n > 0) { while (n > 0) {
name[i] = (CHAR)((int)__MOD(n, 10) + 48); name[__X(i, name__len)] = (CHAR)((int)__MOD(n, 10) + 48);
n = __DIV(n, 10); n = __DIV(n, 10);
i += 1; i += 1;
} }
name[i] = 0x00; name[__X(i, name__len)] = 0x00;
__DEL(finalName); __DEL(finalName);
} }
@ -319,8 +319,8 @@ void Files_Close (Files_File f)
if (f->state != 1 || f->registerName[0] != 0x00) { if (f->state != 1 || f->registerName[0] != 0x00) {
Files_Create(f); Files_Create(f);
i = 0; i = 0;
while ((i < 4 && f->bufs[i] != NIL)) { while ((i < 4 && f->bufs[__X(i, 4)] != NIL)) {
Files_Flush(f->bufs[i]); Files_Flush(f->bufs[__X(i, 4)]);
i += 1; i += 1;
} }
} }
@ -359,35 +359,35 @@ static void Files_ScanPath (INT16 *pos, CHAR *dir, ADDRESS dir__len)
*pos += 1; *pos += 1;
} }
} else { } else {
ch = (Files_SearchPath->data)[*pos]; ch = (Files_SearchPath->data)[__X(*pos, Files_SearchPath->len[0])];
while (ch == ' ' || ch == ';') { while (ch == ' ' || ch == ';') {
*pos += 1; *pos += 1;
ch = (Files_SearchPath->data)[*pos]; ch = (Files_SearchPath->data)[__X(*pos, Files_SearchPath->len[0])];
} }
if (ch == '~') { if (ch == '~') {
*pos += 1; *pos += 1;
ch = (Files_SearchPath->data)[*pos]; ch = (Files_SearchPath->data)[__X(*pos, Files_SearchPath->len[0])];
while (Files_HOME[i] != 0x00) { while (Files_HOME[__X(i, 1024)] != 0x00) {
dir[i] = Files_HOME[i]; dir[__X(i, dir__len)] = Files_HOME[__X(i, 1024)];
i += 1; i += 1;
} }
if ((((((ch != '/' && ch != 0x00)) && ch != ';')) && ch != ' ')) { if ((((((ch != '/' && ch != 0x00)) && ch != ';')) && ch != ' ')) {
while ((i > 0 && dir[i - 1] != '/')) { while ((i > 0 && dir[__X(i - 1, dir__len)] != '/')) {
i -= 1; i -= 1;
} }
} }
} }
while ((ch != 0x00 && ch != ';')) { while ((ch != 0x00 && ch != ';')) {
dir[i] = ch; dir[__X(i, dir__len)] = ch;
i += 1; i += 1;
*pos += 1; *pos += 1;
ch = (Files_SearchPath->data)[*pos]; ch = (Files_SearchPath->data)[__X(*pos, Files_SearchPath->len[0])];
} }
while ((i > 0 && dir[i - 1] == ' ')) { while ((i > 0 && dir[__X(i - 1, dir__len)] == ' ')) {
i -= 1; i -= 1;
} }
} }
dir[i] = 0x00; dir[__X(i, dir__len)] = 0x00;
} }
static BOOLEAN Files_HasDir (CHAR *name, ADDRESS name__len) static BOOLEAN Files_HasDir (CHAR *name, ADDRESS name__len)
@ -398,7 +398,7 @@ static BOOLEAN Files_HasDir (CHAR *name, ADDRESS name__len)
ch = name[0]; ch = name[0];
while ((ch != 0x00 && ch != '/')) { while ((ch != 0x00 && ch != '/')) {
i += 1; i += 1;
ch = name[i]; ch = name[__X(i, name__len)];
} }
return ch == '/'; return ch == '/';
} }
@ -413,9 +413,9 @@ static Files_File Files_CacheEntry (Platform_FileIdentity identity)
if (!Platform_SameFileTime(identity, f->identity)) { if (!Platform_SameFileTime(identity, f->identity)) {
i = 0; i = 0;
while (i < 4) { while (i < 4) {
if (f->bufs[i] != NIL) { if (f->bufs[__X(i, 4)] != NIL) {
f->bufs[i]->org = -1; f->bufs[__X(i, 4)]->org = -1;
f->bufs[i] = NIL; f->bufs[__X(i, 4)] = NIL;
} }
i += 1; i += 1;
} }
@ -514,9 +514,9 @@ void Files_Purge (Files_File f)
INT16 error; INT16 error;
i = 0; i = 0;
while (i < 4) { while (i < 4) {
if (f->bufs[i] != NIL) { if (f->bufs[__X(i, 4)] != NIL) {
f->bufs[i]->org = -1; f->bufs[__X(i, 4)]->org = -1;
f->bufs[i] = NIL; f->bufs[__X(i, 4)] = NIL;
} }
i += 1; i += 1;
} }
@ -560,22 +560,22 @@ void Files_Set (Files_Rider *r, ADDRESS *r__typ, Files_File f, INT32 pos)
offset = __MASK(pos, -4096); offset = __MASK(pos, -4096);
org = pos - offset; org = pos - offset;
i = 0; i = 0;
while ((((i < 4 && f->bufs[i] != NIL)) && org != f->bufs[i]->org)) { while ((((i < 4 && f->bufs[__X(i, 4)] != NIL)) && org != f->bufs[__X(i, 4)]->org)) {
i += 1; i += 1;
} }
if (i < 4) { if (i < 4) {
if (f->bufs[i] == NIL) { if (f->bufs[__X(i, 4)] == NIL) {
__NEW(buf, Files_BufDesc); __NEW(buf, Files_BufDesc);
buf->chg = 0; buf->chg = 0;
buf->org = -1; buf->org = -1;
buf->f = f; buf->f = f;
f->bufs[i] = buf; f->bufs[__X(i, 4)] = buf;
} else { } else {
buf = f->bufs[i]; buf = f->bufs[__X(i, 4)];
} }
} else { } else {
f->swapper = __MASK(f->swapper + 1, -4); f->swapper = __MASK(f->swapper + 1, -4);
buf = f->bufs[f->swapper]; buf = f->bufs[__X(f->swapper, 4)];
Files_Flush(buf); Files_Flush(buf);
} }
if (buf->org != org) { if (buf->org != org) {
@ -622,7 +622,7 @@ void Files_Read (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x)
} }
Files_Assert(offset <= buf->size); Files_Assert(offset <= buf->size);
if (offset < buf->size) { if (offset < buf->size) {
*x = buf->data[offset]; *x = buf->data[__X(offset, 4096)];
(*r).offset = offset + 1; (*r).offset = offset + 1;
} else if ((*r).org + offset < buf->f->len) { } else if ((*r).org + offset < buf->f->len) {
Files_Set(&*r, r__typ, (*r).buf->f, (*r).org + offset); Files_Set(&*r, r__typ, (*r).buf->f, (*r).org + offset);
@ -660,7 +660,7 @@ void Files_ReadBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, ADDRESS x
} else { } else {
min = n; min = n;
} }
__MOVE((ADDRESS)&buf->data[offset], (ADDRESS)&x[xpos], min); __MOVE((ADDRESS)&buf->data[__X(offset, 4096)], (ADDRESS)&x[__X(xpos, x__len)], min);
offset += min; offset += min;
(*r).offset = offset; (*r).offset = offset;
xpos += min; xpos += min;
@ -689,7 +689,7 @@ void Files_Write (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE x)
offset = (*r).offset; offset = (*r).offset;
} }
Files_Assert(offset < 4096); Files_Assert(offset < 4096);
buf->data[offset] = x; buf->data[__X(offset, 4096)] = x;
buf->chg = 1; buf->chg = 1;
if (offset == buf->size) { if (offset == buf->size) {
buf->size += 1; buf->size += 1;
@ -723,7 +723,7 @@ void Files_WriteBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, ADDRESS
} else { } else {
min = n; min = n;
} }
__MOVE((ADDRESS)&x[xpos], (ADDRESS)&buf->data[offset], min); __MOVE((ADDRESS)&x[__X(xpos, x__len)], (ADDRESS)&buf->data[__X(offset, 4096)], min);
offset += min; offset += min;
(*r).offset = offset; (*r).offset = offset;
Files_Assert(offset <= 4096); Files_Assert(offset <= 4096);
@ -843,7 +843,7 @@ static void Files_FlipBytes (SYSTEM_BYTE *src, ADDRESS src__len, SYSTEM_BYTE *de
j = 0; j = 0;
while (i > 0) { while (i > 0) {
i -= 1; i -= 1;
dest[j] = src[i]; dest[__X(j, dest__len)] = src[__X(i, src__len)];
j += 1; j += 1;
} }
} else { } else {
@ -900,7 +900,7 @@ void Files_ReadString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS x__len)
i = 0; i = 0;
do { do {
Files_Read(&*R, R__typ, (void*)&ch); Files_Read(&*R, R__typ, (void*)&ch);
x[i] = ch; x[__X(i, x__len)] = ch;
i += 1; i += 1;
} while (!(ch == 0x00)); } while (!(ch == 0x00));
} }
@ -910,16 +910,16 @@ void Files_ReadLine (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS x__len)
INT16 i; INT16 i;
i = 0; i = 0;
do { do {
Files_Read(&*R, R__typ, (void*)&x[i]); Files_Read(&*R, R__typ, (void*)&x[__X(i, x__len)]);
i += 1; i += 1;
} while (!(x[i - 1] == 0x00 || x[i - 1] == 0x0a)); } while (!(x[__X(i - 1, x__len)] == 0x00 || x[__X(i - 1, x__len)] == 0x0a));
if (x[i - 1] == 0x0a) { if (x[__X(i - 1, x__len)] == 0x0a) {
i -= 1; i -= 1;
} }
if ((i > 0 && x[i - 1] == 0x0d)) { if ((i > 0 && x[__X(i - 1, x__len)] == 0x0d)) {
i -= 1; i -= 1;
} }
x[i] = 0x00; x[__X(i, x__len)] = 0x00;
} }
void Files_ReadNum (Files_Rider *R, ADDRESS *R__typ, SYSTEM_BYTE *x, ADDRESS x__len) void Files_ReadNum (Files_Rider *R, ADDRESS *R__typ, SYSTEM_BYTE *x, ADDRESS x__len)
@ -992,7 +992,7 @@ void Files_WriteString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS x__len
{ {
INT16 i; INT16 i;
i = 0; i = 0;
while (x[i] != 0x00) { while (x[__X(i, x__len)] != 0x00) {
i += 1; i += 1;
} }
Files_WriteBytes(&*R, R__typ, (void*)x, x__len * 1, i + 1); Files_WriteBytes(&*R, R__typ, (void*)x, x__len * 1, i + 1);

2
bootstrap/unix-48/Files.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Files__h #ifndef Files__h
#define Files__h #define Files__h

2
bootstrap/unix-48/Heap.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. tsSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. tsSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-48/Heap.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. tsSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. tsSF */
#ifndef Heap__h #ifndef Heap__h
#define Heap__h #define Heap__h

2
bootstrap/unix-48/Modules.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-48/Modules.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Modules__h #ifndef Modules__h
#define Modules__h #define Modules__h

2
bootstrap/unix-48/OPB.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-48/OPB.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPB__h #ifndef OPB__h
#define OPB__h #define OPB__h

2
bootstrap/unix-48/OPC.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-48/OPC.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPC__h #ifndef OPC__h
#define OPC__h #define OPC__h

2
bootstrap/unix-48/OPM.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-48/OPM.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPM__h #ifndef OPM__h
#define OPM__h #define OPM__h

2
bootstrap/unix-48/OPP.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-48/OPP.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPP__h #ifndef OPP__h
#define OPP__h #define OPP__h

20
bootstrap/unix-48/OPS.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -56,11 +56,11 @@ static void OPS_Str (INT8 *sym)
OPS_err(241); OPS_err(241);
break; break;
} }
OPS_str[i] = OPS_ch; OPS_str[__X(i, 256)] = OPS_ch;
i += 1; i += 1;
} }
OPM_Get(&OPS_ch); OPM_Get(&OPS_ch);
OPS_str[i] = 0x00; OPS_str[__X(i, 256)] = 0x00;
OPS_intval = i + 1; OPS_intval = i + 1;
if (OPS_intval == 2) { if (OPS_intval == 2) {
*sym = 35; *sym = 35;
@ -76,7 +76,7 @@ static void OPS_Identifier (INT8 *sym)
INT16 i; INT16 i;
i = 0; i = 0;
do { do {
OPS_name[i] = OPS_ch; OPS_name[__X(i, 256)] = OPS_ch;
i += 1; i += 1;
OPM_Get(&OPS_ch); OPM_Get(&OPS_ch);
} while (!(((OPS_ch < '0' || ('9' < OPS_ch && __CAP(OPS_ch) < 'A')) || 'Z' < __CAP(OPS_ch)) || i == 256)); } while (!(((OPS_ch < '0' || ('9' < OPS_ch && __CAP(OPS_ch) < 'A')) || 'Z' < __CAP(OPS_ch)) || i == 256));
@ -84,7 +84,7 @@ static void OPS_Identifier (INT8 *sym)
OPS_err(240); OPS_err(240);
i -= 1; i -= 1;
} }
OPS_name[i] = 0x00; OPS_name[__X(i, 256)] = 0x00;
*sym = 38; *sym = 38;
} }
@ -143,7 +143,7 @@ static void OPS_Number (void)
if (('0' <= OPS_ch && OPS_ch <= '9') || (((d == 0 && 'A' <= OPS_ch)) && OPS_ch <= 'F')) { if (('0' <= OPS_ch && OPS_ch <= '9') || (((d == 0 && 'A' <= OPS_ch)) && OPS_ch <= 'F')) {
if (m > 0 || OPS_ch != '0') { if (m > 0 || OPS_ch != '0') {
if (n < 24) { if (n < 24) {
dig[n] = OPS_ch; dig[__X(n, 24)] = OPS_ch;
n += 1; n += 1;
} }
m += 1; m += 1;
@ -173,7 +173,7 @@ static void OPS_Number (void)
OPS_numtyp = 1; OPS_numtyp = 1;
if (n <= 2) { if (n <= 2) {
while (i < n) { while (i < n) {
OPS_intval = __ASHL(OPS_intval, 4) + (INT64)Ord__7(dig[i], 1); OPS_intval = __ASHL(OPS_intval, 4) + (INT64)Ord__7(dig[__X(i, 24)], 1);
i += 1; i += 1;
} }
} else { } else {
@ -187,7 +187,7 @@ static void OPS_Number (void)
OPS_intval = -1; OPS_intval = -1;
} }
while (i < n) { while (i < n) {
OPS_intval = __ASHL(OPS_intval, 4) + (INT64)Ord__7(dig[i], 1); OPS_intval = __ASHL(OPS_intval, 4) + (INT64)Ord__7(dig[__X(i, 24)], 1);
i += 1; i += 1;
} }
} else { } else {
@ -196,7 +196,7 @@ static void OPS_Number (void)
} else { } else {
OPS_numtyp = 2; OPS_numtyp = 2;
while (i < n) { while (i < n) {
d = Ord__7(dig[i], 0); d = Ord__7(dig[__X(i, 24)], 0);
i += 1; i += 1;
if (OPS_intval <= __DIV(9223372036854775807LL - (INT64)d, 10)) { if (OPS_intval <= __DIV(9223372036854775807LL - (INT64)d, 10)) {
OPS_intval = OPS_intval * 10 + (INT64)d; OPS_intval = OPS_intval * 10 + (INT64)d;
@ -214,7 +214,7 @@ static void OPS_Number (void)
expCh = 'E'; expCh = 'E';
while (n > 0) { while (n > 0) {
n -= 1; n -= 1;
f = (Ord__7(dig[n], 0) + f) / (LONGREAL)(LONGREAL)10; f = (Ord__7(dig[__X(n, 24)], 0) + f) / (LONGREAL)(LONGREAL)10;
} }
if (OPS_ch == 'E' || OPS_ch == 'D') { if (OPS_ch == 'E' || OPS_ch == 'D') {
expCh = OPS_ch; expCh = OPS_ch;

2
bootstrap/unix-48/OPS.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPS__h #ifndef OPS__h
#define OPS__h #define OPS__h

2
bootstrap/unix-48/OPT.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-48/OPT.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPT__h #ifndef OPT__h
#define OPT__h #define OPT__h

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

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-48/OPV.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPV__h #ifndef OPV__h
#define OPV__h #define OPV__h

2
bootstrap/unix-48/Out.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-48/Out.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Out__h #ifndef Out__h
#define Out__h #define Out__h

2
bootstrap/unix-48/Platform.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-48/Platform.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Platform__h #ifndef Platform__h
#define Platform__h #define Platform__h

2
bootstrap/unix-48/Reals.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-48/Reals.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Reals__h #ifndef Reals__h
#define Reals__h #define Reals__h

2
bootstrap/unix-48/Strings.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-48/Strings.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Strings__h #ifndef Strings__h
#define Strings__h #define Strings__h

2
bootstrap/unix-48/Texts.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-48/Texts.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Texts__h #ifndef Texts__h
#define Texts__h #define Texts__h

2
bootstrap/unix-48/VT100.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-48/VT100.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef VT100__h #ifndef VT100__h
#define VT100__h #define VT100__h

2
bootstrap/unix-48/extTools.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-48/extTools.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef extTools__h #ifndef extTools__h
#define extTools__h #define extTools__h

2
bootstrap/unix-88/Compiler.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspamS */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspamS */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

4
bootstrap/unix-88/Configuration.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -19,6 +19,6 @@ export void *Configuration__init(void)
__DEFMOD; __DEFMOD;
__REGMOD("Configuration", 0); __REGMOD("Configuration", 0);
/* BEGIN */ /* BEGIN */
__MOVE("2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8.", Configuration_versionLong, 76); __MOVE("2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8.", Configuration_versionLong, 76);
__ENDMOD; __ENDMOD;
} }

2
bootstrap/unix-88/Configuration.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Configuration__h #ifndef Configuration__h
#define Configuration__h #define Configuration__h

120
bootstrap/unix-88/Files.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -154,20 +154,20 @@ static void Files_MakeFileName (CHAR *dir, ADDRESS dir__len, CHAR *name, ADDRESS
__DUP(name, name__len, CHAR); __DUP(name, name__len, CHAR);
i = 0; i = 0;
j = 0; j = 0;
while (dir[i] != 0x00) { while (dir[__X(i, dir__len)] != 0x00) {
dest[i] = dir[i]; dest[__X(i, dest__len)] = dir[__X(i, dir__len)];
i += 1; i += 1;
} }
if (dest[i - 1] != '/') { if (dest[__X(i - 1, dest__len)] != '/') {
dest[i] = '/'; dest[__X(i, dest__len)] = '/';
i += 1; i += 1;
} }
while (name[j] != 0x00) { while (name[__X(j, name__len)] != 0x00) {
dest[i] = name[j]; dest[__X(i, dest__len)] = name[__X(j, name__len)];
i += 1; i += 1;
j += 1; j += 1;
} }
dest[i] = 0x00; dest[__X(i, dest__len)] = 0x00;
__DEL(dir); __DEL(dir);
__DEL(name); __DEL(name);
} }
@ -180,45 +180,45 @@ static void Files_GetTempName (CHAR *finalName, ADDRESS finalName__len, CHAR *na
n = Files_tempno; n = Files_tempno;
i = 0; i = 0;
if (finalName[0] != '/') { if (finalName[0] != '/') {
while (Platform_CWD[i] != 0x00) { while (Platform_CWD[__X(i, 256)] != 0x00) {
name[i] = Platform_CWD[i]; name[__X(i, name__len)] = Platform_CWD[__X(i, 256)];
i += 1; i += 1;
} }
if (Platform_CWD[i - 1] != '/') { if (Platform_CWD[__X(i - 1, 256)] != '/') {
name[i] = '/'; name[__X(i, name__len)] = '/';
i += 1; i += 1;
} }
} }
j = 0; j = 0;
while (finalName[j] != 0x00) { while (finalName[__X(j, finalName__len)] != 0x00) {
name[i] = finalName[j]; name[__X(i, name__len)] = finalName[__X(j, finalName__len)];
i += 1; i += 1;
j += 1; j += 1;
} }
i -= 1; i -= 1;
while (name[i] != '/') { while (name[__X(i, name__len)] != '/') {
i -= 1; i -= 1;
} }
name[i + 1] = '.'; name[__X(i + 1, name__len)] = '.';
name[i + 2] = 't'; name[__X(i + 2, name__len)] = 't';
name[i + 3] = 'm'; name[__X(i + 3, name__len)] = 'm';
name[i + 4] = 'p'; name[__X(i + 4, name__len)] = 'p';
name[i + 5] = '.'; name[__X(i + 5, name__len)] = '.';
i += 6; i += 6;
while (n > 0) { while (n > 0) {
name[i] = (CHAR)((int)__MOD(n, 10) + 48); name[__X(i, name__len)] = (CHAR)((int)__MOD(n, 10) + 48);
n = __DIV(n, 10); n = __DIV(n, 10);
i += 1; i += 1;
} }
name[i] = '.'; name[__X(i, name__len)] = '.';
i += 1; i += 1;
n = Platform_PID; n = Platform_PID;
while (n > 0) { while (n > 0) {
name[i] = (CHAR)((int)__MOD(n, 10) + 48); name[__X(i, name__len)] = (CHAR)((int)__MOD(n, 10) + 48);
n = __DIV(n, 10); n = __DIV(n, 10);
i += 1; i += 1;
} }
name[i] = 0x00; name[__X(i, name__len)] = 0x00;
__DEL(finalName); __DEL(finalName);
} }
@ -319,8 +319,8 @@ void Files_Close (Files_File f)
if (f->state != 1 || f->registerName[0] != 0x00) { if (f->state != 1 || f->registerName[0] != 0x00) {
Files_Create(f); Files_Create(f);
i = 0; i = 0;
while ((i < 4 && f->bufs[i] != NIL)) { while ((i < 4 && f->bufs[__X(i, 4)] != NIL)) {
Files_Flush(f->bufs[i]); Files_Flush(f->bufs[__X(i, 4)]);
i += 1; i += 1;
} }
} }
@ -359,35 +359,35 @@ static void Files_ScanPath (INT16 *pos, CHAR *dir, ADDRESS dir__len)
*pos += 1; *pos += 1;
} }
} else { } else {
ch = (Files_SearchPath->data)[*pos]; ch = (Files_SearchPath->data)[__X(*pos, Files_SearchPath->len[0])];
while (ch == ' ' || ch == ';') { while (ch == ' ' || ch == ';') {
*pos += 1; *pos += 1;
ch = (Files_SearchPath->data)[*pos]; ch = (Files_SearchPath->data)[__X(*pos, Files_SearchPath->len[0])];
} }
if (ch == '~') { if (ch == '~') {
*pos += 1; *pos += 1;
ch = (Files_SearchPath->data)[*pos]; ch = (Files_SearchPath->data)[__X(*pos, Files_SearchPath->len[0])];
while (Files_HOME[i] != 0x00) { while (Files_HOME[__X(i, 1024)] != 0x00) {
dir[i] = Files_HOME[i]; dir[__X(i, dir__len)] = Files_HOME[__X(i, 1024)];
i += 1; i += 1;
} }
if ((((((ch != '/' && ch != 0x00)) && ch != ';')) && ch != ' ')) { if ((((((ch != '/' && ch != 0x00)) && ch != ';')) && ch != ' ')) {
while ((i > 0 && dir[i - 1] != '/')) { while ((i > 0 && dir[__X(i - 1, dir__len)] != '/')) {
i -= 1; i -= 1;
} }
} }
} }
while ((ch != 0x00 && ch != ';')) { while ((ch != 0x00 && ch != ';')) {
dir[i] = ch; dir[__X(i, dir__len)] = ch;
i += 1; i += 1;
*pos += 1; *pos += 1;
ch = (Files_SearchPath->data)[*pos]; ch = (Files_SearchPath->data)[__X(*pos, Files_SearchPath->len[0])];
} }
while ((i > 0 && dir[i - 1] == ' ')) { while ((i > 0 && dir[__X(i - 1, dir__len)] == ' ')) {
i -= 1; i -= 1;
} }
} }
dir[i] = 0x00; dir[__X(i, dir__len)] = 0x00;
} }
static BOOLEAN Files_HasDir (CHAR *name, ADDRESS name__len) static BOOLEAN Files_HasDir (CHAR *name, ADDRESS name__len)
@ -398,7 +398,7 @@ static BOOLEAN Files_HasDir (CHAR *name, ADDRESS name__len)
ch = name[0]; ch = name[0];
while ((ch != 0x00 && ch != '/')) { while ((ch != 0x00 && ch != '/')) {
i += 1; i += 1;
ch = name[i]; ch = name[__X(i, name__len)];
} }
return ch == '/'; return ch == '/';
} }
@ -413,9 +413,9 @@ static Files_File Files_CacheEntry (Platform_FileIdentity identity)
if (!Platform_SameFileTime(identity, f->identity)) { if (!Platform_SameFileTime(identity, f->identity)) {
i = 0; i = 0;
while (i < 4) { while (i < 4) {
if (f->bufs[i] != NIL) { if (f->bufs[__X(i, 4)] != NIL) {
f->bufs[i]->org = -1; f->bufs[__X(i, 4)]->org = -1;
f->bufs[i] = NIL; f->bufs[__X(i, 4)] = NIL;
} }
i += 1; i += 1;
} }
@ -514,9 +514,9 @@ void Files_Purge (Files_File f)
INT16 error; INT16 error;
i = 0; i = 0;
while (i < 4) { while (i < 4) {
if (f->bufs[i] != NIL) { if (f->bufs[__X(i, 4)] != NIL) {
f->bufs[i]->org = -1; f->bufs[__X(i, 4)]->org = -1;
f->bufs[i] = NIL; f->bufs[__X(i, 4)] = NIL;
} }
i += 1; i += 1;
} }
@ -560,22 +560,22 @@ void Files_Set (Files_Rider *r, ADDRESS *r__typ, Files_File f, INT32 pos)
offset = __MASK(pos, -4096); offset = __MASK(pos, -4096);
org = pos - offset; org = pos - offset;
i = 0; i = 0;
while ((((i < 4 && f->bufs[i] != NIL)) && org != f->bufs[i]->org)) { while ((((i < 4 && f->bufs[__X(i, 4)] != NIL)) && org != f->bufs[__X(i, 4)]->org)) {
i += 1; i += 1;
} }
if (i < 4) { if (i < 4) {
if (f->bufs[i] == NIL) { if (f->bufs[__X(i, 4)] == NIL) {
__NEW(buf, Files_BufDesc); __NEW(buf, Files_BufDesc);
buf->chg = 0; buf->chg = 0;
buf->org = -1; buf->org = -1;
buf->f = f; buf->f = f;
f->bufs[i] = buf; f->bufs[__X(i, 4)] = buf;
} else { } else {
buf = f->bufs[i]; buf = f->bufs[__X(i, 4)];
} }
} else { } else {
f->swapper = __MASK(f->swapper + 1, -4); f->swapper = __MASK(f->swapper + 1, -4);
buf = f->bufs[f->swapper]; buf = f->bufs[__X(f->swapper, 4)];
Files_Flush(buf); Files_Flush(buf);
} }
if (buf->org != org) { if (buf->org != org) {
@ -622,7 +622,7 @@ void Files_Read (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x)
} }
Files_Assert(offset <= buf->size); Files_Assert(offset <= buf->size);
if (offset < buf->size) { if (offset < buf->size) {
*x = buf->data[offset]; *x = buf->data[__X(offset, 4096)];
(*r).offset = offset + 1; (*r).offset = offset + 1;
} else if ((*r).org + offset < buf->f->len) { } else if ((*r).org + offset < buf->f->len) {
Files_Set(&*r, r__typ, (*r).buf->f, (*r).org + offset); Files_Set(&*r, r__typ, (*r).buf->f, (*r).org + offset);
@ -660,7 +660,7 @@ void Files_ReadBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, ADDRESS x
} else { } else {
min = n; min = n;
} }
__MOVE((ADDRESS)&buf->data[offset], (ADDRESS)&x[xpos], min); __MOVE((ADDRESS)&buf->data[__X(offset, 4096)], (ADDRESS)&x[__X(xpos, x__len)], min);
offset += min; offset += min;
(*r).offset = offset; (*r).offset = offset;
xpos += min; xpos += min;
@ -689,7 +689,7 @@ void Files_Write (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE x)
offset = (*r).offset; offset = (*r).offset;
} }
Files_Assert(offset < 4096); Files_Assert(offset < 4096);
buf->data[offset] = x; buf->data[__X(offset, 4096)] = x;
buf->chg = 1; buf->chg = 1;
if (offset == buf->size) { if (offset == buf->size) {
buf->size += 1; buf->size += 1;
@ -723,7 +723,7 @@ void Files_WriteBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, ADDRESS
} else { } else {
min = n; min = n;
} }
__MOVE((ADDRESS)&x[xpos], (ADDRESS)&buf->data[offset], min); __MOVE((ADDRESS)&x[__X(xpos, x__len)], (ADDRESS)&buf->data[__X(offset, 4096)], min);
offset += min; offset += min;
(*r).offset = offset; (*r).offset = offset;
Files_Assert(offset <= 4096); Files_Assert(offset <= 4096);
@ -843,7 +843,7 @@ static void Files_FlipBytes (SYSTEM_BYTE *src, ADDRESS src__len, SYSTEM_BYTE *de
j = 0; j = 0;
while (i > 0) { while (i > 0) {
i -= 1; i -= 1;
dest[j] = src[i]; dest[__X(j, dest__len)] = src[__X(i, src__len)];
j += 1; j += 1;
} }
} else { } else {
@ -900,7 +900,7 @@ void Files_ReadString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS x__len)
i = 0; i = 0;
do { do {
Files_Read(&*R, R__typ, (void*)&ch); Files_Read(&*R, R__typ, (void*)&ch);
x[i] = ch; x[__X(i, x__len)] = ch;
i += 1; i += 1;
} while (!(ch == 0x00)); } while (!(ch == 0x00));
} }
@ -910,16 +910,16 @@ void Files_ReadLine (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS x__len)
INT16 i; INT16 i;
i = 0; i = 0;
do { do {
Files_Read(&*R, R__typ, (void*)&x[i]); Files_Read(&*R, R__typ, (void*)&x[__X(i, x__len)]);
i += 1; i += 1;
} while (!(x[i - 1] == 0x00 || x[i - 1] == 0x0a)); } while (!(x[__X(i - 1, x__len)] == 0x00 || x[__X(i - 1, x__len)] == 0x0a));
if (x[i - 1] == 0x0a) { if (x[__X(i - 1, x__len)] == 0x0a) {
i -= 1; i -= 1;
} }
if ((i > 0 && x[i - 1] == 0x0d)) { if ((i > 0 && x[__X(i - 1, x__len)] == 0x0d)) {
i -= 1; i -= 1;
} }
x[i] = 0x00; x[__X(i, x__len)] = 0x00;
} }
void Files_ReadNum (Files_Rider *R, ADDRESS *R__typ, SYSTEM_BYTE *x, ADDRESS x__len) void Files_ReadNum (Files_Rider *R, ADDRESS *R__typ, SYSTEM_BYTE *x, ADDRESS x__len)
@ -992,7 +992,7 @@ void Files_WriteString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS x__len
{ {
INT16 i; INT16 i;
i = 0; i = 0;
while (x[i] != 0x00) { while (x[__X(i, x__len)] != 0x00) {
i += 1; i += 1;
} }
Files_WriteBytes(&*R, R__typ, (void*)x, x__len * 1, i + 1); Files_WriteBytes(&*R, R__typ, (void*)x, x__len * 1, i + 1);

2
bootstrap/unix-88/Files.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Files__h #ifndef Files__h
#define Files__h #define Files__h

2
bootstrap/unix-88/Heap.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. tsSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. tsSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-88/Heap.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. tsSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. tsSF */
#ifndef Heap__h #ifndef Heap__h
#define Heap__h #define Heap__h

2
bootstrap/unix-88/Modules.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-88/Modules.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Modules__h #ifndef Modules__h
#define Modules__h #define Modules__h

2
bootstrap/unix-88/OPB.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-88/OPB.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPB__h #ifndef OPB__h
#define OPB__h #define OPB__h

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

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-88/OPC.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPC__h #ifndef OPC__h
#define OPC__h #define OPC__h

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

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-88/OPM.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPM__h #ifndef OPM__h
#define OPM__h #define OPM__h

2
bootstrap/unix-88/OPP.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-88/OPP.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPP__h #ifndef OPP__h
#define OPP__h #define OPP__h

20
bootstrap/unix-88/OPS.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -56,11 +56,11 @@ static void OPS_Str (INT8 *sym)
OPS_err(241); OPS_err(241);
break; break;
} }
OPS_str[i] = OPS_ch; OPS_str[__X(i, 256)] = OPS_ch;
i += 1; i += 1;
} }
OPM_Get(&OPS_ch); OPM_Get(&OPS_ch);
OPS_str[i] = 0x00; OPS_str[__X(i, 256)] = 0x00;
OPS_intval = i + 1; OPS_intval = i + 1;
if (OPS_intval == 2) { if (OPS_intval == 2) {
*sym = 35; *sym = 35;
@ -76,7 +76,7 @@ static void OPS_Identifier (INT8 *sym)
INT16 i; INT16 i;
i = 0; i = 0;
do { do {
OPS_name[i] = OPS_ch; OPS_name[__X(i, 256)] = OPS_ch;
i += 1; i += 1;
OPM_Get(&OPS_ch); OPM_Get(&OPS_ch);
} while (!(((OPS_ch < '0' || ('9' < OPS_ch && __CAP(OPS_ch) < 'A')) || 'Z' < __CAP(OPS_ch)) || i == 256)); } while (!(((OPS_ch < '0' || ('9' < OPS_ch && __CAP(OPS_ch) < 'A')) || 'Z' < __CAP(OPS_ch)) || i == 256));
@ -84,7 +84,7 @@ static void OPS_Identifier (INT8 *sym)
OPS_err(240); OPS_err(240);
i -= 1; i -= 1;
} }
OPS_name[i] = 0x00; OPS_name[__X(i, 256)] = 0x00;
*sym = 38; *sym = 38;
} }
@ -143,7 +143,7 @@ static void OPS_Number (void)
if (('0' <= OPS_ch && OPS_ch <= '9') || (((d == 0 && 'A' <= OPS_ch)) && OPS_ch <= 'F')) { if (('0' <= OPS_ch && OPS_ch <= '9') || (((d == 0 && 'A' <= OPS_ch)) && OPS_ch <= 'F')) {
if (m > 0 || OPS_ch != '0') { if (m > 0 || OPS_ch != '0') {
if (n < 24) { if (n < 24) {
dig[n] = OPS_ch; dig[__X(n, 24)] = OPS_ch;
n += 1; n += 1;
} }
m += 1; m += 1;
@ -173,7 +173,7 @@ static void OPS_Number (void)
OPS_numtyp = 1; OPS_numtyp = 1;
if (n <= 2) { if (n <= 2) {
while (i < n) { while (i < n) {
OPS_intval = __ASHL(OPS_intval, 4) + (INT64)Ord__7(dig[i], 1); OPS_intval = __ASHL(OPS_intval, 4) + (INT64)Ord__7(dig[__X(i, 24)], 1);
i += 1; i += 1;
} }
} else { } else {
@ -187,7 +187,7 @@ static void OPS_Number (void)
OPS_intval = -1; OPS_intval = -1;
} }
while (i < n) { while (i < n) {
OPS_intval = __ASHL(OPS_intval, 4) + (INT64)Ord__7(dig[i], 1); OPS_intval = __ASHL(OPS_intval, 4) + (INT64)Ord__7(dig[__X(i, 24)], 1);
i += 1; i += 1;
} }
} else { } else {
@ -196,7 +196,7 @@ static void OPS_Number (void)
} else { } else {
OPS_numtyp = 2; OPS_numtyp = 2;
while (i < n) { while (i < n) {
d = Ord__7(dig[i], 0); d = Ord__7(dig[__X(i, 24)], 0);
i += 1; i += 1;
if (OPS_intval <= __DIV(9223372036854775807LL - (INT64)d, 10)) { if (OPS_intval <= __DIV(9223372036854775807LL - (INT64)d, 10)) {
OPS_intval = OPS_intval * 10 + (INT64)d; OPS_intval = OPS_intval * 10 + (INT64)d;
@ -214,7 +214,7 @@ static void OPS_Number (void)
expCh = 'E'; expCh = 'E';
while (n > 0) { while (n > 0) {
n -= 1; n -= 1;
f = (Ord__7(dig[n], 0) + f) / (LONGREAL)(LONGREAL)10; f = (Ord__7(dig[__X(n, 24)], 0) + f) / (LONGREAL)(LONGREAL)10;
} }
if (OPS_ch == 'E' || OPS_ch == 'D') { if (OPS_ch == 'E' || OPS_ch == 'D') {
expCh = OPS_ch; expCh = OPS_ch;

2
bootstrap/unix-88/OPS.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPS__h #ifndef OPS__h
#define OPS__h #define OPS__h

2
bootstrap/unix-88/OPT.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-88/OPT.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPT__h #ifndef OPT__h
#define OPT__h #define OPT__h

2
bootstrap/unix-88/OPV.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-88/OPV.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPV__h #ifndef OPV__h
#define OPV__h #define OPV__h

2
bootstrap/unix-88/Out.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

2
bootstrap/unix-88/Out.h
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Out__h #ifndef Out__h
#define Out__h #define Out__h

2
bootstrap/unix-88/Platform.c
View file

@ -1,4 +1,4 @@
/* voc 2.1.0 [2018/04/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.1.0 [2018/04/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

Some files were not shown because too many files have changed in this diff Show more