vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 16:52: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

10
bootstrap/SYSTEM.h
View file

@ -243,10 +243,16 @@ static inline double SYSTEM_ABSD(double i) {return i >= 0.0 ? i : -i;}
#define __CASECHK __HALT(-4) #define __CASECHK __HALT(-4)
#define __WITHCHK __HALT(-7) #define __WITHCHK __HALT(-7)
#define __IS(tag, typ, level) (*(tag-(__BASEOFF-level))==(LONGINT)(address)typ##__typ)
#define __TYPEOF(p) ((LONGINT*)(address)(*(((LONGINT*)(p))-1))) //#define __IS(tag, typ, level) (*(tag-(__BASEOFF-level))==(LONGINT)(address)typ##__typ)
//#define __TYPEOF(p) ((address*)(address)(*(((LONGINT*)(p))-1)))
//#define __ISP(p, typ, level) __IS(__TYPEOF(p),typ,level)
#define __IS(tag, typ, level) (*(tag-(__BASEOFF-level))==(address)typ##__typ)
#define __TYPEOF(p) ((address*)(address)(*(((address*)(p))-1)))
#define __ISP(p, typ, level) __IS(__TYPEOF(p),typ,level) #define __ISP(p, typ, level) __IS(__TYPEOF(p),typ,level)
#define __GUARDP(p, typ, level) ((typ*)(__ISP(p,typ,level)?p:(__HALT(-5),p))) #define __GUARDP(p, typ, level) ((typ*)(__ISP(p,typ,level)?p:(__HALT(-5),p)))
#define __GUARDR(r, typ, level) (*((typ*)(__IS(r##__typ,typ,level)?r:(__HALT(-5),r)))) #define __GUARDR(r, typ, level) (*((typ*)(__IS(r##__typ,typ,level)?r:(__HALT(-5),r))))
#define __GUARDA(p, typ, level) ((struct typ*)(__IS(__TYPEOF(p),typ,level)?p:(__HALT(-5),p))) #define __GUARDA(p, typ, level) ((struct typ*)(__IS(__TYPEOF(p),typ,level)?p:(__HALT(-5),p)))

4
bootstrap/unix-44/Configuration.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 int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32
@ -18,6 +18,6 @@ export void *Configuration__init(void)
__DEFMOD; __DEFMOD;
__REGMOD("Configuration", 0); __REGMOD("Configuration", 0);
/* BEGIN */ /* BEGIN */
__MOVE("1.95 [2016/09/22] for gcc LP64 on cygwin", Configuration_versionLong, 41); __MOVE("1.95 [2016/09/23] for gcc LP64 on cygwin", Configuration_versionLong, 41);
__ENDMOD; __ENDMOD;
} }

2
bootstrap/unix-44/Configuration.h
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 */
#ifndef Configuration__h #ifndef Configuration__h
#define Configuration__h #define Configuration__h

6
bootstrap/unix-44/Console.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 int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32
@ -118,10 +118,10 @@ void Console_Hex (int32 i)
void Console_Read (CHAR *ch) void Console_Read (CHAR *ch)
{ {
address n; int32 n;
int16 error; int16 error;
Console_Flush(); Console_Flush();
error = Platform_ReadBuf(0, (void*)&*ch, 1, (void*)&n); error = Platform_ReadBuf(0, (void*)&*ch, 1, &n);
if (n != 1) { if (n != 1) {
*ch = 0x00; *ch = 0x00;
} }

2
bootstrap/unix-44/Console.h
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 */
#ifndef Console__h #ifndef Console__h
#define Console__h #define Console__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin tspaSfF */ /* voc 1.95 [2016/09/23] for gcc LP64 on cygwin tspaSfF */
#define INTEGER int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32
@ -56,11 +56,11 @@ static struct {
CHAR data[1]; CHAR data[1];
} *Files_SearchPath; } *Files_SearchPath;
export LONGINT *Files_FileDesc__typ; export address *Files_FileDesc__typ;
export LONGINT *Files_BufDesc__typ; export address *Files_BufDesc__typ;
export LONGINT *Files_Rider__typ; export address *Files_Rider__typ;
export Files_File Files_Base (Files_Rider *r, LONGINT *r__typ); export Files_File Files_Base (Files_Rider *r, address *r__typ);
static Files_File Files_CacheEntry (Platform_FileIdentity identity); static Files_File Files_CacheEntry (Platform_FileIdentity identity);
export void Files_ChangeDirectory (CHAR *path, LONGINT path__len, int16 *res); export void Files_ChangeDirectory (CHAR *path, LONGINT path__len, int16 *res);
export void Files_Close (Files_File f); export void Files_Close (Files_File f);
@ -79,37 +79,37 @@ export int32 Files_Length (Files_File f);
static void Files_MakeFileName (CHAR *dir, LONGINT dir__len, CHAR *name, LONGINT name__len, CHAR *dest, LONGINT dest__len); static void Files_MakeFileName (CHAR *dir, LONGINT dir__len, CHAR *name, LONGINT name__len, CHAR *dest, LONGINT dest__len);
export Files_File Files_New (CHAR *name, LONGINT name__len); export Files_File Files_New (CHAR *name, LONGINT name__len);
export Files_File Files_Old (CHAR *name, LONGINT name__len); export Files_File Files_Old (CHAR *name, LONGINT name__len);
export int32 Files_Pos (Files_Rider *r, LONGINT *r__typ); export int32 Files_Pos (Files_Rider *r, address *r__typ);
export void Files_Purge (Files_File f); export void Files_Purge (Files_File f);
export void Files_Read (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x); export void Files_Read (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x);
export void Files_ReadBool (Files_Rider *R, LONGINT *R__typ, BOOLEAN *x); export void Files_ReadBool (Files_Rider *R, address *R__typ, BOOLEAN *x);
export void Files_ReadByte (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len); export void Files_ReadByte (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len);
export void Files_ReadBytes (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n); export void Files_ReadBytes (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n);
export void Files_ReadInt (Files_Rider *R, LONGINT *R__typ, int16 *x); export void Files_ReadInt (Files_Rider *R, address *R__typ, int16 *x);
export void Files_ReadLInt (Files_Rider *R, LONGINT *R__typ, int32 *x); export void Files_ReadLInt (Files_Rider *R, address *R__typ, int32 *x);
export void Files_ReadLReal (Files_Rider *R, LONGINT *R__typ, LONGREAL *x); export void Files_ReadLReal (Files_Rider *R, address *R__typ, LONGREAL *x);
export void Files_ReadLine (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len); export void Files_ReadLine (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len);
export void Files_ReadNum (Files_Rider *R, LONGINT *R__typ, int32 *x); export void Files_ReadNum (Files_Rider *R, address *R__typ, int32 *x);
export void Files_ReadNum64 (Files_Rider *R, LONGINT *R__typ, int64 *x); export void Files_ReadNum64 (Files_Rider *R, address *R__typ, int64 *x);
export void Files_ReadReal (Files_Rider *R, LONGINT *R__typ, REAL *x); export void Files_ReadReal (Files_Rider *R, address *R__typ, REAL *x);
export void Files_ReadSet (Files_Rider *R, LONGINT *R__typ, SET *x); export void Files_ReadSet (Files_Rider *R, address *R__typ, SET *x);
export void Files_ReadString (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len); export void Files_ReadString (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len);
export void Files_Register (Files_File f); export void Files_Register (Files_File f);
export void Files_Rename (CHAR *old, LONGINT old__len, CHAR *new, LONGINT new__len, int16 *res); export void Files_Rename (CHAR *old, LONGINT old__len, CHAR *new, LONGINT new__len, int16 *res);
static void Files_ScanPath (int16 *pos, CHAR *dir, LONGINT dir__len); static void Files_ScanPath (int16 *pos, CHAR *dir, LONGINT dir__len);
export void Files_Set (Files_Rider *r, LONGINT *r__typ, Files_File f, int32 pos); export void Files_Set (Files_Rider *r, address *r__typ, Files_File f, int32 pos);
export void Files_SetSearchPath (CHAR *path, LONGINT path__len); export void Files_SetSearchPath (CHAR *path, LONGINT path__len);
export void Files_Write (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE x); export void Files_Write (Files_Rider *r, address *r__typ, SYSTEM_BYTE x);
export void Files_WriteBool (Files_Rider *R, LONGINT *R__typ, BOOLEAN x); export void Files_WriteBool (Files_Rider *R, address *R__typ, BOOLEAN x);
export void Files_WriteBytes (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n); export void Files_WriteBytes (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n);
export void Files_WriteInt (Files_Rider *R, LONGINT *R__typ, int16 x); export void Files_WriteInt (Files_Rider *R, address *R__typ, int16 x);
export void Files_WriteLInt (Files_Rider *R, LONGINT *R__typ, int32 x); export void Files_WriteLInt (Files_Rider *R, address *R__typ, int32 x);
export void Files_WriteLReal (Files_Rider *R, LONGINT *R__typ, LONGREAL x); export void Files_WriteLReal (Files_Rider *R, address *R__typ, LONGREAL x);
export void Files_WriteNum (Files_Rider *R, LONGINT *R__typ, int32 x); export void Files_WriteNum (Files_Rider *R, address *R__typ, int32 x);
export void Files_WriteNum64 (Files_Rider *R, LONGINT *R__typ, int64 x); export void Files_WriteNum64 (Files_Rider *R, address *R__typ, int64 x);
export void Files_WriteReal (Files_Rider *R, LONGINT *R__typ, REAL x); export void Files_WriteReal (Files_Rider *R, address *R__typ, REAL x);
export void Files_WriteSet (Files_Rider *R, LONGINT *R__typ, SET x); export void Files_WriteSet (Files_Rider *R, address *R__typ, SET x);
export void Files_WriteString (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len); export void Files_WriteString (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len);
#define Files_IdxTrap() __HALT(-1) #define Files_IdxTrap() __HALT(-1)
@ -544,14 +544,14 @@ void Files_GetDate (Files_File f, int32 *t, int32 *d)
Platform_MTimeAsClock(identity, &*t, &*d); Platform_MTimeAsClock(identity, &*t, &*d);
} }
int32 Files_Pos (Files_Rider *r, LONGINT *r__typ) int32 Files_Pos (Files_Rider *r, address *r__typ)
{ {
int32 _o_result; int32 _o_result;
_o_result = (*r).org + (*r).offset; _o_result = (*r).org + (*r).offset;
return _o_result; return _o_result;
} }
void Files_Set (Files_Rider *r, LONGINT *r__typ, Files_File f, int32 pos) void Files_Set (Files_Rider *r, address *r__typ, Files_File f, int32 pos)
{ {
int32 org, offset, i, n; int32 org, offset, i, n;
Files_Buffer buf = NIL; Files_Buffer buf = NIL;
@ -613,7 +613,7 @@ void Files_Set (Files_Rider *r, LONGINT *r__typ, Files_File f, int32 pos)
(*r).res = 0; (*r).res = 0;
} }
void Files_Read (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x) void Files_Read (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x)
{ {
int32 offset; int32 offset;
Files_Buffer buf = NIL; Files_Buffer buf = NIL;
@ -637,7 +637,7 @@ void Files_Read (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x)
} }
} }
void Files_ReadBytes (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n) void Files_ReadBytes (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n)
{ {
int32 xpos, min, restInBuf, offset; int32 xpos, min, restInBuf, offset;
Files_Buffer buf = NIL; Files_Buffer buf = NIL;
@ -673,19 +673,19 @@ void Files_ReadBytes (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x
(*r).eof = 0; (*r).eof = 0;
} }
void Files_ReadByte (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len) void Files_ReadByte (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len)
{ {
Files_ReadBytes(&*r, r__typ, (void*)x, x__len * 1, 1); Files_ReadBytes(&*r, r__typ, (void*)x, x__len * 1, 1);
} }
Files_File Files_Base (Files_Rider *r, LONGINT *r__typ) Files_File Files_Base (Files_Rider *r, address *r__typ)
{ {
Files_File _o_result; Files_File _o_result;
_o_result = (*r).buf->f; _o_result = (*r).buf->f;
return _o_result; return _o_result;
} }
void Files_Write (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE x) void Files_Write (Files_Rider *r, address *r__typ, SYSTEM_BYTE x)
{ {
Files_Buffer buf = NIL; Files_Buffer buf = NIL;
int32 offset; int32 offset;
@ -706,7 +706,7 @@ void Files_Write (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE x)
(*r).res = 0; (*r).res = 0;
} }
void Files_WriteBytes (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n) void Files_WriteBytes (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n)
{ {
int32 xpos, min, restInBuf, offset; int32 xpos, min, restInBuf, offset;
Files_Buffer buf = NIL; Files_Buffer buf = NIL;
@ -849,26 +849,26 @@ static void Files_FlipBytes (SYSTEM_BYTE *src, LONGINT src__len, SYSTEM_BYTE *de
} }
} }
void Files_ReadBool (Files_Rider *R, LONGINT *R__typ, BOOLEAN *x) void Files_ReadBool (Files_Rider *R, address *R__typ, BOOLEAN *x)
{ {
Files_Read(&*R, R__typ, (CHAR*)(void*)&*x); Files_Read(&*R, R__typ, (CHAR*)(void*)&*x);
} }
void Files_ReadInt (Files_Rider *R, LONGINT *R__typ, int16 *x) void Files_ReadInt (Files_Rider *R, address *R__typ, int16 *x)
{ {
CHAR b[2]; CHAR b[2];
Files_ReadBytes(&*R, R__typ, (void*)b, 2, 2); Files_ReadBytes(&*R, R__typ, (void*)b, 2, 2);
*x = (int16)b[0] + __ASHL((int16)b[1], 8); *x = (int16)b[0] + __ASHL((int16)b[1], 8);
} }
void Files_ReadLInt (Files_Rider *R, LONGINT *R__typ, int32 *x) void Files_ReadLInt (Files_Rider *R, address *R__typ, int32 *x)
{ {
CHAR b[4]; CHAR b[4];
Files_ReadBytes(&*R, R__typ, (void*)b, 4, 4); Files_ReadBytes(&*R, R__typ, (void*)b, 4, 4);
*x = (((int16)b[0] + __ASHL((int16)b[1], 8)) + __ASHL(b[2], 16)) + __ASHL(b[3], 24); *x = (((int16)b[0] + __ASHL((int16)b[1], 8)) + __ASHL(b[2], 16)) + __ASHL(b[3], 24);
} }
void Files_ReadSet (Files_Rider *R, LONGINT *R__typ, SET *x) void Files_ReadSet (Files_Rider *R, address *R__typ, SET *x)
{ {
CHAR b[4]; CHAR b[4];
int32 l; int32 l;
@ -877,21 +877,21 @@ void Files_ReadSet (Files_Rider *R, LONGINT *R__typ, SET *x)
*x = (SET)l; *x = (SET)l;
} }
void Files_ReadReal (Files_Rider *R, LONGINT *R__typ, REAL *x) void Files_ReadReal (Files_Rider *R, address *R__typ, REAL *x)
{ {
CHAR b[4]; CHAR b[4];
Files_ReadBytes(&*R, R__typ, (void*)b, 4, 4); Files_ReadBytes(&*R, R__typ, (void*)b, 4, 4);
Files_FlipBytes((void*)b, 4, (void*)&*x, 4); Files_FlipBytes((void*)b, 4, (void*)&*x, 4);
} }
void Files_ReadLReal (Files_Rider *R, LONGINT *R__typ, LONGREAL *x) void Files_ReadLReal (Files_Rider *R, address *R__typ, LONGREAL *x)
{ {
CHAR b[8]; CHAR b[8];
Files_ReadBytes(&*R, R__typ, (void*)b, 8, 8); Files_ReadBytes(&*R, R__typ, (void*)b, 8, 8);
Files_FlipBytes((void*)b, 8, (void*)&*x, 8); Files_FlipBytes((void*)b, 8, (void*)&*x, 8);
} }
void Files_ReadString (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len) void Files_ReadString (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len)
{ {
int16 i; int16 i;
CHAR ch; CHAR ch;
@ -903,7 +903,7 @@ void Files_ReadString (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len)
} while (!(ch == 0x00)); } while (!(ch == 0x00));
} }
void Files_ReadLine (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len) void Files_ReadLine (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len)
{ {
int16 i; int16 i;
CHAR ch; CHAR ch;
@ -921,7 +921,7 @@ void Files_ReadLine (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len)
} while (!b); } while (!b);
} }
void Files_ReadNum (Files_Rider *R, LONGINT *R__typ, int32 *x) void Files_ReadNum (Files_Rider *R, address *R__typ, int32 *x)
{ {
int8 s; int8 s;
CHAR ch; CHAR ch;
@ -938,19 +938,19 @@ void Files_ReadNum (Files_Rider *R, LONGINT *R__typ, int32 *x)
*x = n; *x = n;
} }
void Files_ReadNum64 (Files_Rider *R, LONGINT *R__typ, int64 *x) void Files_ReadNum64 (Files_Rider *R, address *R__typ, int64 *x)
{ {
int32 n; int32 n;
Files_ReadNum(&*R, R__typ, &n); Files_ReadNum(&*R, R__typ, &n);
*x = n; *x = n;
} }
void Files_WriteBool (Files_Rider *R, LONGINT *R__typ, BOOLEAN x) void Files_WriteBool (Files_Rider *R, address *R__typ, BOOLEAN x)
{ {
Files_Write(&*R, R__typ, __VAL(CHAR, x)); Files_Write(&*R, R__typ, __VAL(CHAR, x));
} }
void Files_WriteInt (Files_Rider *R, LONGINT *R__typ, int16 x) void Files_WriteInt (Files_Rider *R, address *R__typ, int16 x)
{ {
CHAR b[2]; CHAR b[2];
b[0] = (CHAR)x; b[0] = (CHAR)x;
@ -958,7 +958,7 @@ void Files_WriteInt (Files_Rider *R, LONGINT *R__typ, int16 x)
Files_WriteBytes(&*R, R__typ, (void*)b, 2, 2); Files_WriteBytes(&*R, R__typ, (void*)b, 2, 2);
} }
void Files_WriteLInt (Files_Rider *R, LONGINT *R__typ, int32 x) void Files_WriteLInt (Files_Rider *R, address *R__typ, int32 x)
{ {
CHAR b[4]; CHAR b[4];
b[0] = (CHAR)x; b[0] = (CHAR)x;
@ -968,7 +968,7 @@ void Files_WriteLInt (Files_Rider *R, LONGINT *R__typ, int32 x)
Files_WriteBytes(&*R, R__typ, (void*)b, 4, 4); Files_WriteBytes(&*R, R__typ, (void*)b, 4, 4);
} }
void Files_WriteSet (Files_Rider *R, LONGINT *R__typ, SET x) void Files_WriteSet (Files_Rider *R, address *R__typ, SET x)
{ {
CHAR b[4]; CHAR b[4];
int32 i; int32 i;
@ -980,21 +980,21 @@ void Files_WriteSet (Files_Rider *R, LONGINT *R__typ, SET x)
Files_WriteBytes(&*R, R__typ, (void*)b, 4, 4); Files_WriteBytes(&*R, R__typ, (void*)b, 4, 4);
} }
void Files_WriteReal (Files_Rider *R, LONGINT *R__typ, REAL x) void Files_WriteReal (Files_Rider *R, address *R__typ, REAL x)
{ {
CHAR b[4]; CHAR b[4];
Files_FlipBytes((void*)&x, 4, (void*)b, 4); Files_FlipBytes((void*)&x, 4, (void*)b, 4);
Files_WriteBytes(&*R, R__typ, (void*)b, 4, 4); Files_WriteBytes(&*R, R__typ, (void*)b, 4, 4);
} }
void Files_WriteLReal (Files_Rider *R, LONGINT *R__typ, LONGREAL x) void Files_WriteLReal (Files_Rider *R, address *R__typ, LONGREAL x)
{ {
CHAR b[8]; CHAR b[8];
Files_FlipBytes((void*)&x, 8, (void*)b, 8); Files_FlipBytes((void*)&x, 8, (void*)b, 8);
Files_WriteBytes(&*R, R__typ, (void*)b, 8, 8); Files_WriteBytes(&*R, R__typ, (void*)b, 8, 8);
} }
void Files_WriteString (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len) void Files_WriteString (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len)
{ {
int16 i; int16 i;
i = 0; i = 0;
@ -1004,7 +1004,7 @@ void Files_WriteString (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len
Files_WriteBytes(&*R, R__typ, (void*)x, x__len * 1, i + 1); Files_WriteBytes(&*R, R__typ, (void*)x, x__len * 1, i + 1);
} }
void Files_WriteNum (Files_Rider *R, LONGINT *R__typ, int32 x) void Files_WriteNum (Files_Rider *R, address *R__typ, int32 x)
{ {
while (x < -64 || x > 63) { while (x < -64 || x > 63) {
Files_Write(&*R, R__typ, (CHAR)(__MASK(x, -128) + 128)); Files_Write(&*R, R__typ, (CHAR)(__MASK(x, -128) + 128));
@ -1013,7 +1013,7 @@ void Files_WriteNum (Files_Rider *R, LONGINT *R__typ, int32 x)
Files_Write(&*R, R__typ, (CHAR)__MASK(x, -128)); Files_Write(&*R, R__typ, (CHAR)__MASK(x, -128));
} }
void Files_WriteNum64 (Files_Rider *R, LONGINT *R__typ, int64 x) void Files_WriteNum64 (Files_Rider *R, address *R__typ, int64 x)
{ {
while (x < -64 || x > 63) { while (x < -64 || x > 63) {
Files_Write(&*R, R__typ, (CHAR)(__MASK(x, -128) + 128)); Files_Write(&*R, R__typ, (CHAR)(__MASK(x, -128) + 128));

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin tspaSfF */ /* voc 1.95 [2016/09/23] for gcc LP64 on cygwin tspaSfF */
#ifndef Files__h #ifndef Files__h
#define Files__h #define Files__h
@ -24,10 +24,10 @@ typedef
import LONGINT *Files_FileDesc__typ; import address *Files_FileDesc__typ;
import LONGINT *Files_Rider__typ; import address *Files_Rider__typ;
import Files_File Files_Base (Files_Rider *r, LONGINT *r__typ); import Files_File Files_Base (Files_Rider *r, address *r__typ);
import void Files_ChangeDirectory (CHAR *path, LONGINT path__len, int16 *res); import void Files_ChangeDirectory (CHAR *path, LONGINT path__len, int16 *res);
import void Files_Close (Files_File f); import void Files_Close (Files_File f);
import void Files_Delete (CHAR *name, LONGINT name__len, int16 *res); import void Files_Delete (CHAR *name, LONGINT name__len, int16 *res);
@ -36,36 +36,36 @@ import void Files_GetName (Files_File f, CHAR *name, LONGINT name__len);
import int32 Files_Length (Files_File f); import int32 Files_Length (Files_File f);
import Files_File Files_New (CHAR *name, LONGINT name__len); import Files_File Files_New (CHAR *name, LONGINT name__len);
import Files_File Files_Old (CHAR *name, LONGINT name__len); import Files_File Files_Old (CHAR *name, LONGINT name__len);
import int32 Files_Pos (Files_Rider *r, LONGINT *r__typ); import int32 Files_Pos (Files_Rider *r, address *r__typ);
import void Files_Purge (Files_File f); import void Files_Purge (Files_File f);
import void Files_Read (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x); import void Files_Read (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x);
import void Files_ReadBool (Files_Rider *R, LONGINT *R__typ, BOOLEAN *x); import void Files_ReadBool (Files_Rider *R, address *R__typ, BOOLEAN *x);
import void Files_ReadByte (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len); import void Files_ReadByte (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len);
import void Files_ReadBytes (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n); import void Files_ReadBytes (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n);
import void Files_ReadInt (Files_Rider *R, LONGINT *R__typ, int16 *x); import void Files_ReadInt (Files_Rider *R, address *R__typ, int16 *x);
import void Files_ReadLInt (Files_Rider *R, LONGINT *R__typ, int32 *x); import void Files_ReadLInt (Files_Rider *R, address *R__typ, int32 *x);
import void Files_ReadLReal (Files_Rider *R, LONGINT *R__typ, LONGREAL *x); import void Files_ReadLReal (Files_Rider *R, address *R__typ, LONGREAL *x);
import void Files_ReadLine (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len); import void Files_ReadLine (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len);
import void Files_ReadNum (Files_Rider *R, LONGINT *R__typ, int32 *x); import void Files_ReadNum (Files_Rider *R, address *R__typ, int32 *x);
import void Files_ReadNum64 (Files_Rider *R, LONGINT *R__typ, int64 *x); import void Files_ReadNum64 (Files_Rider *R, address *R__typ, int64 *x);
import void Files_ReadReal (Files_Rider *R, LONGINT *R__typ, REAL *x); import void Files_ReadReal (Files_Rider *R, address *R__typ, REAL *x);
import void Files_ReadSet (Files_Rider *R, LONGINT *R__typ, SET *x); import void Files_ReadSet (Files_Rider *R, address *R__typ, SET *x);
import void Files_ReadString (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len); import void Files_ReadString (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len);
import void Files_Register (Files_File f); import void Files_Register (Files_File f);
import void Files_Rename (CHAR *old, LONGINT old__len, CHAR *new, LONGINT new__len, int16 *res); import void Files_Rename (CHAR *old, LONGINT old__len, CHAR *new, LONGINT new__len, int16 *res);
import void Files_Set (Files_Rider *r, LONGINT *r__typ, Files_File f, int32 pos); import void Files_Set (Files_Rider *r, address *r__typ, Files_File f, int32 pos);
import void Files_SetSearchPath (CHAR *path, LONGINT path__len); import void Files_SetSearchPath (CHAR *path, LONGINT path__len);
import void Files_Write (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE x); import void Files_Write (Files_Rider *r, address *r__typ, SYSTEM_BYTE x);
import void Files_WriteBool (Files_Rider *R, LONGINT *R__typ, BOOLEAN x); import void Files_WriteBool (Files_Rider *R, address *R__typ, BOOLEAN x);
import void Files_WriteBytes (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n); import void Files_WriteBytes (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n);
import void Files_WriteInt (Files_Rider *R, LONGINT *R__typ, int16 x); import void Files_WriteInt (Files_Rider *R, address *R__typ, int16 x);
import void Files_WriteLInt (Files_Rider *R, LONGINT *R__typ, int32 x); import void Files_WriteLInt (Files_Rider *R, address *R__typ, int32 x);
import void Files_WriteLReal (Files_Rider *R, LONGINT *R__typ, LONGREAL x); import void Files_WriteLReal (Files_Rider *R, address *R__typ, LONGREAL x);
import void Files_WriteNum (Files_Rider *R, LONGINT *R__typ, int32 x); import void Files_WriteNum (Files_Rider *R, address *R__typ, int32 x);
import void Files_WriteNum64 (Files_Rider *R, LONGINT *R__typ, int64 x); import void Files_WriteNum64 (Files_Rider *R, address *R__typ, int64 x);
import void Files_WriteReal (Files_Rider *R, LONGINT *R__typ, REAL x); import void Files_WriteReal (Files_Rider *R, address *R__typ, REAL x);
import void Files_WriteSet (Files_Rider *R, LONGINT *R__typ, SET x); import void Files_WriteSet (Files_Rider *R, address *R__typ, SET x);
import void Files_WriteString (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len); import void Files_WriteString (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len);
import void *Files__init(void); import void *Files__init(void);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin tsSfF */ /* voc 1.95 [2016/09/23] for gcc LP64 on cygwin tsSfF */
#define INTEGER int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32
@ -74,10 +74,10 @@ static int16 Heap_lockdepth;
static BOOLEAN Heap_interrupted; static BOOLEAN Heap_interrupted;
export int16 Heap_FileCount; export int16 Heap_FileCount;
export LONGINT *Heap_ModuleDesc__typ; export address *Heap_ModuleDesc__typ;
export LONGINT *Heap_CmdDesc__typ; export address *Heap_CmdDesc__typ;
export LONGINT *Heap_FinDesc__typ; export address *Heap_FinDesc__typ;
export LONGINT *Heap__1__typ; export address *Heap__1__typ;
static void Heap_CheckFin (void); static void Heap_CheckFin (void);
static void Heap_ExtendHeap (address blksz); static void Heap_ExtendHeap (address blksz);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin tsSfF */ /* voc 1.95 [2016/09/23] for gcc LP64 on cygwin tsSfF */
#ifndef Heap__h #ifndef Heap__h
#define Heap__h #define Heap__h
@ -34,7 +34,7 @@ import SYSTEM_PTR Heap_modules;
import address Heap_allocated, Heap_heapsize; import address Heap_allocated, Heap_heapsize;
import int16 Heap_FileCount; import int16 Heap_FileCount;
import LONGINT *Heap_ModuleDesc__typ; import address *Heap_ModuleDesc__typ;
import void Heap_FINALL (void); import void Heap_FINALL (void);
import void Heap_GC (BOOLEAN markStack); import void Heap_GC (BOOLEAN markStack);

6
bootstrap/unix-44/Modules.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 int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32
@ -43,8 +43,8 @@ export int16 Modules_res;
export CHAR Modules_resMsg[256]; export CHAR Modules_resMsg[256];
export Modules_ModuleName Modules_imported, Modules_importing; export Modules_ModuleName Modules_imported, Modules_importing;
export LONGINT *Modules_ModuleDesc__typ; export address *Modules_ModuleDesc__typ;
export LONGINT *Modules_CmdDesc__typ; export address *Modules_CmdDesc__typ;
static void Modules_Append (CHAR *a, LONGINT a__len, CHAR *b, LONGINT b__len); static void Modules_Append (CHAR *a, LONGINT a__len, CHAR *b, LONGINT b__len);
export void Modules_Free (CHAR *name, LONGINT name__len, BOOLEAN all); export void Modules_Free (CHAR *name, LONGINT name__len, BOOLEAN all);

6
bootstrap/unix-44/Modules.h
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 */
#ifndef Modules__h #ifndef Modules__h
#define Modules__h #define Modules__h
@ -40,8 +40,8 @@ import int16 Modules_res;
import CHAR Modules_resMsg[256]; import CHAR Modules_resMsg[256];
import Modules_ModuleName Modules_imported, Modules_importing; import Modules_ModuleName Modules_imported, Modules_importing;
import LONGINT *Modules_ModuleDesc__typ; import address *Modules_ModuleDesc__typ;
import LONGINT *Modules_CmdDesc__typ; import address *Modules_CmdDesc__typ;
import void Modules_Free (CHAR *name, LONGINT name__len, BOOLEAN all); import void Modules_Free (CHAR *name, LONGINT name__len, BOOLEAN all);
import Modules_Command Modules_ThisCommand (Modules_Module mod, CHAR *name, LONGINT name__len); import Modules_Command Modules_ThisCommand (Modules_Module mod, CHAR *name, LONGINT name__len);

2
bootstrap/unix-44/OPB.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 int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32

2
bootstrap/unix-44/OPB.h
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 */
#ifndef OPB__h #ifndef OPB__h
#define OPB__h #define OPB__h

8
bootstrap/unix-44/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 int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32
@ -1041,7 +1041,7 @@ static void OPC_IdentList (OPT_Object obj, int16 vis)
} else if ((obj->mode == 2 && obj->typ->comp == 4)) { } else if ((obj->mode == 2 && obj->typ->comp == 4)) {
OPC_EndStat(); OPC_EndStat();
OPC_BegStat(); OPC_BegStat();
OPM_WriteString((CHAR*)"LONGINT *", 10); OPM_WriteString((CHAR*)"address *", 10);
OPC_Ident(obj); OPC_Ident(obj);
OPM_WriteString((CHAR*)"__typ", 6); OPM_WriteString((CHAR*)"__typ", 6);
base = NIL; base = NIL;
@ -1078,7 +1078,7 @@ static void OPC_AnsiParamList (OPT_Object obj, BOOLEAN showParamNames)
OPM_WriteString((CHAR*)", LONGINT ", 11); OPM_WriteString((CHAR*)", LONGINT ", 11);
OPC_LenList(obj, 1, showParamNames); OPC_LenList(obj, 1, showParamNames);
} else if ((obj->mode == 2 && obj->typ->comp == 4)) { } else if ((obj->mode == 2 && obj->typ->comp == 4)) {
OPM_WriteString((CHAR*)", LONGINT *", 12); OPM_WriteString((CHAR*)", address *", 12);
if (showParamNames) { if (showParamNames) {
OPC_Ident(obj); OPC_Ident(obj);
OPM_WriteString((CHAR*)"__typ", 6); OPM_WriteString((CHAR*)"__typ", 6);
@ -1166,7 +1166,7 @@ static void OPC_GenDynTypes (OPT_Node n, int16 vis)
} else { } else {
OPM_WriteString((CHAR*)"export ", 8); OPM_WriteString((CHAR*)"export ", 8);
} }
OPM_WriteString((CHAR*)"LONGINT *", 10); OPM_WriteString((CHAR*)"address *", 10);
OPC_Andent(typ); OPC_Andent(typ);
OPM_WriteString((CHAR*)"__typ", 6); OPM_WriteString((CHAR*)"__typ", 6);
OPC_EndStat(); OPC_EndStat();

2
bootstrap/unix-44/OPC.h
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 */
#ifndef OPC__h #ifndef OPC__h
#define OPC__h #define OPC__h

14
bootstrap/unix-44/OPM.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 int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32
@ -41,7 +41,7 @@ static CHAR OPM_OBERON[1024];
static CHAR OPM_MODULES[1024]; static CHAR OPM_MODULES[1024];
static void OPM_Append (Files_Rider *R, LONGINT *R__typ, Files_File F); static void OPM_Append (Files_Rider *R, address *R__typ, Files_File F);
export void OPM_CloseFiles (void); export void OPM_CloseFiles (void);
export void OPM_CloseOldSym (void); export void OPM_CloseOldSym (void);
export void OPM_DeleteNewSym (void); export void OPM_DeleteNewSym (void);
@ -49,10 +49,10 @@ export void OPM_FPrint (int32 *fp, int64 val);
export void OPM_FPrintLReal (int32 *fp, LONGREAL lr); export void OPM_FPrintLReal (int32 *fp, LONGREAL lr);
export void OPM_FPrintReal (int32 *fp, REAL real); export void OPM_FPrintReal (int32 *fp, REAL real);
export void OPM_FPrintSet (int32 *fp, SET set); export void OPM_FPrintSet (int32 *fp, SET set);
static void OPM_FindLine (Files_File f, Files_Rider *r, LONGINT *r__typ, int64 pos); static void OPM_FindLine (Files_File f, Files_Rider *r, address *r__typ, int64 pos);
export void OPM_Get (CHAR *ch); export void OPM_Get (CHAR *ch);
static void OPM_GetProperties (void); static void OPM_GetProperties (void);
static void OPM_GetProperty (Texts_Scanner *S, LONGINT *S__typ, CHAR *name, LONGINT name__len, int16 *size, int16 *align); static void OPM_GetProperty (Texts_Scanner *S, address *S__typ, CHAR *name, LONGINT name__len, int16 *size, int16 *align);
export void OPM_Init (BOOLEAN *done, CHAR *mname, LONGINT mname__len); export void OPM_Init (BOOLEAN *done, CHAR *mname, LONGINT mname__len);
export void OPM_InitOptions (void); export void OPM_InitOptions (void);
export int16 OPM_Integer (int64 n); export int16 OPM_Integer (int64 n);
@ -496,7 +496,7 @@ static void OPM_LogErrMsg (int16 n)
OPM_LogWStr(errors_errors[__X(n, 350)], 128); OPM_LogWStr(errors_errors[__X(n, 350)], 128);
} }
static void OPM_FindLine (Files_File f, Files_Rider *r, LONGINT *r__typ, int64 pos) static void OPM_FindLine (Files_File f, Files_Rider *r, address *r__typ, int64 pos)
{ {
CHAR ch, cheol; CHAR ch, cheol;
if (pos < (int64)OPM_ErrorLineStartPos) { if (pos < (int64)OPM_ErrorLineStartPos) {
@ -654,7 +654,7 @@ void OPM_FPrintLReal (int32 *fp, LONGREAL lr)
OPM_FPrint(&*fp, h); OPM_FPrint(&*fp, h);
} }
static void OPM_GetProperty (Texts_Scanner *S, LONGINT *S__typ, CHAR *name, LONGINT name__len, int16 *size, int16 *align) static void OPM_GetProperty (Texts_Scanner *S, address *S__typ, CHAR *name, LONGINT name__len, int16 *size, int16 *align)
{ {
__DUP(name, name__len, CHAR); __DUP(name, name__len, CHAR);
if (((*S).class == 1 && __STRCMP((*S).s, name) == 0)) { if (((*S).class == 1 && __STRCMP((*S).s, name) == 0)) {
@ -996,7 +996,7 @@ void OPM_WriteLn (void)
Files_Write(&OPM_R[__X(OPM_currFile, 3)], Files_Rider__typ, 0x0a); Files_Write(&OPM_R[__X(OPM_currFile, 3)], Files_Rider__typ, 0x0a);
} }
static void OPM_Append (Files_Rider *R, LONGINT *R__typ, Files_File F) static void OPM_Append (Files_Rider *R, address *R__typ, Files_File F)
{ {
Files_Rider R1; Files_Rider R1;
CHAR buffer[4096]; CHAR buffer[4096];

2
bootstrap/unix-44/OPM.h
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 */
#ifndef OPM__h #ifndef OPM__h
#define OPM__h #define OPM__h

4
bootstrap/unix-44/OPP.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 int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32
@ -24,7 +24,7 @@ static OPT_Node OPP_TDinit, OPP_lastTDinit;
static int16 OPP_nofFwdPtr; static int16 OPP_nofFwdPtr;
static OPT_Struct OPP_FwdPtr[64]; static OPT_Struct OPP_FwdPtr[64];
export LONGINT *OPP__1__typ; export address *OPP__1__typ;
static void OPP_ActualParameters (OPT_Node *aparlist, OPT_Object fpar); static void OPP_ActualParameters (OPT_Node *aparlist, OPT_Object fpar);
static void OPP_ArrayType (OPT_Struct *typ, OPT_Struct *banned); static void OPP_ArrayType (OPT_Struct *typ, OPT_Struct *banned);

2
bootstrap/unix-44/OPP.h
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 */
#ifndef OPP__h #ifndef OPP__h
#define OPP__h #define OPP__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin tspaSfF */ /* voc 1.95 [2016/09/23] for gcc LP64 on cygwin tspaSfF */
#define INTEGER int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin tspaSfF */ /* voc 1.95 [2016/09/23] for gcc LP64 on cygwin tspaSfF */
#ifndef OPS__h #ifndef OPS__h
#define OPS__h #define OPS__h

14
bootstrap/unix-44/OPT.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 int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32
@ -101,12 +101,12 @@ static OPT_ExpCtxt OPT_expCtxt;
static int32 OPT_nofhdfld; static int32 OPT_nofhdfld;
static BOOLEAN OPT_newsf, OPT_findpc, OPT_extsf, OPT_sfpresent, OPT_symExtended, OPT_symNew; static BOOLEAN OPT_newsf, OPT_findpc, OPT_extsf, OPT_sfpresent, OPT_symExtended, OPT_symNew;
export LONGINT *OPT_ConstDesc__typ; export address *OPT_ConstDesc__typ;
export LONGINT *OPT_ObjDesc__typ; export address *OPT_ObjDesc__typ;
export LONGINT *OPT_StrDesc__typ; export address *OPT_StrDesc__typ;
export LONGINT *OPT_NodeDesc__typ; export address *OPT_NodeDesc__typ;
export LONGINT *OPT_ImpCtxt__typ; export address *OPT_ImpCtxt__typ;
export LONGINT *OPT_ExpCtxt__typ; export address *OPT_ExpCtxt__typ;
export void OPT_Close (void); export void OPT_Close (void);
export void OPT_CloseScope (void); export void OPT_CloseScope (void);

10
bootstrap/unix-44/OPT.h
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 */
#ifndef OPT__h #ifndef OPT__h
#define OPT__h #define OPT__h
@ -75,10 +75,10 @@ import OPT_Object OPT_GlbMod[64];
import OPS_Name OPT_SelfName; import OPS_Name OPT_SelfName;
import BOOLEAN OPT_SYSimported; import BOOLEAN OPT_SYSimported;
import LONGINT *OPT_ConstDesc__typ; import address *OPT_ConstDesc__typ;
import LONGINT *OPT_ObjDesc__typ; import address *OPT_ObjDesc__typ;
import LONGINT *OPT_StrDesc__typ; import address *OPT_StrDesc__typ;
import LONGINT *OPT_NodeDesc__typ; import address *OPT_NodeDesc__typ;
import void OPT_Close (void); import void OPT_Close (void);
import void OPT_CloseScope (void); import void OPT_CloseScope (void);

4
bootstrap/unix-44/OPV.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 int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32
@ -21,7 +21,7 @@ static int32 OPV_recno;
static OPV_ExitInfo OPV_exit; static OPV_ExitInfo OPV_exit;
static int16 OPV_nofExitLabels; static int16 OPV_nofExitLabels;
export LONGINT *OPV_ExitInfo__typ; export address *OPV_ExitInfo__typ;
static void OPV_ActualPar (OPT_Node n, OPT_Object fp); static void OPV_ActualPar (OPT_Node n, OPT_Object fp);
export void OPV_AdrAndSize (OPT_Object topScope); export void OPV_AdrAndSize (OPT_Object topScope);

2
bootstrap/unix-44/OPV.h
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 */
#ifndef OPV__h #ifndef OPV__h
#define OPV__h #define OPV__h

28
bootstrap/unix-44/Platform.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 int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32
@ -42,7 +42,7 @@ static int32 Platform_TimeStart;
export int16 Platform_SeekSet, Platform_SeekCur, Platform_SeekEnd; export int16 Platform_SeekSet, Platform_SeekCur, Platform_SeekEnd;
export CHAR Platform_nl[3]; export CHAR Platform_nl[3];
export LONGINT *Platform_FileIdentity__typ; export address *Platform_FileIdentity__typ;
export BOOLEAN Platform_Absent (int16 e); export BOOLEAN Platform_Absent (int16 e);
export int16 Platform_ArgPos (CHAR *s, LONGINT s__len); export int16 Platform_ArgPos (CHAR *s, LONGINT s__len);
@ -61,8 +61,8 @@ export void Platform_GetEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val
export void Platform_GetIntArg (int16 n, int32 *val); export void Platform_GetIntArg (int16 n, int32 *val);
export void Platform_GetTimeOfDay (int32 *sec, int32 *usec); export void Platform_GetTimeOfDay (int32 *sec, int32 *usec);
export void Platform_Halt (int32 code); export void Platform_Halt (int32 code);
export int16 Platform_Identify (int32 h, Platform_FileIdentity *identity, LONGINT *identity__typ); export int16 Platform_Identify (int32 h, Platform_FileIdentity *identity, address *identity__typ);
export int16 Platform_IdentifyByName (CHAR *n, LONGINT n__len, Platform_FileIdentity *identity, LONGINT *identity__typ); export int16 Platform_IdentifyByName (CHAR *n, LONGINT n__len, Platform_FileIdentity *identity, address *identity__typ);
export BOOLEAN Platform_Inaccessible (int16 e); export BOOLEAN Platform_Inaccessible (int16 e);
export void Platform_Init (int16 argc, address argvadr); export void Platform_Init (int16 argc, address argvadr);
export void Platform_MTimeAsClock (Platform_FileIdentity i, int32 *t, int32 *d); export void Platform_MTimeAsClock (Platform_FileIdentity i, int32 *t, int32 *d);
@ -72,8 +72,8 @@ export address Platform_OSAllocate (address size);
export void Platform_OSFree (address address); export void Platform_OSFree (address address);
export int16 Platform_OldRO (CHAR *n, LONGINT n__len, int32 *h); export int16 Platform_OldRO (CHAR *n, LONGINT n__len, int32 *h);
export int16 Platform_OldRW (CHAR *n, LONGINT n__len, int32 *h); export int16 Platform_OldRW (CHAR *n, LONGINT n__len, int32 *h);
export int16 Platform_Read (int32 h, address p, address l, address *n); export int16 Platform_Read (int32 h, address p, int32 l, int32 *n);
export int16 Platform_ReadBuf (int32 h, SYSTEM_BYTE *b, LONGINT b__len, address *n); export int16 Platform_ReadBuf (int32 h, SYSTEM_BYTE *b, LONGINT b__len, int32 *n);
export int16 Platform_Rename (CHAR *o, LONGINT o__len, CHAR *n, LONGINT n__len); export int16 Platform_Rename (CHAR *o, LONGINT o__len, CHAR *n, LONGINT n__len);
export BOOLEAN Platform_SameFile (Platform_FileIdentity i1, Platform_FileIdentity i2); export BOOLEAN Platform_SameFile (Platform_FileIdentity i1, Platform_FileIdentity i2);
export BOOLEAN Platform_SameFileTime (Platform_FileIdentity i1, Platform_FileIdentity i2); export BOOLEAN Platform_SameFileTime (Platform_FileIdentity i1, Platform_FileIdentity i2);
@ -81,9 +81,9 @@ export int16 Platform_Seek (int32 h, int32 offset, int16 whence);
export void Platform_SetBadInstructionHandler (Platform_SignalHandler handler); export void Platform_SetBadInstructionHandler (Platform_SignalHandler handler);
export void Platform_SetHalt (Platform_HaltProcedure p); export void Platform_SetHalt (Platform_HaltProcedure p);
export void Platform_SetInterruptHandler (Platform_SignalHandler handler); export void Platform_SetInterruptHandler (Platform_SignalHandler handler);
export void Platform_SetMTime (Platform_FileIdentity *target, LONGINT *target__typ, Platform_FileIdentity source); export void Platform_SetMTime (Platform_FileIdentity *target, address *target__typ, Platform_FileIdentity source);
export void Platform_SetQuitHandler (Platform_SignalHandler handler); export void Platform_SetQuitHandler (Platform_SignalHandler handler);
export int16 Platform_Size (int32 h, address *l); export int16 Platform_Size (int32 h, int32 *l);
export int16 Platform_Sync (int32 h); export int16 Platform_Sync (int32 h);
export int16 Platform_System (CHAR *cmd, LONGINT cmd__len); export int16 Platform_System (CHAR *cmd, LONGINT cmd__len);
static void Platform_TestLittleEndian (void); static void Platform_TestLittleEndian (void);
@ -446,7 +446,7 @@ int16 Platform_Close (int32 h)
__RETCHK; __RETCHK;
} }
int16 Platform_Identify (int32 h, Platform_FileIdentity *identity, LONGINT *identity__typ) int16 Platform_Identify (int32 h, Platform_FileIdentity *identity, address *identity__typ)
{ {
int16 _o_result; int16 _o_result;
Platform_structstats(); Platform_structstats();
@ -461,7 +461,7 @@ int16 Platform_Identify (int32 h, Platform_FileIdentity *identity, LONGINT *iden
return _o_result; return _o_result;
} }
int16 Platform_IdentifyByName (CHAR *n, LONGINT n__len, Platform_FileIdentity *identity, LONGINT *identity__typ) int16 Platform_IdentifyByName (CHAR *n, LONGINT n__len, Platform_FileIdentity *identity, address *identity__typ)
{ {
int16 _o_result; int16 _o_result;
__DUP(n, n__len, CHAR); __DUP(n, n__len, CHAR);
@ -493,7 +493,7 @@ BOOLEAN Platform_SameFileTime (Platform_FileIdentity i1, Platform_FileIdentity i
return _o_result; return _o_result;
} }
void Platform_SetMTime (Platform_FileIdentity *target, LONGINT *target__typ, Platform_FileIdentity source) void Platform_SetMTime (Platform_FileIdentity *target, address *target__typ, Platform_FileIdentity source)
{ {
(*target).mtime = source.mtime; (*target).mtime = source.mtime;
} }
@ -504,7 +504,7 @@ void Platform_MTimeAsClock (Platform_FileIdentity i, int32 *t, int32 *d)
Platform_YMDHMStoClock(Platform_tmyear(), Platform_tmmon(), Platform_tmmday(), Platform_tmhour(), Platform_tmmin(), Platform_tmsec(), &*t, &*d); Platform_YMDHMStoClock(Platform_tmyear(), Platform_tmmon(), Platform_tmmday(), Platform_tmhour(), Platform_tmmin(), Platform_tmsec(), &*t, &*d);
} }
int16 Platform_Size (int32 h, address *l) int16 Platform_Size (int32 h, int32 *l)
{ {
int16 _o_result; int16 _o_result;
Platform_structstats(); Platform_structstats();
@ -517,7 +517,7 @@ int16 Platform_Size (int32 h, address *l)
return _o_result; return _o_result;
} }
int16 Platform_Read (int32 h, address p, address l, address *n) int16 Platform_Read (int32 h, address p, int32 l, int32 *n)
{ {
int16 _o_result; int16 _o_result;
*n = Platform_readfile(h, p, l); *n = Platform_readfile(h, p, l);
@ -532,7 +532,7 @@ int16 Platform_Read (int32 h, address p, address l, address *n)
__RETCHK; __RETCHK;
} }
int16 Platform_ReadBuf (int32 h, SYSTEM_BYTE *b, LONGINT b__len, address *n) int16 Platform_ReadBuf (int32 h, SYSTEM_BYTE *b, LONGINT b__len, int32 *n)
{ {
int16 _o_result; int16 _o_result;
*n = Platform_readfile(h, (address)b, b__len); *n = Platform_readfile(h, (address)b, b__len);

16
bootstrap/unix-44/Platform.h
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 */
#ifndef Platform__h #ifndef Platform__h
#define Platform__h #define Platform__h
@ -27,7 +27,7 @@ import address Platform_ArgVector;
import int16 Platform_SeekSet, Platform_SeekCur, Platform_SeekEnd; import int16 Platform_SeekSet, Platform_SeekCur, Platform_SeekEnd;
import CHAR Platform_nl[3]; import CHAR Platform_nl[3];
import LONGINT *Platform_FileIdentity__typ; import address *Platform_FileIdentity__typ;
import BOOLEAN Platform_Absent (int16 e); import BOOLEAN Platform_Absent (int16 e);
import int16 Platform_ArgPos (CHAR *s, LONGINT s__len); import int16 Platform_ArgPos (CHAR *s, LONGINT s__len);
@ -45,8 +45,8 @@ import void Platform_GetEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val
import void Platform_GetIntArg (int16 n, int32 *val); import void Platform_GetIntArg (int16 n, int32 *val);
import void Platform_GetTimeOfDay (int32 *sec, int32 *usec); import void Platform_GetTimeOfDay (int32 *sec, int32 *usec);
import void Platform_Halt (int32 code); import void Platform_Halt (int32 code);
import int16 Platform_Identify (int32 h, Platform_FileIdentity *identity, LONGINT *identity__typ); import int16 Platform_Identify (int32 h, Platform_FileIdentity *identity, address *identity__typ);
import int16 Platform_IdentifyByName (CHAR *n, LONGINT n__len, Platform_FileIdentity *identity, LONGINT *identity__typ); import int16 Platform_IdentifyByName (CHAR *n, LONGINT n__len, Platform_FileIdentity *identity, address *identity__typ);
import BOOLEAN Platform_Inaccessible (int16 e); import BOOLEAN Platform_Inaccessible (int16 e);
import void Platform_Init (int16 argc, address argvadr); import void Platform_Init (int16 argc, address argvadr);
import void Platform_MTimeAsClock (Platform_FileIdentity i, int32 *t, int32 *d); import void Platform_MTimeAsClock (Platform_FileIdentity i, int32 *t, int32 *d);
@ -56,8 +56,8 @@ import address Platform_OSAllocate (address size);
import void Platform_OSFree (address address); import void Platform_OSFree (address address);
import int16 Platform_OldRO (CHAR *n, LONGINT n__len, int32 *h); import int16 Platform_OldRO (CHAR *n, LONGINT n__len, int32 *h);
import int16 Platform_OldRW (CHAR *n, LONGINT n__len, int32 *h); import int16 Platform_OldRW (CHAR *n, LONGINT n__len, int32 *h);
import int16 Platform_Read (int32 h, address p, address l, address *n); import int16 Platform_Read (int32 h, address p, int32 l, int32 *n);
import int16 Platform_ReadBuf (int32 h, SYSTEM_BYTE *b, LONGINT b__len, address *n); import int16 Platform_ReadBuf (int32 h, SYSTEM_BYTE *b, LONGINT b__len, int32 *n);
import int16 Platform_Rename (CHAR *o, LONGINT o__len, CHAR *n, LONGINT n__len); import int16 Platform_Rename (CHAR *o, LONGINT o__len, CHAR *n, LONGINT n__len);
import BOOLEAN Platform_SameFile (Platform_FileIdentity i1, Platform_FileIdentity i2); import BOOLEAN Platform_SameFile (Platform_FileIdentity i1, Platform_FileIdentity i2);
import BOOLEAN Platform_SameFileTime (Platform_FileIdentity i1, Platform_FileIdentity i2); import BOOLEAN Platform_SameFileTime (Platform_FileIdentity i1, Platform_FileIdentity i2);
@ -65,9 +65,9 @@ import int16 Platform_Seek (int32 h, int32 offset, int16 whence);
import void Platform_SetBadInstructionHandler (Platform_SignalHandler handler); import void Platform_SetBadInstructionHandler (Platform_SignalHandler handler);
import void Platform_SetHalt (Platform_HaltProcedure p); import void Platform_SetHalt (Platform_HaltProcedure p);
import void Platform_SetInterruptHandler (Platform_SignalHandler handler); import void Platform_SetInterruptHandler (Platform_SignalHandler handler);
import void Platform_SetMTime (Platform_FileIdentity *target, LONGINT *target__typ, Platform_FileIdentity source); import void Platform_SetMTime (Platform_FileIdentity *target, address *target__typ, Platform_FileIdentity source);
import void Platform_SetQuitHandler (Platform_SignalHandler handler); import void Platform_SetQuitHandler (Platform_SignalHandler handler);
import int16 Platform_Size (int32 h, address *l); import int16 Platform_Size (int32 h, int32 *l);
import int16 Platform_Sync (int32 h); import int16 Platform_Sync (int32 h);
import int16 Platform_System (CHAR *cmd, LONGINT cmd__len); import int16 Platform_System (CHAR *cmd, LONGINT cmd__len);
import int32 Platform_Time (void); import int32 Platform_Time (void);

2
bootstrap/unix-44/Reals.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 int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32

2
bootstrap/unix-44/Reals.h
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 */
#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 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 int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32

2
bootstrap/unix-44/Strings.h
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 */
#ifndef Strings__h #ifndef Strings__h
#define Strings__h #define Strings__h

154
bootstrap/unix-44/Texts.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 int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32
@ -33,7 +33,7 @@ typedef
} Texts_ElemMsg; } Texts_ElemMsg;
typedef typedef
void (*Texts_Handler)(Texts_Elem, Texts_ElemMsg*, LONGINT *); void (*Texts_Handler)(Texts_Elem, Texts_ElemMsg*, address *);
typedef typedef
struct Texts_TextDesc *Texts_Text; struct Texts_TextDesc *Texts_Text;
@ -167,20 +167,20 @@ export Texts_Elem Texts_new;
static Texts_Buffer Texts_del; static Texts_Buffer Texts_del;
static Texts_FontsFont Texts_FontsDefault; static Texts_FontsFont Texts_FontsDefault;
export LONGINT *Texts_FontDesc__typ; export address *Texts_FontDesc__typ;
export LONGINT *Texts_RunDesc__typ; export address *Texts_RunDesc__typ;
export LONGINT *Texts_PieceDesc__typ; export address *Texts_PieceDesc__typ;
export LONGINT *Texts_ElemMsg__typ; export address *Texts_ElemMsg__typ;
export LONGINT *Texts_ElemDesc__typ; export address *Texts_ElemDesc__typ;
export LONGINT *Texts_FileMsg__typ; export address *Texts_FileMsg__typ;
export LONGINT *Texts_CopyMsg__typ; export address *Texts_CopyMsg__typ;
export LONGINT *Texts_IdentifyMsg__typ; export address *Texts_IdentifyMsg__typ;
export LONGINT *Texts_BufDesc__typ; export address *Texts_BufDesc__typ;
export LONGINT *Texts_TextDesc__typ; export address *Texts_TextDesc__typ;
export LONGINT *Texts_Reader__typ; export address *Texts_Reader__typ;
export LONGINT *Texts_Scanner__typ; export address *Texts_Scanner__typ;
export LONGINT *Texts_Writer__typ; export address *Texts_Writer__typ;
export LONGINT *Texts__1__typ; export address *Texts__1__typ;
export void Texts_Append (Texts_Text T, Texts_Buffer B); export void Texts_Append (Texts_Text T, Texts_Buffer B);
export void Texts_ChangeLooks (Texts_Text T, int32 beg, int32 end, SET sel, Texts_FontsFont fnt, int8 col, int8 voff); export void Texts_ChangeLooks (Texts_Text T, int32 beg, int32 end, SET sel, Texts_FontsFont fnt, int8 col, int8 voff);
@ -194,41 +194,41 @@ export Texts_Text Texts_ElemBase (Texts_Elem E);
export int32 Texts_ElemPos (Texts_Elem E); export int32 Texts_ElemPos (Texts_Elem E);
static void Texts_Find (Texts_Text T, int32 *pos, Texts_Run *u, int32 *org, int32 *off); static void Texts_Find (Texts_Text T, int32 *pos, Texts_Run *u, int32 *org, int32 *off);
static Texts_FontsFont Texts_FontsThis (CHAR *name, LONGINT name__len); static Texts_FontsFont Texts_FontsThis (CHAR *name, LONGINT name__len);
static void Texts_HandleAlien (Texts_Elem E, Texts_ElemMsg *msg, LONGINT *msg__typ); static void Texts_HandleAlien (Texts_Elem E, Texts_ElemMsg *msg, address *msg__typ);
export void Texts_Insert (Texts_Text T, int32 pos, Texts_Buffer B); export void Texts_Insert (Texts_Text T, int32 pos, Texts_Buffer B);
export void Texts_Load (Files_Rider *r, LONGINT *r__typ, Texts_Text T); export void Texts_Load (Files_Rider *r, address *r__typ, Texts_Text T);
static void Texts_Load0 (Files_Rider *r, LONGINT *r__typ, Texts_Text T); static void Texts_Load0 (Files_Rider *r, address *r__typ, Texts_Text T);
static void Texts_Merge (Texts_Text T, Texts_Run u, Texts_Run *v); static void Texts_Merge (Texts_Text T, Texts_Run u, Texts_Run *v);
export void Texts_Open (Texts_Text T, CHAR *name, LONGINT name__len); export void Texts_Open (Texts_Text T, CHAR *name, LONGINT name__len);
export void Texts_OpenBuf (Texts_Buffer B); export void Texts_OpenBuf (Texts_Buffer B);
export void Texts_OpenReader (Texts_Reader *R, LONGINT *R__typ, Texts_Text T, int32 pos); export void Texts_OpenReader (Texts_Reader *R, address *R__typ, Texts_Text T, int32 pos);
export void Texts_OpenScanner (Texts_Scanner *S, LONGINT *S__typ, Texts_Text T, int32 pos); export void Texts_OpenScanner (Texts_Scanner *S, address *S__typ, Texts_Text T, int32 pos);
export void Texts_OpenWriter (Texts_Writer *W, LONGINT *W__typ); export void Texts_OpenWriter (Texts_Writer *W, address *W__typ);
export int32 Texts_Pos (Texts_Reader *R, LONGINT *R__typ); export int32 Texts_Pos (Texts_Reader *R, address *R__typ);
export void Texts_Read (Texts_Reader *R, LONGINT *R__typ, CHAR *ch); export void Texts_Read (Texts_Reader *R, address *R__typ, CHAR *ch);
export void Texts_ReadElem (Texts_Reader *R, LONGINT *R__typ); export void Texts_ReadElem (Texts_Reader *R, address *R__typ);
export void Texts_ReadPrevElem (Texts_Reader *R, LONGINT *R__typ); export void Texts_ReadPrevElem (Texts_Reader *R, address *R__typ);
export void Texts_Recall (Texts_Buffer *B); export void Texts_Recall (Texts_Buffer *B);
export void Texts_Save (Texts_Text T, int32 beg, int32 end, Texts_Buffer B); export void Texts_Save (Texts_Text T, int32 beg, int32 end, Texts_Buffer B);
export void Texts_Scan (Texts_Scanner *S, LONGINT *S__typ); export void Texts_Scan (Texts_Scanner *S, address *S__typ);
export void Texts_SetColor (Texts_Writer *W, LONGINT *W__typ, int8 col); export void Texts_SetColor (Texts_Writer *W, address *W__typ, int8 col);
export void Texts_SetFont (Texts_Writer *W, LONGINT *W__typ, Texts_FontsFont fnt); export void Texts_SetFont (Texts_Writer *W, address *W__typ, Texts_FontsFont fnt);
export void Texts_SetOffset (Texts_Writer *W, LONGINT *W__typ, int8 voff); export void Texts_SetOffset (Texts_Writer *W, address *W__typ, int8 voff);
static void Texts_Splice (Texts_Run un, Texts_Run v, Texts_Run w, Texts_Text base); static void Texts_Splice (Texts_Run un, Texts_Run v, Texts_Run w, Texts_Text base);
static void Texts_Split (int32 off, Texts_Run *u, Texts_Run *un); static void Texts_Split (int32 off, Texts_Run *u, Texts_Run *un);
export void Texts_Store (Files_Rider *r, LONGINT *r__typ, Texts_Text T); export void Texts_Store (Files_Rider *r, address *r__typ, Texts_Text T);
export void Texts_Write (Texts_Writer *W, LONGINT *W__typ, CHAR ch); export void Texts_Write (Texts_Writer *W, address *W__typ, CHAR ch);
export void Texts_WriteDate (Texts_Writer *W, LONGINT *W__typ, int32 t, int32 d); export void Texts_WriteDate (Texts_Writer *W, address *W__typ, int32 t, int32 d);
export void Texts_WriteElem (Texts_Writer *W, LONGINT *W__typ, Texts_Elem e); export void Texts_WriteElem (Texts_Writer *W, address *W__typ, Texts_Elem e);
export void Texts_WriteHex (Texts_Writer *W, LONGINT *W__typ, int32 x); export void Texts_WriteHex (Texts_Writer *W, address *W__typ, int32 x);
export void Texts_WriteInt (Texts_Writer *W, LONGINT *W__typ, int64 x, int64 n); export void Texts_WriteInt (Texts_Writer *W, address *W__typ, int64 x, int64 n);
export void Texts_WriteLn (Texts_Writer *W, LONGINT *W__typ); export void Texts_WriteLn (Texts_Writer *W, address *W__typ);
export void Texts_WriteLongReal (Texts_Writer *W, LONGINT *W__typ, LONGREAL x, int16 n); export void Texts_WriteLongReal (Texts_Writer *W, address *W__typ, LONGREAL x, int16 n);
export void Texts_WriteLongRealHex (Texts_Writer *W, LONGINT *W__typ, LONGREAL x); export void Texts_WriteLongRealHex (Texts_Writer *W, address *W__typ, LONGREAL x);
export void Texts_WriteReal (Texts_Writer *W, LONGINT *W__typ, REAL x, int16 n); export void Texts_WriteReal (Texts_Writer *W, address *W__typ, REAL x, int16 n);
export void Texts_WriteRealFix (Texts_Writer *W, LONGINT *W__typ, REAL x, int16 n, int16 k); export void Texts_WriteRealFix (Texts_Writer *W, address *W__typ, REAL x, int16 n, int16 k);
export void Texts_WriteRealHex (Texts_Writer *W, LONGINT *W__typ, REAL x); export void Texts_WriteRealHex (Texts_Writer *W, address *W__typ, REAL x);
export void Texts_WriteString (Texts_Writer *W, LONGINT *W__typ, CHAR *s, LONGINT s__len); export void Texts_WriteString (Texts_Writer *W, address *W__typ, CHAR *s, LONGINT s__len);
static Texts_FontsFont Texts_FontsThis (CHAR *name, LONGINT name__len) static Texts_FontsFont Texts_FontsThis (CHAR *name, LONGINT name__len)
@ -388,7 +388,7 @@ int32 Texts_ElemPos (Texts_Elem E)
return _o_result; return _o_result;
} }
static void Texts_HandleAlien (Texts_Elem E, Texts_ElemMsg *msg, LONGINT *msg__typ) static void Texts_HandleAlien (Texts_Elem E, Texts_ElemMsg *msg, address *msg__typ)
{ {
Texts_Alien e = NIL; Texts_Alien e = NIL;
Files_Rider r; Files_Rider r;
@ -604,7 +604,7 @@ void Texts_ChangeLooks (Texts_Text T, int32 beg, int32 end, SET sel, Texts_Fonts
} }
} }
void Texts_OpenReader (Texts_Reader *R, LONGINT *R__typ, Texts_Text T, int32 pos) void Texts_OpenReader (Texts_Reader *R, address *R__typ, Texts_Text T, int32 pos)
{ {
Texts_Run u = NIL; Texts_Run u = NIL;
if (pos >= T->len) { if (pos >= T->len) {
@ -618,7 +618,7 @@ void Texts_OpenReader (Texts_Reader *R, LONGINT *R__typ, Texts_Text T, int32 pos
} }
} }
void Texts_Read (Texts_Reader *R, LONGINT *R__typ, CHAR *ch) void Texts_Read (Texts_Reader *R, address *R__typ, CHAR *ch)
{ {
Texts_Run u = NIL; Texts_Run u = NIL;
int32 pos; int32 pos;
@ -663,7 +663,7 @@ void Texts_Read (Texts_Reader *R, LONGINT *R__typ, CHAR *ch)
} }
} }
void Texts_ReadElem (Texts_Reader *R, LONGINT *R__typ) void Texts_ReadElem (Texts_Reader *R, address *R__typ)
{ {
Texts_Run u = NIL, un = NIL; Texts_Run u = NIL, un = NIL;
u = (*R).run; u = (*R).run;
@ -691,7 +691,7 @@ void Texts_ReadElem (Texts_Reader *R, LONGINT *R__typ)
} }
} }
void Texts_ReadPrevElem (Texts_Reader *R, LONGINT *R__typ) void Texts_ReadPrevElem (Texts_Reader *R, address *R__typ)
{ {
Texts_Run u = NIL; Texts_Run u = NIL;
u = (*R).run->prev; u = (*R).run->prev;
@ -713,14 +713,14 @@ void Texts_ReadPrevElem (Texts_Reader *R, LONGINT *R__typ)
} }
} }
int32 Texts_Pos (Texts_Reader *R, LONGINT *R__typ) int32 Texts_Pos (Texts_Reader *R, address *R__typ)
{ {
int32 _o_result; int32 _o_result;
_o_result = (*R).org + (*R).off; _o_result = (*R).org + (*R).off;
return _o_result; return _o_result;
} }
void Texts_OpenScanner (Texts_Scanner *S, LONGINT *S__typ, Texts_Text T, int32 pos) void Texts_OpenScanner (Texts_Scanner *S, address *S__typ, Texts_Text T, int32 pos)
{ {
Texts_OpenReader((void*)&*S, S__typ, T, pos); Texts_OpenReader((void*)&*S, S__typ, T, pos);
(*S).line = 0; (*S).line = 0;
@ -729,7 +729,7 @@ void Texts_OpenScanner (Texts_Scanner *S, LONGINT *S__typ, Texts_Text T, int32 p
static struct Scan__31 { static struct Scan__31 {
Texts_Scanner *S; Texts_Scanner *S;
LONGINT *S__typ; address *S__typ;
CHAR *ch; CHAR *ch;
BOOLEAN *negE; BOOLEAN *negE;
int16 *e; int16 *e;
@ -756,7 +756,7 @@ static void ReadScaleFactor__32 (void)
} }
} }
void Texts_Scan (Texts_Scanner *S, LONGINT *S__typ) void Texts_Scan (Texts_Scanner *S, address *S__typ)
{ {
CHAR ch, term; CHAR ch, term;
BOOLEAN neg, negE, hex; BOOLEAN neg, negE, hex;
@ -962,7 +962,7 @@ void Texts_Scan (Texts_Scanner *S, LONGINT *S__typ)
Scan__31_s = _s.lnk; Scan__31_s = _s.lnk;
} }
void Texts_OpenWriter (Texts_Writer *W, LONGINT *W__typ) void Texts_OpenWriter (Texts_Writer *W, address *W__typ)
{ {
__NEW((*W).buf, Texts_BufDesc); __NEW((*W).buf, Texts_BufDesc);
Texts_OpenBuf((*W).buf); Texts_OpenBuf((*W).buf);
@ -973,22 +973,22 @@ void Texts_OpenWriter (Texts_Writer *W, LONGINT *W__typ)
Files_Set(&(*W).rider, Files_Rider__typ, (*W).file, 0); Files_Set(&(*W).rider, Files_Rider__typ, (*W).file, 0);
} }
void Texts_SetFont (Texts_Writer *W, LONGINT *W__typ, Texts_FontsFont fnt) void Texts_SetFont (Texts_Writer *W, address *W__typ, Texts_FontsFont fnt)
{ {
(*W).fnt = fnt; (*W).fnt = fnt;
} }
void Texts_SetColor (Texts_Writer *W, LONGINT *W__typ, int8 col) void Texts_SetColor (Texts_Writer *W, address *W__typ, int8 col)
{ {
(*W).col = col; (*W).col = col;
} }
void Texts_SetOffset (Texts_Writer *W, LONGINT *W__typ, int8 voff) void Texts_SetOffset (Texts_Writer *W, address *W__typ, int8 voff)
{ {
(*W).voff = voff; (*W).voff = voff;
} }
void Texts_Write (Texts_Writer *W, LONGINT *W__typ, CHAR ch) void Texts_Write (Texts_Writer *W, address *W__typ, CHAR ch)
{ {
Texts_Run u = NIL, un = NIL; Texts_Run u = NIL, un = NIL;
Texts_Piece p = NIL; Texts_Piece p = NIL;
@ -1014,7 +1014,7 @@ void Texts_Write (Texts_Writer *W, LONGINT *W__typ, CHAR ch)
} }
} }
void Texts_WriteElem (Texts_Writer *W, LONGINT *W__typ, Texts_Elem e) void Texts_WriteElem (Texts_Writer *W, address *W__typ, Texts_Elem e)
{ {
Texts_Run u = NIL, un = NIL; Texts_Run u = NIL, un = NIL;
if (e->base != NIL) { if (e->base != NIL) {
@ -1033,12 +1033,12 @@ void Texts_WriteElem (Texts_Writer *W, LONGINT *W__typ, Texts_Elem e)
un->prev = (Texts_Run)e; un->prev = (Texts_Run)e;
} }
void Texts_WriteLn (Texts_Writer *W, LONGINT *W__typ) void Texts_WriteLn (Texts_Writer *W, address *W__typ)
{ {
Texts_Write(&*W, W__typ, 0x0d); Texts_Write(&*W, W__typ, 0x0d);
} }
void Texts_WriteString (Texts_Writer *W, LONGINT *W__typ, CHAR *s, LONGINT s__len) void Texts_WriteString (Texts_Writer *W, address *W__typ, CHAR *s, LONGINT s__len)
{ {
int16 i; int16 i;
__DUP(s, s__len, CHAR); __DUP(s, s__len, CHAR);
@ -1050,7 +1050,7 @@ void Texts_WriteString (Texts_Writer *W, LONGINT *W__typ, CHAR *s, LONGINT s__le
__DEL(s); __DEL(s);
} }
void Texts_WriteInt (Texts_Writer *W, LONGINT *W__typ, int64 x, int64 n) void Texts_WriteInt (Texts_Writer *W, address *W__typ, int64 x, int64 n)
{ {
int16 i; int16 i;
int64 x0; int64 x0;
@ -1085,7 +1085,7 @@ void Texts_WriteInt (Texts_Writer *W, LONGINT *W__typ, int64 x, int64 n)
} while (!(i == 0)); } while (!(i == 0));
} }
void Texts_WriteHex (Texts_Writer *W, LONGINT *W__typ, int32 x) void Texts_WriteHex (Texts_Writer *W, address *W__typ, int32 x)
{ {
int16 i; int16 i;
int32 y; int32 y;
@ -1108,7 +1108,7 @@ void Texts_WriteHex (Texts_Writer *W, LONGINT *W__typ, int32 x)
} while (!(i == 0)); } while (!(i == 0));
} }
void Texts_WriteReal (Texts_Writer *W, LONGINT *W__typ, REAL x, int16 n) void Texts_WriteReal (Texts_Writer *W, address *W__typ, REAL x, int16 n)
{ {
int16 e; int16 e;
REAL x0; REAL x0;
@ -1180,7 +1180,7 @@ void Texts_WriteReal (Texts_Writer *W, LONGINT *W__typ, REAL x, int16 n)
static struct WriteRealFix__53 { static struct WriteRealFix__53 {
Texts_Writer *W; Texts_Writer *W;
LONGINT *W__typ; address *W__typ;
int16 *i; int16 *i;
CHAR (*d)[9]; CHAR (*d)[9];
struct WriteRealFix__53 *lnk; struct WriteRealFix__53 *lnk;
@ -1206,7 +1206,7 @@ static void dig__54 (int16 n)
} }
} }
void Texts_WriteRealFix (Texts_Writer *W, LONGINT *W__typ, REAL x, int16 n, int16 k) void Texts_WriteRealFix (Texts_Writer *W, address *W__typ, REAL x, int16 n, int16 k)
{ {
int16 e, i; int16 e, i;
CHAR sign; CHAR sign;
@ -1278,7 +1278,7 @@ void Texts_WriteRealFix (Texts_Writer *W, LONGINT *W__typ, REAL x, int16 n, int1
WriteRealFix__53_s = _s.lnk; WriteRealFix__53_s = _s.lnk;
} }
void Texts_WriteRealHex (Texts_Writer *W, LONGINT *W__typ, REAL x) void Texts_WriteRealHex (Texts_Writer *W, address *W__typ, REAL x)
{ {
int16 i; int16 i;
CHAR d[8]; CHAR d[8];
@ -1290,7 +1290,7 @@ void Texts_WriteRealHex (Texts_Writer *W, LONGINT *W__typ, REAL x)
} while (!(i == 8)); } while (!(i == 8));
} }
void Texts_WriteLongReal (Texts_Writer *W, LONGINT *W__typ, LONGREAL x, int16 n) void Texts_WriteLongReal (Texts_Writer *W, address *W__typ, LONGREAL x, int16 n)
{ {
int16 e; int16 e;
LONGREAL x0; LONGREAL x0;
@ -1362,7 +1362,7 @@ void Texts_WriteLongReal (Texts_Writer *W, LONGINT *W__typ, LONGREAL x, int16 n)
} }
} }
void Texts_WriteLongRealHex (Texts_Writer *W, LONGINT *W__typ, LONGREAL x) void Texts_WriteLongRealHex (Texts_Writer *W, address *W__typ, LONGREAL x)
{ {
int16 i; int16 i;
CHAR d[16]; CHAR d[16];
@ -1376,7 +1376,7 @@ void Texts_WriteLongRealHex (Texts_Writer *W, LONGINT *W__typ, LONGREAL x)
static struct WriteDate__43 { static struct WriteDate__43 {
Texts_Writer *W; Texts_Writer *W;
LONGINT *W__typ; address *W__typ;
struct WriteDate__43 *lnk; struct WriteDate__43 *lnk;
} *WriteDate__43_s; } *WriteDate__43_s;
@ -1389,7 +1389,7 @@ static void WritePair__44 (CHAR ch, int32 x)
Texts_Write(&*WriteDate__43_s->W, WriteDate__43_s->W__typ, (CHAR)((int)__MOD(x, 10) + 48)); Texts_Write(&*WriteDate__43_s->W, WriteDate__43_s->W__typ, (CHAR)((int)__MOD(x, 10) + 48));
} }
void Texts_WriteDate (Texts_Writer *W, LONGINT *W__typ, int32 t, int32 d) void Texts_WriteDate (Texts_Writer *W, address *W__typ, int32 t, int32 d)
{ {
struct WriteDate__43 _s; struct WriteDate__43 _s;
_s.W = W; _s.W__typ = W__typ; _s.W = W; _s.W__typ = W__typ;
@ -1413,9 +1413,9 @@ static struct Load0__16 {
struct Load0__16 *lnk; struct Load0__16 *lnk;
} *Load0__16_s; } *Load0__16_s;
static void LoadElem__17 (Files_Rider *r, LONGINT *r__typ, int32 pos, int32 span, Texts_Elem *e); static void LoadElem__17 (Files_Rider *r, address *r__typ, int32 pos, int32 span, Texts_Elem *e);
static void LoadElem__17 (Files_Rider *r, LONGINT *r__typ, int32 pos, int32 span, Texts_Elem *e) static void LoadElem__17 (Files_Rider *r, address *r__typ, int32 pos, int32 span, Texts_Elem *e)
{ {
Modules_Module M = NIL; Modules_Module M = NIL;
Modules_Command Cmd; Modules_Command Cmd;
@ -1466,7 +1466,7 @@ static void LoadElem__17 (Files_Rider *r, LONGINT *r__typ, int32 pos, int32 span
} }
} }
static void Texts_Load0 (Files_Rider *r, LONGINT *r__typ, Texts_Text T) static void Texts_Load0 (Files_Rider *r, address *r__typ, Texts_Text T)
{ {
Texts_Run u = NIL, un = NIL; Texts_Run u = NIL, un = NIL;
Texts_Piece p = NIL; Texts_Piece p = NIL;
@ -1540,7 +1540,7 @@ static void Texts_Load0 (Files_Rider *r, LONGINT *r__typ, Texts_Text T)
Load0__16_s = _s.lnk; Load0__16_s = _s.lnk;
} }
void Texts_Load (Files_Rider *r, LONGINT *r__typ, Texts_Text T) void Texts_Load (Files_Rider *r, address *r__typ, Texts_Text T)
{ {
int16 tag; int16 tag;
Files_ReadInt(&*r, r__typ, &tag); Files_ReadInt(&*r, r__typ, &tag);
@ -1614,9 +1614,9 @@ static struct Store__39 {
struct Store__39 *lnk; struct Store__39 *lnk;
} *Store__39_s; } *Store__39_s;
static void StoreElem__40 (Files_Rider *r, LONGINT *r__typ, int32 pos, Texts_Elem e); static void StoreElem__40 (Files_Rider *r, address *r__typ, int32 pos, Texts_Elem e);
static void StoreElem__40 (Files_Rider *r, LONGINT *r__typ, int32 pos, Texts_Elem e) static void StoreElem__40 (Files_Rider *r, address *r__typ, int32 pos, Texts_Elem e)
{ {
Files_Rider r1; Files_Rider r1;
int32 org, span; int32 org, span;
@ -1646,7 +1646,7 @@ static void StoreElem__40 (Files_Rider *r, LONGINT *r__typ, int32 pos, Texts_Ele
Files_WriteLInt(&r1, Files_Rider__typ, e->H); Files_WriteLInt(&r1, Files_Rider__typ, e->H);
} }
void Texts_Store (Files_Rider *r, LONGINT *r__typ, Texts_Text T) void Texts_Store (Files_Rider *r, address *r__typ, Texts_Text T)
{ {
Files_Rider r1; Files_Rider r1;
Texts_Run u = NIL, un = NIL; Texts_Run u = NIL, un = NIL;

78
bootstrap/unix-44/Texts.h
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 */
#ifndef Texts__h #ifndef Texts__h
#define Texts__h #define Texts__h
@ -35,7 +35,7 @@ typedef
} Texts_RunDesc; } Texts_RunDesc;
typedef typedef
void (*Texts_Handler)(Texts_Elem, Texts_ElemMsg*, LONGINT *); void (*Texts_Handler)(Texts_Elem, Texts_ElemMsg*, address *);
typedef typedef
struct Texts_ElemDesc { struct Texts_ElemDesc {
@ -115,18 +115,18 @@ typedef
import Texts_Elem Texts_new; import Texts_Elem Texts_new;
import LONGINT *Texts_FontDesc__typ; import address *Texts_FontDesc__typ;
import LONGINT *Texts_RunDesc__typ; import address *Texts_RunDesc__typ;
import LONGINT *Texts_ElemMsg__typ; import address *Texts_ElemMsg__typ;
import LONGINT *Texts_ElemDesc__typ; import address *Texts_ElemDesc__typ;
import LONGINT *Texts_FileMsg__typ; import address *Texts_FileMsg__typ;
import LONGINT *Texts_CopyMsg__typ; import address *Texts_CopyMsg__typ;
import LONGINT *Texts_IdentifyMsg__typ; import address *Texts_IdentifyMsg__typ;
import LONGINT *Texts_BufDesc__typ; import address *Texts_BufDesc__typ;
import LONGINT *Texts_TextDesc__typ; import address *Texts_TextDesc__typ;
import LONGINT *Texts_Reader__typ; import address *Texts_Reader__typ;
import LONGINT *Texts_Scanner__typ; import address *Texts_Scanner__typ;
import LONGINT *Texts_Writer__typ; import address *Texts_Writer__typ;
import void Texts_Append (Texts_Text T, Texts_Buffer B); import void Texts_Append (Texts_Text T, Texts_Buffer B);
import void Texts_ChangeLooks (Texts_Text T, int32 beg, int32 end, SET sel, Texts_FontsFont fnt, int8 col, int8 voff); import void Texts_ChangeLooks (Texts_Text T, int32 beg, int32 end, SET sel, Texts_FontsFont fnt, int8 col, int8 voff);
@ -137,35 +137,35 @@ import void Texts_Delete (Texts_Text T, int32 beg, int32 end);
import Texts_Text Texts_ElemBase (Texts_Elem E); import Texts_Text Texts_ElemBase (Texts_Elem E);
import int32 Texts_ElemPos (Texts_Elem E); import int32 Texts_ElemPos (Texts_Elem E);
import void Texts_Insert (Texts_Text T, int32 pos, Texts_Buffer B); import void Texts_Insert (Texts_Text T, int32 pos, Texts_Buffer B);
import void Texts_Load (Files_Rider *r, LONGINT *r__typ, Texts_Text T); import void Texts_Load (Files_Rider *r, address *r__typ, Texts_Text T);
import void Texts_Open (Texts_Text T, CHAR *name, LONGINT name__len); import void Texts_Open (Texts_Text T, CHAR *name, LONGINT name__len);
import void Texts_OpenBuf (Texts_Buffer B); import void Texts_OpenBuf (Texts_Buffer B);
import void Texts_OpenReader (Texts_Reader *R, LONGINT *R__typ, Texts_Text T, int32 pos); import void Texts_OpenReader (Texts_Reader *R, address *R__typ, Texts_Text T, int32 pos);
import void Texts_OpenScanner (Texts_Scanner *S, LONGINT *S__typ, Texts_Text T, int32 pos); import void Texts_OpenScanner (Texts_Scanner *S, address *S__typ, Texts_Text T, int32 pos);
import void Texts_OpenWriter (Texts_Writer *W, LONGINT *W__typ); import void Texts_OpenWriter (Texts_Writer *W, address *W__typ);
import int32 Texts_Pos (Texts_Reader *R, LONGINT *R__typ); import int32 Texts_Pos (Texts_Reader *R, address *R__typ);
import void Texts_Read (Texts_Reader *R, LONGINT *R__typ, CHAR *ch); import void Texts_Read (Texts_Reader *R, address *R__typ, CHAR *ch);
import void Texts_ReadElem (Texts_Reader *R, LONGINT *R__typ); import void Texts_ReadElem (Texts_Reader *R, address *R__typ);
import void Texts_ReadPrevElem (Texts_Reader *R, LONGINT *R__typ); import void Texts_ReadPrevElem (Texts_Reader *R, address *R__typ);
import void Texts_Recall (Texts_Buffer *B); import void Texts_Recall (Texts_Buffer *B);
import void Texts_Save (Texts_Text T, int32 beg, int32 end, Texts_Buffer B); import void Texts_Save (Texts_Text T, int32 beg, int32 end, Texts_Buffer B);
import void Texts_Scan (Texts_Scanner *S, LONGINT *S__typ); import void Texts_Scan (Texts_Scanner *S, address *S__typ);
import void Texts_SetColor (Texts_Writer *W, LONGINT *W__typ, int8 col); import void Texts_SetColor (Texts_Writer *W, address *W__typ, int8 col);
import void Texts_SetFont (Texts_Writer *W, LONGINT *W__typ, Texts_FontsFont fnt); import void Texts_SetFont (Texts_Writer *W, address *W__typ, Texts_FontsFont fnt);
import void Texts_SetOffset (Texts_Writer *W, LONGINT *W__typ, int8 voff); import void Texts_SetOffset (Texts_Writer *W, address *W__typ, int8 voff);
import void Texts_Store (Files_Rider *r, LONGINT *r__typ, Texts_Text T); import void Texts_Store (Files_Rider *r, address *r__typ, Texts_Text T);
import void Texts_Write (Texts_Writer *W, LONGINT *W__typ, CHAR ch); import void Texts_Write (Texts_Writer *W, address *W__typ, CHAR ch);
import void Texts_WriteDate (Texts_Writer *W, LONGINT *W__typ, int32 t, int32 d); import void Texts_WriteDate (Texts_Writer *W, address *W__typ, int32 t, int32 d);
import void Texts_WriteElem (Texts_Writer *W, LONGINT *W__typ, Texts_Elem e); import void Texts_WriteElem (Texts_Writer *W, address *W__typ, Texts_Elem e);
import void Texts_WriteHex (Texts_Writer *W, LONGINT *W__typ, int32 x); import void Texts_WriteHex (Texts_Writer *W, address *W__typ, int32 x);
import void Texts_WriteInt (Texts_Writer *W, LONGINT *W__typ, int64 x, int64 n); import void Texts_WriteInt (Texts_Writer *W, address *W__typ, int64 x, int64 n);
import void Texts_WriteLn (Texts_Writer *W, LONGINT *W__typ); import void Texts_WriteLn (Texts_Writer *W, address *W__typ);
import void Texts_WriteLongReal (Texts_Writer *W, LONGINT *W__typ, LONGREAL x, int16 n); import void Texts_WriteLongReal (Texts_Writer *W, address *W__typ, LONGREAL x, int16 n);
import void Texts_WriteLongRealHex (Texts_Writer *W, LONGINT *W__typ, LONGREAL x); import void Texts_WriteLongRealHex (Texts_Writer *W, address *W__typ, LONGREAL x);
import void Texts_WriteReal (Texts_Writer *W, LONGINT *W__typ, REAL x, int16 n); import void Texts_WriteReal (Texts_Writer *W, address *W__typ, REAL x, int16 n);
import void Texts_WriteRealFix (Texts_Writer *W, LONGINT *W__typ, REAL x, int16 n, int16 k); import void Texts_WriteRealFix (Texts_Writer *W, address *W__typ, REAL x, int16 n, int16 k);
import void Texts_WriteRealHex (Texts_Writer *W, LONGINT *W__typ, REAL x); import void Texts_WriteRealHex (Texts_Writer *W, address *W__typ, REAL x);
import void Texts_WriteString (Texts_Writer *W, LONGINT *W__typ, CHAR *s, LONGINT s__len); import void Texts_WriteString (Texts_Writer *W, address *W__typ, CHAR *s, LONGINT s__len);
import void *Texts__init(void); import void *Texts__init(void);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspamSf */ /* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspamSf */
#define INTEGER int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32

2
bootstrap/unix-44/errors.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 int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32

2
bootstrap/unix-44/errors.h
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 */
#ifndef errors__h #ifndef errors__h
#define errors__h #define errors__h

2
bootstrap/unix-44/extTools.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 int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32

2
bootstrap/unix-44/extTools.h
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 */
#ifndef extTools__h #ifndef extTools__h
#define extTools__h #define extTools__h

2
bootstrap/unix-44/vt100.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 int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32

2
bootstrap/unix-44/vt100.h
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 */
#ifndef vt100__h #ifndef vt100__h
#define vt100__h #define vt100__h

4
bootstrap/unix-48/Configuration.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 int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32
@ -18,6 +18,6 @@ export void *Configuration__init(void)
__DEFMOD; __DEFMOD;
__REGMOD("Configuration", 0); __REGMOD("Configuration", 0);
/* BEGIN */ /* BEGIN */
__MOVE("1.95 [2016/09/22] for gcc LP64 on cygwin", Configuration_versionLong, 41); __MOVE("1.95 [2016/09/23] for gcc LP64 on cygwin", Configuration_versionLong, 41);
__ENDMOD; __ENDMOD;
} }

2
bootstrap/unix-48/Configuration.h
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 */
#ifndef Configuration__h #ifndef Configuration__h
#define Configuration__h #define Configuration__h

6
bootstrap/unix-48/Console.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 int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32
@ -118,10 +118,10 @@ void Console_Hex (int32 i)
void Console_Read (CHAR *ch) void Console_Read (CHAR *ch)
{ {
address n; int32 n;
int16 error; int16 error;
Console_Flush(); Console_Flush();
error = Platform_ReadBuf(0, (void*)&*ch, 1, (void*)&n); error = Platform_ReadBuf(0, (void*)&*ch, 1, &n);
if (n != 1) { if (n != 1) {
*ch = 0x00; *ch = 0x00;
} }

2
bootstrap/unix-48/Console.h
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 */
#ifndef Console__h #ifndef Console__h
#define Console__h #define Console__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin tspaSfF */ /* voc 1.95 [2016/09/23] for gcc LP64 on cygwin tspaSfF */
#define INTEGER int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32
@ -56,11 +56,11 @@ static struct {
CHAR data[1]; CHAR data[1];
} *Files_SearchPath; } *Files_SearchPath;
export LONGINT *Files_FileDesc__typ; export address *Files_FileDesc__typ;
export LONGINT *Files_BufDesc__typ; export address *Files_BufDesc__typ;
export LONGINT *Files_Rider__typ; export address *Files_Rider__typ;
export Files_File Files_Base (Files_Rider *r, LONGINT *r__typ); export Files_File Files_Base (Files_Rider *r, address *r__typ);
static Files_File Files_CacheEntry (Platform_FileIdentity identity); static Files_File Files_CacheEntry (Platform_FileIdentity identity);
export void Files_ChangeDirectory (CHAR *path, LONGINT path__len, int16 *res); export void Files_ChangeDirectory (CHAR *path, LONGINT path__len, int16 *res);
export void Files_Close (Files_File f); export void Files_Close (Files_File f);
@ -79,37 +79,37 @@ export int32 Files_Length (Files_File f);
static void Files_MakeFileName (CHAR *dir, LONGINT dir__len, CHAR *name, LONGINT name__len, CHAR *dest, LONGINT dest__len); static void Files_MakeFileName (CHAR *dir, LONGINT dir__len, CHAR *name, LONGINT name__len, CHAR *dest, LONGINT dest__len);
export Files_File Files_New (CHAR *name, LONGINT name__len); export Files_File Files_New (CHAR *name, LONGINT name__len);
export Files_File Files_Old (CHAR *name, LONGINT name__len); export Files_File Files_Old (CHAR *name, LONGINT name__len);
export int32 Files_Pos (Files_Rider *r, LONGINT *r__typ); export int32 Files_Pos (Files_Rider *r, address *r__typ);
export void Files_Purge (Files_File f); export void Files_Purge (Files_File f);
export void Files_Read (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x); export void Files_Read (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x);
export void Files_ReadBool (Files_Rider *R, LONGINT *R__typ, BOOLEAN *x); export void Files_ReadBool (Files_Rider *R, address *R__typ, BOOLEAN *x);
export void Files_ReadByte (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len); export void Files_ReadByte (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len);
export void Files_ReadBytes (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n); export void Files_ReadBytes (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n);
export void Files_ReadInt (Files_Rider *R, LONGINT *R__typ, int16 *x); export void Files_ReadInt (Files_Rider *R, address *R__typ, int16 *x);
export void Files_ReadLInt (Files_Rider *R, LONGINT *R__typ, int32 *x); export void Files_ReadLInt (Files_Rider *R, address *R__typ, int32 *x);
export void Files_ReadLReal (Files_Rider *R, LONGINT *R__typ, LONGREAL *x); export void Files_ReadLReal (Files_Rider *R, address *R__typ, LONGREAL *x);
export void Files_ReadLine (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len); export void Files_ReadLine (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len);
export void Files_ReadNum (Files_Rider *R, LONGINT *R__typ, int32 *x); export void Files_ReadNum (Files_Rider *R, address *R__typ, int32 *x);
export void Files_ReadNum64 (Files_Rider *R, LONGINT *R__typ, int64 *x); export void Files_ReadNum64 (Files_Rider *R, address *R__typ, int64 *x);
export void Files_ReadReal (Files_Rider *R, LONGINT *R__typ, REAL *x); export void Files_ReadReal (Files_Rider *R, address *R__typ, REAL *x);
export void Files_ReadSet (Files_Rider *R, LONGINT *R__typ, SET *x); export void Files_ReadSet (Files_Rider *R, address *R__typ, SET *x);
export void Files_ReadString (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len); export void Files_ReadString (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len);
export void Files_Register (Files_File f); export void Files_Register (Files_File f);
export void Files_Rename (CHAR *old, LONGINT old__len, CHAR *new, LONGINT new__len, int16 *res); export void Files_Rename (CHAR *old, LONGINT old__len, CHAR *new, LONGINT new__len, int16 *res);
static void Files_ScanPath (int16 *pos, CHAR *dir, LONGINT dir__len); static void Files_ScanPath (int16 *pos, CHAR *dir, LONGINT dir__len);
export void Files_Set (Files_Rider *r, LONGINT *r__typ, Files_File f, int32 pos); export void Files_Set (Files_Rider *r, address *r__typ, Files_File f, int32 pos);
export void Files_SetSearchPath (CHAR *path, LONGINT path__len); export void Files_SetSearchPath (CHAR *path, LONGINT path__len);
export void Files_Write (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE x); export void Files_Write (Files_Rider *r, address *r__typ, SYSTEM_BYTE x);
export void Files_WriteBool (Files_Rider *R, LONGINT *R__typ, BOOLEAN x); export void Files_WriteBool (Files_Rider *R, address *R__typ, BOOLEAN x);
export void Files_WriteBytes (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n); export void Files_WriteBytes (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n);
export void Files_WriteInt (Files_Rider *R, LONGINT *R__typ, int16 x); export void Files_WriteInt (Files_Rider *R, address *R__typ, int16 x);
export void Files_WriteLInt (Files_Rider *R, LONGINT *R__typ, int32 x); export void Files_WriteLInt (Files_Rider *R, address *R__typ, int32 x);
export void Files_WriteLReal (Files_Rider *R, LONGINT *R__typ, LONGREAL x); export void Files_WriteLReal (Files_Rider *R, address *R__typ, LONGREAL x);
export void Files_WriteNum (Files_Rider *R, LONGINT *R__typ, int32 x); export void Files_WriteNum (Files_Rider *R, address *R__typ, int32 x);
export void Files_WriteNum64 (Files_Rider *R, LONGINT *R__typ, int64 x); export void Files_WriteNum64 (Files_Rider *R, address *R__typ, int64 x);
export void Files_WriteReal (Files_Rider *R, LONGINT *R__typ, REAL x); export void Files_WriteReal (Files_Rider *R, address *R__typ, REAL x);
export void Files_WriteSet (Files_Rider *R, LONGINT *R__typ, SET x); export void Files_WriteSet (Files_Rider *R, address *R__typ, SET x);
export void Files_WriteString (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len); export void Files_WriteString (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len);
#define Files_IdxTrap() __HALT(-1) #define Files_IdxTrap() __HALT(-1)
@ -544,14 +544,14 @@ void Files_GetDate (Files_File f, int32 *t, int32 *d)
Platform_MTimeAsClock(identity, &*t, &*d); Platform_MTimeAsClock(identity, &*t, &*d);
} }
int32 Files_Pos (Files_Rider *r, LONGINT *r__typ) int32 Files_Pos (Files_Rider *r, address *r__typ)
{ {
int32 _o_result; int32 _o_result;
_o_result = (*r).org + (*r).offset; _o_result = (*r).org + (*r).offset;
return _o_result; return _o_result;
} }
void Files_Set (Files_Rider *r, LONGINT *r__typ, Files_File f, int32 pos) void Files_Set (Files_Rider *r, address *r__typ, Files_File f, int32 pos)
{ {
int32 org, offset, i, n; int32 org, offset, i, n;
Files_Buffer buf = NIL; Files_Buffer buf = NIL;
@ -613,7 +613,7 @@ void Files_Set (Files_Rider *r, LONGINT *r__typ, Files_File f, int32 pos)
(*r).res = 0; (*r).res = 0;
} }
void Files_Read (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x) void Files_Read (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x)
{ {
int32 offset; int32 offset;
Files_Buffer buf = NIL; Files_Buffer buf = NIL;
@ -637,7 +637,7 @@ void Files_Read (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x)
} }
} }
void Files_ReadBytes (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n) void Files_ReadBytes (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n)
{ {
int32 xpos, min, restInBuf, offset; int32 xpos, min, restInBuf, offset;
Files_Buffer buf = NIL; Files_Buffer buf = NIL;
@ -673,19 +673,19 @@ void Files_ReadBytes (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x
(*r).eof = 0; (*r).eof = 0;
} }
void Files_ReadByte (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len) void Files_ReadByte (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len)
{ {
Files_ReadBytes(&*r, r__typ, (void*)x, x__len * 1, 1); Files_ReadBytes(&*r, r__typ, (void*)x, x__len * 1, 1);
} }
Files_File Files_Base (Files_Rider *r, LONGINT *r__typ) Files_File Files_Base (Files_Rider *r, address *r__typ)
{ {
Files_File _o_result; Files_File _o_result;
_o_result = (*r).buf->f; _o_result = (*r).buf->f;
return _o_result; return _o_result;
} }
void Files_Write (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE x) void Files_Write (Files_Rider *r, address *r__typ, SYSTEM_BYTE x)
{ {
Files_Buffer buf = NIL; Files_Buffer buf = NIL;
int32 offset; int32 offset;
@ -706,7 +706,7 @@ void Files_Write (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE x)
(*r).res = 0; (*r).res = 0;
} }
void Files_WriteBytes (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n) void Files_WriteBytes (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n)
{ {
int32 xpos, min, restInBuf, offset; int32 xpos, min, restInBuf, offset;
Files_Buffer buf = NIL; Files_Buffer buf = NIL;
@ -849,26 +849,26 @@ static void Files_FlipBytes (SYSTEM_BYTE *src, LONGINT src__len, SYSTEM_BYTE *de
} }
} }
void Files_ReadBool (Files_Rider *R, LONGINT *R__typ, BOOLEAN *x) void Files_ReadBool (Files_Rider *R, address *R__typ, BOOLEAN *x)
{ {
Files_Read(&*R, R__typ, (CHAR*)(void*)&*x); Files_Read(&*R, R__typ, (CHAR*)(void*)&*x);
} }
void Files_ReadInt (Files_Rider *R, LONGINT *R__typ, int16 *x) void Files_ReadInt (Files_Rider *R, address *R__typ, int16 *x)
{ {
CHAR b[2]; CHAR b[2];
Files_ReadBytes(&*R, R__typ, (void*)b, 2, 2); Files_ReadBytes(&*R, R__typ, (void*)b, 2, 2);
*x = (int16)b[0] + __ASHL((int16)b[1], 8); *x = (int16)b[0] + __ASHL((int16)b[1], 8);
} }
void Files_ReadLInt (Files_Rider *R, LONGINT *R__typ, int32 *x) void Files_ReadLInt (Files_Rider *R, address *R__typ, int32 *x)
{ {
CHAR b[4]; CHAR b[4];
Files_ReadBytes(&*R, R__typ, (void*)b, 4, 4); Files_ReadBytes(&*R, R__typ, (void*)b, 4, 4);
*x = (((int16)b[0] + __ASHL((int16)b[1], 8)) + __ASHL(b[2], 16)) + __ASHL(b[3], 24); *x = (((int16)b[0] + __ASHL((int16)b[1], 8)) + __ASHL(b[2], 16)) + __ASHL(b[3], 24);
} }
void Files_ReadSet (Files_Rider *R, LONGINT *R__typ, SET *x) void Files_ReadSet (Files_Rider *R, address *R__typ, SET *x)
{ {
CHAR b[4]; CHAR b[4];
int32 l; int32 l;
@ -877,21 +877,21 @@ void Files_ReadSet (Files_Rider *R, LONGINT *R__typ, SET *x)
*x = (SET)l; *x = (SET)l;
} }
void Files_ReadReal (Files_Rider *R, LONGINT *R__typ, REAL *x) void Files_ReadReal (Files_Rider *R, address *R__typ, REAL *x)
{ {
CHAR b[4]; CHAR b[4];
Files_ReadBytes(&*R, R__typ, (void*)b, 4, 4); Files_ReadBytes(&*R, R__typ, (void*)b, 4, 4);
Files_FlipBytes((void*)b, 4, (void*)&*x, 4); Files_FlipBytes((void*)b, 4, (void*)&*x, 4);
} }
void Files_ReadLReal (Files_Rider *R, LONGINT *R__typ, LONGREAL *x) void Files_ReadLReal (Files_Rider *R, address *R__typ, LONGREAL *x)
{ {
CHAR b[8]; CHAR b[8];
Files_ReadBytes(&*R, R__typ, (void*)b, 8, 8); Files_ReadBytes(&*R, R__typ, (void*)b, 8, 8);
Files_FlipBytes((void*)b, 8, (void*)&*x, 8); Files_FlipBytes((void*)b, 8, (void*)&*x, 8);
} }
void Files_ReadString (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len) void Files_ReadString (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len)
{ {
int16 i; int16 i;
CHAR ch; CHAR ch;
@ -903,7 +903,7 @@ void Files_ReadString (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len)
} while (!(ch == 0x00)); } while (!(ch == 0x00));
} }
void Files_ReadLine (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len) void Files_ReadLine (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len)
{ {
int16 i; int16 i;
CHAR ch; CHAR ch;
@ -921,7 +921,7 @@ void Files_ReadLine (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len)
} while (!b); } while (!b);
} }
void Files_ReadNum (Files_Rider *R, LONGINT *R__typ, int32 *x) void Files_ReadNum (Files_Rider *R, address *R__typ, int32 *x)
{ {
int8 s; int8 s;
CHAR ch; CHAR ch;
@ -938,19 +938,19 @@ void Files_ReadNum (Files_Rider *R, LONGINT *R__typ, int32 *x)
*x = n; *x = n;
} }
void Files_ReadNum64 (Files_Rider *R, LONGINT *R__typ, int64 *x) void Files_ReadNum64 (Files_Rider *R, address *R__typ, int64 *x)
{ {
int32 n; int32 n;
Files_ReadNum(&*R, R__typ, &n); Files_ReadNum(&*R, R__typ, &n);
*x = n; *x = n;
} }
void Files_WriteBool (Files_Rider *R, LONGINT *R__typ, BOOLEAN x) void Files_WriteBool (Files_Rider *R, address *R__typ, BOOLEAN x)
{ {
Files_Write(&*R, R__typ, __VAL(CHAR, x)); Files_Write(&*R, R__typ, __VAL(CHAR, x));
} }
void Files_WriteInt (Files_Rider *R, LONGINT *R__typ, int16 x) void Files_WriteInt (Files_Rider *R, address *R__typ, int16 x)
{ {
CHAR b[2]; CHAR b[2];
b[0] = (CHAR)x; b[0] = (CHAR)x;
@ -958,7 +958,7 @@ void Files_WriteInt (Files_Rider *R, LONGINT *R__typ, int16 x)
Files_WriteBytes(&*R, R__typ, (void*)b, 2, 2); Files_WriteBytes(&*R, R__typ, (void*)b, 2, 2);
} }
void Files_WriteLInt (Files_Rider *R, LONGINT *R__typ, int32 x) void Files_WriteLInt (Files_Rider *R, address *R__typ, int32 x)
{ {
CHAR b[4]; CHAR b[4];
b[0] = (CHAR)x; b[0] = (CHAR)x;
@ -968,7 +968,7 @@ void Files_WriteLInt (Files_Rider *R, LONGINT *R__typ, int32 x)
Files_WriteBytes(&*R, R__typ, (void*)b, 4, 4); Files_WriteBytes(&*R, R__typ, (void*)b, 4, 4);
} }
void Files_WriteSet (Files_Rider *R, LONGINT *R__typ, SET x) void Files_WriteSet (Files_Rider *R, address *R__typ, SET x)
{ {
CHAR b[4]; CHAR b[4];
int32 i; int32 i;
@ -980,21 +980,21 @@ void Files_WriteSet (Files_Rider *R, LONGINT *R__typ, SET x)
Files_WriteBytes(&*R, R__typ, (void*)b, 4, 4); Files_WriteBytes(&*R, R__typ, (void*)b, 4, 4);
} }
void Files_WriteReal (Files_Rider *R, LONGINT *R__typ, REAL x) void Files_WriteReal (Files_Rider *R, address *R__typ, REAL x)
{ {
CHAR b[4]; CHAR b[4];
Files_FlipBytes((void*)&x, 4, (void*)b, 4); Files_FlipBytes((void*)&x, 4, (void*)b, 4);
Files_WriteBytes(&*R, R__typ, (void*)b, 4, 4); Files_WriteBytes(&*R, R__typ, (void*)b, 4, 4);
} }
void Files_WriteLReal (Files_Rider *R, LONGINT *R__typ, LONGREAL x) void Files_WriteLReal (Files_Rider *R, address *R__typ, LONGREAL x)
{ {
CHAR b[8]; CHAR b[8];
Files_FlipBytes((void*)&x, 8, (void*)b, 8); Files_FlipBytes((void*)&x, 8, (void*)b, 8);
Files_WriteBytes(&*R, R__typ, (void*)b, 8, 8); Files_WriteBytes(&*R, R__typ, (void*)b, 8, 8);
} }
void Files_WriteString (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len) void Files_WriteString (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len)
{ {
int16 i; int16 i;
i = 0; i = 0;
@ -1004,7 +1004,7 @@ void Files_WriteString (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len
Files_WriteBytes(&*R, R__typ, (void*)x, x__len * 1, i + 1); Files_WriteBytes(&*R, R__typ, (void*)x, x__len * 1, i + 1);
} }
void Files_WriteNum (Files_Rider *R, LONGINT *R__typ, int32 x) void Files_WriteNum (Files_Rider *R, address *R__typ, int32 x)
{ {
while (x < -64 || x > 63) { while (x < -64 || x > 63) {
Files_Write(&*R, R__typ, (CHAR)(__MASK(x, -128) + 128)); Files_Write(&*R, R__typ, (CHAR)(__MASK(x, -128) + 128));
@ -1013,7 +1013,7 @@ void Files_WriteNum (Files_Rider *R, LONGINT *R__typ, int32 x)
Files_Write(&*R, R__typ, (CHAR)__MASK(x, -128)); Files_Write(&*R, R__typ, (CHAR)__MASK(x, -128));
} }
void Files_WriteNum64 (Files_Rider *R, LONGINT *R__typ, int64 x) void Files_WriteNum64 (Files_Rider *R, address *R__typ, int64 x)
{ {
while (x < -64 || x > 63) { while (x < -64 || x > 63) {
Files_Write(&*R, R__typ, (CHAR)(__MASK(x, -128) + 128)); Files_Write(&*R, R__typ, (CHAR)(__MASK(x, -128) + 128));

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin tspaSfF */ /* voc 1.95 [2016/09/23] for gcc LP64 on cygwin tspaSfF */
#ifndef Files__h #ifndef Files__h
#define Files__h #define Files__h
@ -24,10 +24,10 @@ typedef
import LONGINT *Files_FileDesc__typ; import address *Files_FileDesc__typ;
import LONGINT *Files_Rider__typ; import address *Files_Rider__typ;
import Files_File Files_Base (Files_Rider *r, LONGINT *r__typ); import Files_File Files_Base (Files_Rider *r, address *r__typ);
import void Files_ChangeDirectory (CHAR *path, LONGINT path__len, int16 *res); import void Files_ChangeDirectory (CHAR *path, LONGINT path__len, int16 *res);
import void Files_Close (Files_File f); import void Files_Close (Files_File f);
import void Files_Delete (CHAR *name, LONGINT name__len, int16 *res); import void Files_Delete (CHAR *name, LONGINT name__len, int16 *res);
@ -36,36 +36,36 @@ import void Files_GetName (Files_File f, CHAR *name, LONGINT name__len);
import int32 Files_Length (Files_File f); import int32 Files_Length (Files_File f);
import Files_File Files_New (CHAR *name, LONGINT name__len); import Files_File Files_New (CHAR *name, LONGINT name__len);
import Files_File Files_Old (CHAR *name, LONGINT name__len); import Files_File Files_Old (CHAR *name, LONGINT name__len);
import int32 Files_Pos (Files_Rider *r, LONGINT *r__typ); import int32 Files_Pos (Files_Rider *r, address *r__typ);
import void Files_Purge (Files_File f); import void Files_Purge (Files_File f);
import void Files_Read (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x); import void Files_Read (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x);
import void Files_ReadBool (Files_Rider *R, LONGINT *R__typ, BOOLEAN *x); import void Files_ReadBool (Files_Rider *R, address *R__typ, BOOLEAN *x);
import void Files_ReadByte (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len); import void Files_ReadByte (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len);
import void Files_ReadBytes (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n); import void Files_ReadBytes (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n);
import void Files_ReadInt (Files_Rider *R, LONGINT *R__typ, int16 *x); import void Files_ReadInt (Files_Rider *R, address *R__typ, int16 *x);
import void Files_ReadLInt (Files_Rider *R, LONGINT *R__typ, int32 *x); import void Files_ReadLInt (Files_Rider *R, address *R__typ, int32 *x);
import void Files_ReadLReal (Files_Rider *R, LONGINT *R__typ, LONGREAL *x); import void Files_ReadLReal (Files_Rider *R, address *R__typ, LONGREAL *x);
import void Files_ReadLine (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len); import void Files_ReadLine (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len);
import void Files_ReadNum (Files_Rider *R, LONGINT *R__typ, int32 *x); import void Files_ReadNum (Files_Rider *R, address *R__typ, int32 *x);
import void Files_ReadNum64 (Files_Rider *R, LONGINT *R__typ, int64 *x); import void Files_ReadNum64 (Files_Rider *R, address *R__typ, int64 *x);
import void Files_ReadReal (Files_Rider *R, LONGINT *R__typ, REAL *x); import void Files_ReadReal (Files_Rider *R, address *R__typ, REAL *x);
import void Files_ReadSet (Files_Rider *R, LONGINT *R__typ, SET *x); import void Files_ReadSet (Files_Rider *R, address *R__typ, SET *x);
import void Files_ReadString (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len); import void Files_ReadString (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len);
import void Files_Register (Files_File f); import void Files_Register (Files_File f);
import void Files_Rename (CHAR *old, LONGINT old__len, CHAR *new, LONGINT new__len, int16 *res); import void Files_Rename (CHAR *old, LONGINT old__len, CHAR *new, LONGINT new__len, int16 *res);
import void Files_Set (Files_Rider *r, LONGINT *r__typ, Files_File f, int32 pos); import void Files_Set (Files_Rider *r, address *r__typ, Files_File f, int32 pos);
import void Files_SetSearchPath (CHAR *path, LONGINT path__len); import void Files_SetSearchPath (CHAR *path, LONGINT path__len);
import void Files_Write (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE x); import void Files_Write (Files_Rider *r, address *r__typ, SYSTEM_BYTE x);
import void Files_WriteBool (Files_Rider *R, LONGINT *R__typ, BOOLEAN x); import void Files_WriteBool (Files_Rider *R, address *R__typ, BOOLEAN x);
import void Files_WriteBytes (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n); import void Files_WriteBytes (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n);
import void Files_WriteInt (Files_Rider *R, LONGINT *R__typ, int16 x); import void Files_WriteInt (Files_Rider *R, address *R__typ, int16 x);
import void Files_WriteLInt (Files_Rider *R, LONGINT *R__typ, int32 x); import void Files_WriteLInt (Files_Rider *R, address *R__typ, int32 x);
import void Files_WriteLReal (Files_Rider *R, LONGINT *R__typ, LONGREAL x); import void Files_WriteLReal (Files_Rider *R, address *R__typ, LONGREAL x);
import void Files_WriteNum (Files_Rider *R, LONGINT *R__typ, int32 x); import void Files_WriteNum (Files_Rider *R, address *R__typ, int32 x);
import void Files_WriteNum64 (Files_Rider *R, LONGINT *R__typ, int64 x); import void Files_WriteNum64 (Files_Rider *R, address *R__typ, int64 x);
import void Files_WriteReal (Files_Rider *R, LONGINT *R__typ, REAL x); import void Files_WriteReal (Files_Rider *R, address *R__typ, REAL x);
import void Files_WriteSet (Files_Rider *R, LONGINT *R__typ, SET x); import void Files_WriteSet (Files_Rider *R, address *R__typ, SET x);
import void Files_WriteString (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len); import void Files_WriteString (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len);
import void *Files__init(void); import void *Files__init(void);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin tsSfF */ /* voc 1.95 [2016/09/23] for gcc LP64 on cygwin tsSfF */
#define INTEGER int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32
@ -74,10 +74,10 @@ static int16 Heap_lockdepth;
static BOOLEAN Heap_interrupted; static BOOLEAN Heap_interrupted;
export int16 Heap_FileCount; export int16 Heap_FileCount;
export LONGINT *Heap_ModuleDesc__typ; export address *Heap_ModuleDesc__typ;
export LONGINT *Heap_CmdDesc__typ; export address *Heap_CmdDesc__typ;
export LONGINT *Heap_FinDesc__typ; export address *Heap_FinDesc__typ;
export LONGINT *Heap__1__typ; export address *Heap__1__typ;
static void Heap_CheckFin (void); static void Heap_CheckFin (void);
static void Heap_ExtendHeap (address blksz); static void Heap_ExtendHeap (address blksz);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin tsSfF */ /* voc 1.95 [2016/09/23] for gcc LP64 on cygwin tsSfF */
#ifndef Heap__h #ifndef Heap__h
#define Heap__h #define Heap__h
@ -34,7 +34,7 @@ import SYSTEM_PTR Heap_modules;
import address Heap_allocated, Heap_heapsize; import address Heap_allocated, Heap_heapsize;
import int16 Heap_FileCount; import int16 Heap_FileCount;
import LONGINT *Heap_ModuleDesc__typ; import address *Heap_ModuleDesc__typ;
import void Heap_FINALL (void); import void Heap_FINALL (void);
import void Heap_GC (BOOLEAN markStack); import void Heap_GC (BOOLEAN markStack);

6
bootstrap/unix-48/Modules.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 int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32
@ -43,8 +43,8 @@ export int16 Modules_res;
export CHAR Modules_resMsg[256]; export CHAR Modules_resMsg[256];
export Modules_ModuleName Modules_imported, Modules_importing; export Modules_ModuleName Modules_imported, Modules_importing;
export LONGINT *Modules_ModuleDesc__typ; export address *Modules_ModuleDesc__typ;
export LONGINT *Modules_CmdDesc__typ; export address *Modules_CmdDesc__typ;
static void Modules_Append (CHAR *a, LONGINT a__len, CHAR *b, LONGINT b__len); static void Modules_Append (CHAR *a, LONGINT a__len, CHAR *b, LONGINT b__len);
export void Modules_Free (CHAR *name, LONGINT name__len, BOOLEAN all); export void Modules_Free (CHAR *name, LONGINT name__len, BOOLEAN all);

6
bootstrap/unix-48/Modules.h
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 */
#ifndef Modules__h #ifndef Modules__h
#define Modules__h #define Modules__h
@ -40,8 +40,8 @@ import int16 Modules_res;
import CHAR Modules_resMsg[256]; import CHAR Modules_resMsg[256];
import Modules_ModuleName Modules_imported, Modules_importing; import Modules_ModuleName Modules_imported, Modules_importing;
import LONGINT *Modules_ModuleDesc__typ; import address *Modules_ModuleDesc__typ;
import LONGINT *Modules_CmdDesc__typ; import address *Modules_CmdDesc__typ;
import void Modules_Free (CHAR *name, LONGINT name__len, BOOLEAN all); import void Modules_Free (CHAR *name, LONGINT name__len, BOOLEAN all);
import Modules_Command Modules_ThisCommand (Modules_Module mod, CHAR *name, LONGINT name__len); import Modules_Command Modules_ThisCommand (Modules_Module mod, CHAR *name, LONGINT name__len);

2
bootstrap/unix-48/OPB.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 int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32

2
bootstrap/unix-48/OPB.h
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 */
#ifndef OPB__h #ifndef OPB__h
#define OPB__h #define OPB__h

8
bootstrap/unix-48/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 int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32
@ -1041,7 +1041,7 @@ static void OPC_IdentList (OPT_Object obj, int16 vis)
} else if ((obj->mode == 2 && obj->typ->comp == 4)) { } else if ((obj->mode == 2 && obj->typ->comp == 4)) {
OPC_EndStat(); OPC_EndStat();
OPC_BegStat(); OPC_BegStat();
OPM_WriteString((CHAR*)"LONGINT *", 10); OPM_WriteString((CHAR*)"address *", 10);
OPC_Ident(obj); OPC_Ident(obj);
OPM_WriteString((CHAR*)"__typ", 6); OPM_WriteString((CHAR*)"__typ", 6);
base = NIL; base = NIL;
@ -1078,7 +1078,7 @@ static void OPC_AnsiParamList (OPT_Object obj, BOOLEAN showParamNames)
OPM_WriteString((CHAR*)", LONGINT ", 11); OPM_WriteString((CHAR*)", LONGINT ", 11);
OPC_LenList(obj, 1, showParamNames); OPC_LenList(obj, 1, showParamNames);
} else if ((obj->mode == 2 && obj->typ->comp == 4)) { } else if ((obj->mode == 2 && obj->typ->comp == 4)) {
OPM_WriteString((CHAR*)", LONGINT *", 12); OPM_WriteString((CHAR*)", address *", 12);
if (showParamNames) { if (showParamNames) {
OPC_Ident(obj); OPC_Ident(obj);
OPM_WriteString((CHAR*)"__typ", 6); OPM_WriteString((CHAR*)"__typ", 6);
@ -1166,7 +1166,7 @@ static void OPC_GenDynTypes (OPT_Node n, int16 vis)
} else { } else {
OPM_WriteString((CHAR*)"export ", 8); OPM_WriteString((CHAR*)"export ", 8);
} }
OPM_WriteString((CHAR*)"LONGINT *", 10); OPM_WriteString((CHAR*)"address *", 10);
OPC_Andent(typ); OPC_Andent(typ);
OPM_WriteString((CHAR*)"__typ", 6); OPM_WriteString((CHAR*)"__typ", 6);
OPC_EndStat(); OPC_EndStat();

2
bootstrap/unix-48/OPC.h
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 */
#ifndef OPC__h #ifndef OPC__h
#define OPC__h #define OPC__h

14
bootstrap/unix-48/OPM.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 int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32
@ -41,7 +41,7 @@ static CHAR OPM_OBERON[1024];
static CHAR OPM_MODULES[1024]; static CHAR OPM_MODULES[1024];
static void OPM_Append (Files_Rider *R, LONGINT *R__typ, Files_File F); static void OPM_Append (Files_Rider *R, address *R__typ, Files_File F);
export void OPM_CloseFiles (void); export void OPM_CloseFiles (void);
export void OPM_CloseOldSym (void); export void OPM_CloseOldSym (void);
export void OPM_DeleteNewSym (void); export void OPM_DeleteNewSym (void);
@ -49,10 +49,10 @@ export void OPM_FPrint (int32 *fp, int64 val);
export void OPM_FPrintLReal (int32 *fp, LONGREAL lr); export void OPM_FPrintLReal (int32 *fp, LONGREAL lr);
export void OPM_FPrintReal (int32 *fp, REAL real); export void OPM_FPrintReal (int32 *fp, REAL real);
export void OPM_FPrintSet (int32 *fp, SET set); export void OPM_FPrintSet (int32 *fp, SET set);
static void OPM_FindLine (Files_File f, Files_Rider *r, LONGINT *r__typ, int64 pos); static void OPM_FindLine (Files_File f, Files_Rider *r, address *r__typ, int64 pos);
export void OPM_Get (CHAR *ch); export void OPM_Get (CHAR *ch);
static void OPM_GetProperties (void); static void OPM_GetProperties (void);
static void OPM_GetProperty (Texts_Scanner *S, LONGINT *S__typ, CHAR *name, LONGINT name__len, int16 *size, int16 *align); static void OPM_GetProperty (Texts_Scanner *S, address *S__typ, CHAR *name, LONGINT name__len, int16 *size, int16 *align);
export void OPM_Init (BOOLEAN *done, CHAR *mname, LONGINT mname__len); export void OPM_Init (BOOLEAN *done, CHAR *mname, LONGINT mname__len);
export void OPM_InitOptions (void); export void OPM_InitOptions (void);
export int16 OPM_Integer (int64 n); export int16 OPM_Integer (int64 n);
@ -496,7 +496,7 @@ static void OPM_LogErrMsg (int16 n)
OPM_LogWStr(errors_errors[__X(n, 350)], 128); OPM_LogWStr(errors_errors[__X(n, 350)], 128);
} }
static void OPM_FindLine (Files_File f, Files_Rider *r, LONGINT *r__typ, int64 pos) static void OPM_FindLine (Files_File f, Files_Rider *r, address *r__typ, int64 pos)
{ {
CHAR ch, cheol; CHAR ch, cheol;
if (pos < (int64)OPM_ErrorLineStartPos) { if (pos < (int64)OPM_ErrorLineStartPos) {
@ -654,7 +654,7 @@ void OPM_FPrintLReal (int32 *fp, LONGREAL lr)
OPM_FPrint(&*fp, h); OPM_FPrint(&*fp, h);
} }
static void OPM_GetProperty (Texts_Scanner *S, LONGINT *S__typ, CHAR *name, LONGINT name__len, int16 *size, int16 *align) static void OPM_GetProperty (Texts_Scanner *S, address *S__typ, CHAR *name, LONGINT name__len, int16 *size, int16 *align)
{ {
__DUP(name, name__len, CHAR); __DUP(name, name__len, CHAR);
if (((*S).class == 1 && __STRCMP((*S).s, name) == 0)) { if (((*S).class == 1 && __STRCMP((*S).s, name) == 0)) {
@ -996,7 +996,7 @@ void OPM_WriteLn (void)
Files_Write(&OPM_R[__X(OPM_currFile, 3)], Files_Rider__typ, 0x0a); Files_Write(&OPM_R[__X(OPM_currFile, 3)], Files_Rider__typ, 0x0a);
} }
static void OPM_Append (Files_Rider *R, LONGINT *R__typ, Files_File F) static void OPM_Append (Files_Rider *R, address *R__typ, Files_File F)
{ {
Files_Rider R1; Files_Rider R1;
CHAR buffer[4096]; CHAR buffer[4096];

2
bootstrap/unix-48/OPM.h
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 */
#ifndef OPM__h #ifndef OPM__h
#define OPM__h #define OPM__h

4
bootstrap/unix-48/OPP.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 int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32
@ -24,7 +24,7 @@ static OPT_Node OPP_TDinit, OPP_lastTDinit;
static int16 OPP_nofFwdPtr; static int16 OPP_nofFwdPtr;
static OPT_Struct OPP_FwdPtr[64]; static OPT_Struct OPP_FwdPtr[64];
export LONGINT *OPP__1__typ; export address *OPP__1__typ;
static void OPP_ActualParameters (OPT_Node *aparlist, OPT_Object fpar); static void OPP_ActualParameters (OPT_Node *aparlist, OPT_Object fpar);
static void OPP_ArrayType (OPT_Struct *typ, OPT_Struct *banned); static void OPP_ArrayType (OPT_Struct *typ, OPT_Struct *banned);

2
bootstrap/unix-48/OPP.h
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 */
#ifndef OPP__h #ifndef OPP__h
#define OPP__h #define OPP__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin tspaSfF */ /* voc 1.95 [2016/09/23] for gcc LP64 on cygwin tspaSfF */
#define INTEGER int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin tspaSfF */ /* voc 1.95 [2016/09/23] for gcc LP64 on cygwin tspaSfF */
#ifndef OPS__h #ifndef OPS__h
#define OPS__h #define OPS__h

14
bootstrap/unix-48/OPT.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 int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32
@ -101,12 +101,12 @@ static OPT_ExpCtxt OPT_expCtxt;
static int32 OPT_nofhdfld; static int32 OPT_nofhdfld;
static BOOLEAN OPT_newsf, OPT_findpc, OPT_extsf, OPT_sfpresent, OPT_symExtended, OPT_symNew; static BOOLEAN OPT_newsf, OPT_findpc, OPT_extsf, OPT_sfpresent, OPT_symExtended, OPT_symNew;
export LONGINT *OPT_ConstDesc__typ; export address *OPT_ConstDesc__typ;
export LONGINT *OPT_ObjDesc__typ; export address *OPT_ObjDesc__typ;
export LONGINT *OPT_StrDesc__typ; export address *OPT_StrDesc__typ;
export LONGINT *OPT_NodeDesc__typ; export address *OPT_NodeDesc__typ;
export LONGINT *OPT_ImpCtxt__typ; export address *OPT_ImpCtxt__typ;
export LONGINT *OPT_ExpCtxt__typ; export address *OPT_ExpCtxt__typ;
export void OPT_Close (void); export void OPT_Close (void);
export void OPT_CloseScope (void); export void OPT_CloseScope (void);

10
bootstrap/unix-48/OPT.h
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 */
#ifndef OPT__h #ifndef OPT__h
#define OPT__h #define OPT__h
@ -75,10 +75,10 @@ import OPT_Object OPT_GlbMod[64];
import OPS_Name OPT_SelfName; import OPS_Name OPT_SelfName;
import BOOLEAN OPT_SYSimported; import BOOLEAN OPT_SYSimported;
import LONGINT *OPT_ConstDesc__typ; import address *OPT_ConstDesc__typ;
import LONGINT *OPT_ObjDesc__typ; import address *OPT_ObjDesc__typ;
import LONGINT *OPT_StrDesc__typ; import address *OPT_StrDesc__typ;
import LONGINT *OPT_NodeDesc__typ; import address *OPT_NodeDesc__typ;
import void OPT_Close (void); import void OPT_Close (void);
import void OPT_CloseScope (void); import void OPT_CloseScope (void);

4
bootstrap/unix-48/OPV.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 int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32
@ -21,7 +21,7 @@ static int32 OPV_recno;
static OPV_ExitInfo OPV_exit; static OPV_ExitInfo OPV_exit;
static int16 OPV_nofExitLabels; static int16 OPV_nofExitLabels;
export LONGINT *OPV_ExitInfo__typ; export address *OPV_ExitInfo__typ;
static void OPV_ActualPar (OPT_Node n, OPT_Object fp); static void OPV_ActualPar (OPT_Node n, OPT_Object fp);
export void OPV_AdrAndSize (OPT_Object topScope); export void OPV_AdrAndSize (OPT_Object topScope);

2
bootstrap/unix-48/OPV.h
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 */
#ifndef OPV__h #ifndef OPV__h
#define OPV__h #define OPV__h

28
bootstrap/unix-48/Platform.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 int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32
@ -42,7 +42,7 @@ static int32 Platform_TimeStart;
export int16 Platform_SeekSet, Platform_SeekCur, Platform_SeekEnd; export int16 Platform_SeekSet, Platform_SeekCur, Platform_SeekEnd;
export CHAR Platform_nl[3]; export CHAR Platform_nl[3];
export LONGINT *Platform_FileIdentity__typ; export address *Platform_FileIdentity__typ;
export BOOLEAN Platform_Absent (int16 e); export BOOLEAN Platform_Absent (int16 e);
export int16 Platform_ArgPos (CHAR *s, LONGINT s__len); export int16 Platform_ArgPos (CHAR *s, LONGINT s__len);
@ -61,8 +61,8 @@ export void Platform_GetEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val
export void Platform_GetIntArg (int16 n, int32 *val); export void Platform_GetIntArg (int16 n, int32 *val);
export void Platform_GetTimeOfDay (int32 *sec, int32 *usec); export void Platform_GetTimeOfDay (int32 *sec, int32 *usec);
export void Platform_Halt (int32 code); export void Platform_Halt (int32 code);
export int16 Platform_Identify (int32 h, Platform_FileIdentity *identity, LONGINT *identity__typ); export int16 Platform_Identify (int32 h, Platform_FileIdentity *identity, address *identity__typ);
export int16 Platform_IdentifyByName (CHAR *n, LONGINT n__len, Platform_FileIdentity *identity, LONGINT *identity__typ); export int16 Platform_IdentifyByName (CHAR *n, LONGINT n__len, Platform_FileIdentity *identity, address *identity__typ);
export BOOLEAN Platform_Inaccessible (int16 e); export BOOLEAN Platform_Inaccessible (int16 e);
export void Platform_Init (int16 argc, address argvadr); export void Platform_Init (int16 argc, address argvadr);
export void Platform_MTimeAsClock (Platform_FileIdentity i, int32 *t, int32 *d); export void Platform_MTimeAsClock (Platform_FileIdentity i, int32 *t, int32 *d);
@ -72,8 +72,8 @@ export address Platform_OSAllocate (address size);
export void Platform_OSFree (address address); export void Platform_OSFree (address address);
export int16 Platform_OldRO (CHAR *n, LONGINT n__len, int32 *h); export int16 Platform_OldRO (CHAR *n, LONGINT n__len, int32 *h);
export int16 Platform_OldRW (CHAR *n, LONGINT n__len, int32 *h); export int16 Platform_OldRW (CHAR *n, LONGINT n__len, int32 *h);
export int16 Platform_Read (int32 h, address p, address l, address *n); export int16 Platform_Read (int32 h, address p, int32 l, int32 *n);
export int16 Platform_ReadBuf (int32 h, SYSTEM_BYTE *b, LONGINT b__len, address *n); export int16 Platform_ReadBuf (int32 h, SYSTEM_BYTE *b, LONGINT b__len, int32 *n);
export int16 Platform_Rename (CHAR *o, LONGINT o__len, CHAR *n, LONGINT n__len); export int16 Platform_Rename (CHAR *o, LONGINT o__len, CHAR *n, LONGINT n__len);
export BOOLEAN Platform_SameFile (Platform_FileIdentity i1, Platform_FileIdentity i2); export BOOLEAN Platform_SameFile (Platform_FileIdentity i1, Platform_FileIdentity i2);
export BOOLEAN Platform_SameFileTime (Platform_FileIdentity i1, Platform_FileIdentity i2); export BOOLEAN Platform_SameFileTime (Platform_FileIdentity i1, Platform_FileIdentity i2);
@ -81,9 +81,9 @@ export int16 Platform_Seek (int32 h, int32 offset, int16 whence);
export void Platform_SetBadInstructionHandler (Platform_SignalHandler handler); export void Platform_SetBadInstructionHandler (Platform_SignalHandler handler);
export void Platform_SetHalt (Platform_HaltProcedure p); export void Platform_SetHalt (Platform_HaltProcedure p);
export void Platform_SetInterruptHandler (Platform_SignalHandler handler); export void Platform_SetInterruptHandler (Platform_SignalHandler handler);
export void Platform_SetMTime (Platform_FileIdentity *target, LONGINT *target__typ, Platform_FileIdentity source); export void Platform_SetMTime (Platform_FileIdentity *target, address *target__typ, Platform_FileIdentity source);
export void Platform_SetQuitHandler (Platform_SignalHandler handler); export void Platform_SetQuitHandler (Platform_SignalHandler handler);
export int16 Platform_Size (int32 h, address *l); export int16 Platform_Size (int32 h, int32 *l);
export int16 Platform_Sync (int32 h); export int16 Platform_Sync (int32 h);
export int16 Platform_System (CHAR *cmd, LONGINT cmd__len); export int16 Platform_System (CHAR *cmd, LONGINT cmd__len);
static void Platform_TestLittleEndian (void); static void Platform_TestLittleEndian (void);
@ -446,7 +446,7 @@ int16 Platform_Close (int32 h)
__RETCHK; __RETCHK;
} }
int16 Platform_Identify (int32 h, Platform_FileIdentity *identity, LONGINT *identity__typ) int16 Platform_Identify (int32 h, Platform_FileIdentity *identity, address *identity__typ)
{ {
int16 _o_result; int16 _o_result;
Platform_structstats(); Platform_structstats();
@ -461,7 +461,7 @@ int16 Platform_Identify (int32 h, Platform_FileIdentity *identity, LONGINT *iden
return _o_result; return _o_result;
} }
int16 Platform_IdentifyByName (CHAR *n, LONGINT n__len, Platform_FileIdentity *identity, LONGINT *identity__typ) int16 Platform_IdentifyByName (CHAR *n, LONGINT n__len, Platform_FileIdentity *identity, address *identity__typ)
{ {
int16 _o_result; int16 _o_result;
__DUP(n, n__len, CHAR); __DUP(n, n__len, CHAR);
@ -493,7 +493,7 @@ BOOLEAN Platform_SameFileTime (Platform_FileIdentity i1, Platform_FileIdentity i
return _o_result; return _o_result;
} }
void Platform_SetMTime (Platform_FileIdentity *target, LONGINT *target__typ, Platform_FileIdentity source) void Platform_SetMTime (Platform_FileIdentity *target, address *target__typ, Platform_FileIdentity source)
{ {
(*target).mtime = source.mtime; (*target).mtime = source.mtime;
} }
@ -504,7 +504,7 @@ void Platform_MTimeAsClock (Platform_FileIdentity i, int32 *t, int32 *d)
Platform_YMDHMStoClock(Platform_tmyear(), Platform_tmmon(), Platform_tmmday(), Platform_tmhour(), Platform_tmmin(), Platform_tmsec(), &*t, &*d); Platform_YMDHMStoClock(Platform_tmyear(), Platform_tmmon(), Platform_tmmday(), Platform_tmhour(), Platform_tmmin(), Platform_tmsec(), &*t, &*d);
} }
int16 Platform_Size (int32 h, address *l) int16 Platform_Size (int32 h, int32 *l)
{ {
int16 _o_result; int16 _o_result;
Platform_structstats(); Platform_structstats();
@ -517,7 +517,7 @@ int16 Platform_Size (int32 h, address *l)
return _o_result; return _o_result;
} }
int16 Platform_Read (int32 h, address p, address l, address *n) int16 Platform_Read (int32 h, address p, int32 l, int32 *n)
{ {
int16 _o_result; int16 _o_result;
*n = Platform_readfile(h, p, l); *n = Platform_readfile(h, p, l);
@ -532,7 +532,7 @@ int16 Platform_Read (int32 h, address p, address l, address *n)
__RETCHK; __RETCHK;
} }
int16 Platform_ReadBuf (int32 h, SYSTEM_BYTE *b, LONGINT b__len, address *n) int16 Platform_ReadBuf (int32 h, SYSTEM_BYTE *b, LONGINT b__len, int32 *n)
{ {
int16 _o_result; int16 _o_result;
*n = Platform_readfile(h, (address)b, b__len); *n = Platform_readfile(h, (address)b, b__len);

16
bootstrap/unix-48/Platform.h
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 */
#ifndef Platform__h #ifndef Platform__h
#define Platform__h #define Platform__h
@ -27,7 +27,7 @@ import address Platform_ArgVector;
import int16 Platform_SeekSet, Platform_SeekCur, Platform_SeekEnd; import int16 Platform_SeekSet, Platform_SeekCur, Platform_SeekEnd;
import CHAR Platform_nl[3]; import CHAR Platform_nl[3];
import LONGINT *Platform_FileIdentity__typ; import address *Platform_FileIdentity__typ;
import BOOLEAN Platform_Absent (int16 e); import BOOLEAN Platform_Absent (int16 e);
import int16 Platform_ArgPos (CHAR *s, LONGINT s__len); import int16 Platform_ArgPos (CHAR *s, LONGINT s__len);
@ -45,8 +45,8 @@ import void Platform_GetEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val
import void Platform_GetIntArg (int16 n, int32 *val); import void Platform_GetIntArg (int16 n, int32 *val);
import void Platform_GetTimeOfDay (int32 *sec, int32 *usec); import void Platform_GetTimeOfDay (int32 *sec, int32 *usec);
import void Platform_Halt (int32 code); import void Platform_Halt (int32 code);
import int16 Platform_Identify (int32 h, Platform_FileIdentity *identity, LONGINT *identity__typ); import int16 Platform_Identify (int32 h, Platform_FileIdentity *identity, address *identity__typ);
import int16 Platform_IdentifyByName (CHAR *n, LONGINT n__len, Platform_FileIdentity *identity, LONGINT *identity__typ); import int16 Platform_IdentifyByName (CHAR *n, LONGINT n__len, Platform_FileIdentity *identity, address *identity__typ);
import BOOLEAN Platform_Inaccessible (int16 e); import BOOLEAN Platform_Inaccessible (int16 e);
import void Platform_Init (int16 argc, address argvadr); import void Platform_Init (int16 argc, address argvadr);
import void Platform_MTimeAsClock (Platform_FileIdentity i, int32 *t, int32 *d); import void Platform_MTimeAsClock (Platform_FileIdentity i, int32 *t, int32 *d);
@ -56,8 +56,8 @@ import address Platform_OSAllocate (address size);
import void Platform_OSFree (address address); import void Platform_OSFree (address address);
import int16 Platform_OldRO (CHAR *n, LONGINT n__len, int32 *h); import int16 Platform_OldRO (CHAR *n, LONGINT n__len, int32 *h);
import int16 Platform_OldRW (CHAR *n, LONGINT n__len, int32 *h); import int16 Platform_OldRW (CHAR *n, LONGINT n__len, int32 *h);
import int16 Platform_Read (int32 h, address p, address l, address *n); import int16 Platform_Read (int32 h, address p, int32 l, int32 *n);
import int16 Platform_ReadBuf (int32 h, SYSTEM_BYTE *b, LONGINT b__len, address *n); import int16 Platform_ReadBuf (int32 h, SYSTEM_BYTE *b, LONGINT b__len, int32 *n);
import int16 Platform_Rename (CHAR *o, LONGINT o__len, CHAR *n, LONGINT n__len); import int16 Platform_Rename (CHAR *o, LONGINT o__len, CHAR *n, LONGINT n__len);
import BOOLEAN Platform_SameFile (Platform_FileIdentity i1, Platform_FileIdentity i2); import BOOLEAN Platform_SameFile (Platform_FileIdentity i1, Platform_FileIdentity i2);
import BOOLEAN Platform_SameFileTime (Platform_FileIdentity i1, Platform_FileIdentity i2); import BOOLEAN Platform_SameFileTime (Platform_FileIdentity i1, Platform_FileIdentity i2);
@ -65,9 +65,9 @@ import int16 Platform_Seek (int32 h, int32 offset, int16 whence);
import void Platform_SetBadInstructionHandler (Platform_SignalHandler handler); import void Platform_SetBadInstructionHandler (Platform_SignalHandler handler);
import void Platform_SetHalt (Platform_HaltProcedure p); import void Platform_SetHalt (Platform_HaltProcedure p);
import void Platform_SetInterruptHandler (Platform_SignalHandler handler); import void Platform_SetInterruptHandler (Platform_SignalHandler handler);
import void Platform_SetMTime (Platform_FileIdentity *target, LONGINT *target__typ, Platform_FileIdentity source); import void Platform_SetMTime (Platform_FileIdentity *target, address *target__typ, Platform_FileIdentity source);
import void Platform_SetQuitHandler (Platform_SignalHandler handler); import void Platform_SetQuitHandler (Platform_SignalHandler handler);
import int16 Platform_Size (int32 h, address *l); import int16 Platform_Size (int32 h, int32 *l);
import int16 Platform_Sync (int32 h); import int16 Platform_Sync (int32 h);
import int16 Platform_System (CHAR *cmd, LONGINT cmd__len); import int16 Platform_System (CHAR *cmd, LONGINT cmd__len);
import int32 Platform_Time (void); import int32 Platform_Time (void);

2
bootstrap/unix-48/Reals.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 int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32

2
bootstrap/unix-48/Reals.h
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 */
#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 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 int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32

2
bootstrap/unix-48/Strings.h
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 */
#ifndef Strings__h #ifndef Strings__h
#define Strings__h #define Strings__h

154
bootstrap/unix-48/Texts.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 int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32
@ -33,7 +33,7 @@ typedef
} Texts_ElemMsg; } Texts_ElemMsg;
typedef typedef
void (*Texts_Handler)(Texts_Elem, Texts_ElemMsg*, LONGINT *); void (*Texts_Handler)(Texts_Elem, Texts_ElemMsg*, address *);
typedef typedef
struct Texts_TextDesc *Texts_Text; struct Texts_TextDesc *Texts_Text;
@ -167,20 +167,20 @@ export Texts_Elem Texts_new;
static Texts_Buffer Texts_del; static Texts_Buffer Texts_del;
static Texts_FontsFont Texts_FontsDefault; static Texts_FontsFont Texts_FontsDefault;
export LONGINT *Texts_FontDesc__typ; export address *Texts_FontDesc__typ;
export LONGINT *Texts_RunDesc__typ; export address *Texts_RunDesc__typ;
export LONGINT *Texts_PieceDesc__typ; export address *Texts_PieceDesc__typ;
export LONGINT *Texts_ElemMsg__typ; export address *Texts_ElemMsg__typ;
export LONGINT *Texts_ElemDesc__typ; export address *Texts_ElemDesc__typ;
export LONGINT *Texts_FileMsg__typ; export address *Texts_FileMsg__typ;
export LONGINT *Texts_CopyMsg__typ; export address *Texts_CopyMsg__typ;
export LONGINT *Texts_IdentifyMsg__typ; export address *Texts_IdentifyMsg__typ;
export LONGINT *Texts_BufDesc__typ; export address *Texts_BufDesc__typ;
export LONGINT *Texts_TextDesc__typ; export address *Texts_TextDesc__typ;
export LONGINT *Texts_Reader__typ; export address *Texts_Reader__typ;
export LONGINT *Texts_Scanner__typ; export address *Texts_Scanner__typ;
export LONGINT *Texts_Writer__typ; export address *Texts_Writer__typ;
export LONGINT *Texts__1__typ; export address *Texts__1__typ;
export void Texts_Append (Texts_Text T, Texts_Buffer B); export void Texts_Append (Texts_Text T, Texts_Buffer B);
export void Texts_ChangeLooks (Texts_Text T, int32 beg, int32 end, SET sel, Texts_FontsFont fnt, int8 col, int8 voff); export void Texts_ChangeLooks (Texts_Text T, int32 beg, int32 end, SET sel, Texts_FontsFont fnt, int8 col, int8 voff);
@ -194,41 +194,41 @@ export Texts_Text Texts_ElemBase (Texts_Elem E);
export int32 Texts_ElemPos (Texts_Elem E); export int32 Texts_ElemPos (Texts_Elem E);
static void Texts_Find (Texts_Text T, int32 *pos, Texts_Run *u, int32 *org, int32 *off); static void Texts_Find (Texts_Text T, int32 *pos, Texts_Run *u, int32 *org, int32 *off);
static Texts_FontsFont Texts_FontsThis (CHAR *name, LONGINT name__len); static Texts_FontsFont Texts_FontsThis (CHAR *name, LONGINT name__len);
static void Texts_HandleAlien (Texts_Elem E, Texts_ElemMsg *msg, LONGINT *msg__typ); static void Texts_HandleAlien (Texts_Elem E, Texts_ElemMsg *msg, address *msg__typ);
export void Texts_Insert (Texts_Text T, int32 pos, Texts_Buffer B); export void Texts_Insert (Texts_Text T, int32 pos, Texts_Buffer B);
export void Texts_Load (Files_Rider *r, LONGINT *r__typ, Texts_Text T); export void Texts_Load (Files_Rider *r, address *r__typ, Texts_Text T);
static void Texts_Load0 (Files_Rider *r, LONGINT *r__typ, Texts_Text T); static void Texts_Load0 (Files_Rider *r, address *r__typ, Texts_Text T);
static void Texts_Merge (Texts_Text T, Texts_Run u, Texts_Run *v); static void Texts_Merge (Texts_Text T, Texts_Run u, Texts_Run *v);
export void Texts_Open (Texts_Text T, CHAR *name, LONGINT name__len); export void Texts_Open (Texts_Text T, CHAR *name, LONGINT name__len);
export void Texts_OpenBuf (Texts_Buffer B); export void Texts_OpenBuf (Texts_Buffer B);
export void Texts_OpenReader (Texts_Reader *R, LONGINT *R__typ, Texts_Text T, int32 pos); export void Texts_OpenReader (Texts_Reader *R, address *R__typ, Texts_Text T, int32 pos);
export void Texts_OpenScanner (Texts_Scanner *S, LONGINT *S__typ, Texts_Text T, int32 pos); export void Texts_OpenScanner (Texts_Scanner *S, address *S__typ, Texts_Text T, int32 pos);
export void Texts_OpenWriter (Texts_Writer *W, LONGINT *W__typ); export void Texts_OpenWriter (Texts_Writer *W, address *W__typ);
export int32 Texts_Pos (Texts_Reader *R, LONGINT *R__typ); export int32 Texts_Pos (Texts_Reader *R, address *R__typ);
export void Texts_Read (Texts_Reader *R, LONGINT *R__typ, CHAR *ch); export void Texts_Read (Texts_Reader *R, address *R__typ, CHAR *ch);
export void Texts_ReadElem (Texts_Reader *R, LONGINT *R__typ); export void Texts_ReadElem (Texts_Reader *R, address *R__typ);
export void Texts_ReadPrevElem (Texts_Reader *R, LONGINT *R__typ); export void Texts_ReadPrevElem (Texts_Reader *R, address *R__typ);
export void Texts_Recall (Texts_Buffer *B); export void Texts_Recall (Texts_Buffer *B);
export void Texts_Save (Texts_Text T, int32 beg, int32 end, Texts_Buffer B); export void Texts_Save (Texts_Text T, int32 beg, int32 end, Texts_Buffer B);
export void Texts_Scan (Texts_Scanner *S, LONGINT *S__typ); export void Texts_Scan (Texts_Scanner *S, address *S__typ);
export void Texts_SetColor (Texts_Writer *W, LONGINT *W__typ, int8 col); export void Texts_SetColor (Texts_Writer *W, address *W__typ, int8 col);
export void Texts_SetFont (Texts_Writer *W, LONGINT *W__typ, Texts_FontsFont fnt); export void Texts_SetFont (Texts_Writer *W, address *W__typ, Texts_FontsFont fnt);
export void Texts_SetOffset (Texts_Writer *W, LONGINT *W__typ, int8 voff); export void Texts_SetOffset (Texts_Writer *W, address *W__typ, int8 voff);
static void Texts_Splice (Texts_Run un, Texts_Run v, Texts_Run w, Texts_Text base); static void Texts_Splice (Texts_Run un, Texts_Run v, Texts_Run w, Texts_Text base);
static void Texts_Split (int32 off, Texts_Run *u, Texts_Run *un); static void Texts_Split (int32 off, Texts_Run *u, Texts_Run *un);
export void Texts_Store (Files_Rider *r, LONGINT *r__typ, Texts_Text T); export void Texts_Store (Files_Rider *r, address *r__typ, Texts_Text T);
export void Texts_Write (Texts_Writer *W, LONGINT *W__typ, CHAR ch); export void Texts_Write (Texts_Writer *W, address *W__typ, CHAR ch);
export void Texts_WriteDate (Texts_Writer *W, LONGINT *W__typ, int32 t, int32 d); export void Texts_WriteDate (Texts_Writer *W, address *W__typ, int32 t, int32 d);
export void Texts_WriteElem (Texts_Writer *W, LONGINT *W__typ, Texts_Elem e); export void Texts_WriteElem (Texts_Writer *W, address *W__typ, Texts_Elem e);
export void Texts_WriteHex (Texts_Writer *W, LONGINT *W__typ, int32 x); export void Texts_WriteHex (Texts_Writer *W, address *W__typ, int32 x);
export void Texts_WriteInt (Texts_Writer *W, LONGINT *W__typ, int64 x, int64 n); export void Texts_WriteInt (Texts_Writer *W, address *W__typ, int64 x, int64 n);
export void Texts_WriteLn (Texts_Writer *W, LONGINT *W__typ); export void Texts_WriteLn (Texts_Writer *W, address *W__typ);
export void Texts_WriteLongReal (Texts_Writer *W, LONGINT *W__typ, LONGREAL x, int16 n); export void Texts_WriteLongReal (Texts_Writer *W, address *W__typ, LONGREAL x, int16 n);
export void Texts_WriteLongRealHex (Texts_Writer *W, LONGINT *W__typ, LONGREAL x); export void Texts_WriteLongRealHex (Texts_Writer *W, address *W__typ, LONGREAL x);
export void Texts_WriteReal (Texts_Writer *W, LONGINT *W__typ, REAL x, int16 n); export void Texts_WriteReal (Texts_Writer *W, address *W__typ, REAL x, int16 n);
export void Texts_WriteRealFix (Texts_Writer *W, LONGINT *W__typ, REAL x, int16 n, int16 k); export void Texts_WriteRealFix (Texts_Writer *W, address *W__typ, REAL x, int16 n, int16 k);
export void Texts_WriteRealHex (Texts_Writer *W, LONGINT *W__typ, REAL x); export void Texts_WriteRealHex (Texts_Writer *W, address *W__typ, REAL x);
export void Texts_WriteString (Texts_Writer *W, LONGINT *W__typ, CHAR *s, LONGINT s__len); export void Texts_WriteString (Texts_Writer *W, address *W__typ, CHAR *s, LONGINT s__len);
static Texts_FontsFont Texts_FontsThis (CHAR *name, LONGINT name__len) static Texts_FontsFont Texts_FontsThis (CHAR *name, LONGINT name__len)
@ -388,7 +388,7 @@ int32 Texts_ElemPos (Texts_Elem E)
return _o_result; return _o_result;
} }
static void Texts_HandleAlien (Texts_Elem E, Texts_ElemMsg *msg, LONGINT *msg__typ) static void Texts_HandleAlien (Texts_Elem E, Texts_ElemMsg *msg, address *msg__typ)
{ {
Texts_Alien e = NIL; Texts_Alien e = NIL;
Files_Rider r; Files_Rider r;
@ -604,7 +604,7 @@ void Texts_ChangeLooks (Texts_Text T, int32 beg, int32 end, SET sel, Texts_Fonts
} }
} }
void Texts_OpenReader (Texts_Reader *R, LONGINT *R__typ, Texts_Text T, int32 pos) void Texts_OpenReader (Texts_Reader *R, address *R__typ, Texts_Text T, int32 pos)
{ {
Texts_Run u = NIL; Texts_Run u = NIL;
if (pos >= T->len) { if (pos >= T->len) {
@ -618,7 +618,7 @@ void Texts_OpenReader (Texts_Reader *R, LONGINT *R__typ, Texts_Text T, int32 pos
} }
} }
void Texts_Read (Texts_Reader *R, LONGINT *R__typ, CHAR *ch) void Texts_Read (Texts_Reader *R, address *R__typ, CHAR *ch)
{ {
Texts_Run u = NIL; Texts_Run u = NIL;
int32 pos; int32 pos;
@ -663,7 +663,7 @@ void Texts_Read (Texts_Reader *R, LONGINT *R__typ, CHAR *ch)
} }
} }
void Texts_ReadElem (Texts_Reader *R, LONGINT *R__typ) void Texts_ReadElem (Texts_Reader *R, address *R__typ)
{ {
Texts_Run u = NIL, un = NIL; Texts_Run u = NIL, un = NIL;
u = (*R).run; u = (*R).run;
@ -691,7 +691,7 @@ void Texts_ReadElem (Texts_Reader *R, LONGINT *R__typ)
} }
} }
void Texts_ReadPrevElem (Texts_Reader *R, LONGINT *R__typ) void Texts_ReadPrevElem (Texts_Reader *R, address *R__typ)
{ {
Texts_Run u = NIL; Texts_Run u = NIL;
u = (*R).run->prev; u = (*R).run->prev;
@ -713,14 +713,14 @@ void Texts_ReadPrevElem (Texts_Reader *R, LONGINT *R__typ)
} }
} }
int32 Texts_Pos (Texts_Reader *R, LONGINT *R__typ) int32 Texts_Pos (Texts_Reader *R, address *R__typ)
{ {
int32 _o_result; int32 _o_result;
_o_result = (*R).org + (*R).off; _o_result = (*R).org + (*R).off;
return _o_result; return _o_result;
} }
void Texts_OpenScanner (Texts_Scanner *S, LONGINT *S__typ, Texts_Text T, int32 pos) void Texts_OpenScanner (Texts_Scanner *S, address *S__typ, Texts_Text T, int32 pos)
{ {
Texts_OpenReader((void*)&*S, S__typ, T, pos); Texts_OpenReader((void*)&*S, S__typ, T, pos);
(*S).line = 0; (*S).line = 0;
@ -729,7 +729,7 @@ void Texts_OpenScanner (Texts_Scanner *S, LONGINT *S__typ, Texts_Text T, int32 p
static struct Scan__31 { static struct Scan__31 {
Texts_Scanner *S; Texts_Scanner *S;
LONGINT *S__typ; address *S__typ;
CHAR *ch; CHAR *ch;
BOOLEAN *negE; BOOLEAN *negE;
int16 *e; int16 *e;
@ -756,7 +756,7 @@ static void ReadScaleFactor__32 (void)
} }
} }
void Texts_Scan (Texts_Scanner *S, LONGINT *S__typ) void Texts_Scan (Texts_Scanner *S, address *S__typ)
{ {
CHAR ch, term; CHAR ch, term;
BOOLEAN neg, negE, hex; BOOLEAN neg, negE, hex;
@ -962,7 +962,7 @@ void Texts_Scan (Texts_Scanner *S, LONGINT *S__typ)
Scan__31_s = _s.lnk; Scan__31_s = _s.lnk;
} }
void Texts_OpenWriter (Texts_Writer *W, LONGINT *W__typ) void Texts_OpenWriter (Texts_Writer *W, address *W__typ)
{ {
__NEW((*W).buf, Texts_BufDesc); __NEW((*W).buf, Texts_BufDesc);
Texts_OpenBuf((*W).buf); Texts_OpenBuf((*W).buf);
@ -973,22 +973,22 @@ void Texts_OpenWriter (Texts_Writer *W, LONGINT *W__typ)
Files_Set(&(*W).rider, Files_Rider__typ, (*W).file, 0); Files_Set(&(*W).rider, Files_Rider__typ, (*W).file, 0);
} }
void Texts_SetFont (Texts_Writer *W, LONGINT *W__typ, Texts_FontsFont fnt) void Texts_SetFont (Texts_Writer *W, address *W__typ, Texts_FontsFont fnt)
{ {
(*W).fnt = fnt; (*W).fnt = fnt;
} }
void Texts_SetColor (Texts_Writer *W, LONGINT *W__typ, int8 col) void Texts_SetColor (Texts_Writer *W, address *W__typ, int8 col)
{ {
(*W).col = col; (*W).col = col;
} }
void Texts_SetOffset (Texts_Writer *W, LONGINT *W__typ, int8 voff) void Texts_SetOffset (Texts_Writer *W, address *W__typ, int8 voff)
{ {
(*W).voff = voff; (*W).voff = voff;
} }
void Texts_Write (Texts_Writer *W, LONGINT *W__typ, CHAR ch) void Texts_Write (Texts_Writer *W, address *W__typ, CHAR ch)
{ {
Texts_Run u = NIL, un = NIL; Texts_Run u = NIL, un = NIL;
Texts_Piece p = NIL; Texts_Piece p = NIL;
@ -1014,7 +1014,7 @@ void Texts_Write (Texts_Writer *W, LONGINT *W__typ, CHAR ch)
} }
} }
void Texts_WriteElem (Texts_Writer *W, LONGINT *W__typ, Texts_Elem e) void Texts_WriteElem (Texts_Writer *W, address *W__typ, Texts_Elem e)
{ {
Texts_Run u = NIL, un = NIL; Texts_Run u = NIL, un = NIL;
if (e->base != NIL) { if (e->base != NIL) {
@ -1033,12 +1033,12 @@ void Texts_WriteElem (Texts_Writer *W, LONGINT *W__typ, Texts_Elem e)
un->prev = (Texts_Run)e; un->prev = (Texts_Run)e;
} }
void Texts_WriteLn (Texts_Writer *W, LONGINT *W__typ) void Texts_WriteLn (Texts_Writer *W, address *W__typ)
{ {
Texts_Write(&*W, W__typ, 0x0d); Texts_Write(&*W, W__typ, 0x0d);
} }
void Texts_WriteString (Texts_Writer *W, LONGINT *W__typ, CHAR *s, LONGINT s__len) void Texts_WriteString (Texts_Writer *W, address *W__typ, CHAR *s, LONGINT s__len)
{ {
int16 i; int16 i;
__DUP(s, s__len, CHAR); __DUP(s, s__len, CHAR);
@ -1050,7 +1050,7 @@ void Texts_WriteString (Texts_Writer *W, LONGINT *W__typ, CHAR *s, LONGINT s__le
__DEL(s); __DEL(s);
} }
void Texts_WriteInt (Texts_Writer *W, LONGINT *W__typ, int64 x, int64 n) void Texts_WriteInt (Texts_Writer *W, address *W__typ, int64 x, int64 n)
{ {
int16 i; int16 i;
int64 x0; int64 x0;
@ -1085,7 +1085,7 @@ void Texts_WriteInt (Texts_Writer *W, LONGINT *W__typ, int64 x, int64 n)
} while (!(i == 0)); } while (!(i == 0));
} }
void Texts_WriteHex (Texts_Writer *W, LONGINT *W__typ, int32 x) void Texts_WriteHex (Texts_Writer *W, address *W__typ, int32 x)
{ {
int16 i; int16 i;
int32 y; int32 y;
@ -1108,7 +1108,7 @@ void Texts_WriteHex (Texts_Writer *W, LONGINT *W__typ, int32 x)
} while (!(i == 0)); } while (!(i == 0));
} }
void Texts_WriteReal (Texts_Writer *W, LONGINT *W__typ, REAL x, int16 n) void Texts_WriteReal (Texts_Writer *W, address *W__typ, REAL x, int16 n)
{ {
int16 e; int16 e;
REAL x0; REAL x0;
@ -1180,7 +1180,7 @@ void Texts_WriteReal (Texts_Writer *W, LONGINT *W__typ, REAL x, int16 n)
static struct WriteRealFix__53 { static struct WriteRealFix__53 {
Texts_Writer *W; Texts_Writer *W;
LONGINT *W__typ; address *W__typ;
int16 *i; int16 *i;
CHAR (*d)[9]; CHAR (*d)[9];
struct WriteRealFix__53 *lnk; struct WriteRealFix__53 *lnk;
@ -1206,7 +1206,7 @@ static void dig__54 (int16 n)
} }
} }
void Texts_WriteRealFix (Texts_Writer *W, LONGINT *W__typ, REAL x, int16 n, int16 k) void Texts_WriteRealFix (Texts_Writer *W, address *W__typ, REAL x, int16 n, int16 k)
{ {
int16 e, i; int16 e, i;
CHAR sign; CHAR sign;
@ -1278,7 +1278,7 @@ void Texts_WriteRealFix (Texts_Writer *W, LONGINT *W__typ, REAL x, int16 n, int1
WriteRealFix__53_s = _s.lnk; WriteRealFix__53_s = _s.lnk;
} }
void Texts_WriteRealHex (Texts_Writer *W, LONGINT *W__typ, REAL x) void Texts_WriteRealHex (Texts_Writer *W, address *W__typ, REAL x)
{ {
int16 i; int16 i;
CHAR d[8]; CHAR d[8];
@ -1290,7 +1290,7 @@ void Texts_WriteRealHex (Texts_Writer *W, LONGINT *W__typ, REAL x)
} while (!(i == 8)); } while (!(i == 8));
} }
void Texts_WriteLongReal (Texts_Writer *W, LONGINT *W__typ, LONGREAL x, int16 n) void Texts_WriteLongReal (Texts_Writer *W, address *W__typ, LONGREAL x, int16 n)
{ {
int16 e; int16 e;
LONGREAL x0; LONGREAL x0;
@ -1362,7 +1362,7 @@ void Texts_WriteLongReal (Texts_Writer *W, LONGINT *W__typ, LONGREAL x, int16 n)
} }
} }
void Texts_WriteLongRealHex (Texts_Writer *W, LONGINT *W__typ, LONGREAL x) void Texts_WriteLongRealHex (Texts_Writer *W, address *W__typ, LONGREAL x)
{ {
int16 i; int16 i;
CHAR d[16]; CHAR d[16];
@ -1376,7 +1376,7 @@ void Texts_WriteLongRealHex (Texts_Writer *W, LONGINT *W__typ, LONGREAL x)
static struct WriteDate__43 { static struct WriteDate__43 {
Texts_Writer *W; Texts_Writer *W;
LONGINT *W__typ; address *W__typ;
struct WriteDate__43 *lnk; struct WriteDate__43 *lnk;
} *WriteDate__43_s; } *WriteDate__43_s;
@ -1389,7 +1389,7 @@ static void WritePair__44 (CHAR ch, int32 x)
Texts_Write(&*WriteDate__43_s->W, WriteDate__43_s->W__typ, (CHAR)((int)__MOD(x, 10) + 48)); Texts_Write(&*WriteDate__43_s->W, WriteDate__43_s->W__typ, (CHAR)((int)__MOD(x, 10) + 48));
} }
void Texts_WriteDate (Texts_Writer *W, LONGINT *W__typ, int32 t, int32 d) void Texts_WriteDate (Texts_Writer *W, address *W__typ, int32 t, int32 d)
{ {
struct WriteDate__43 _s; struct WriteDate__43 _s;
_s.W = W; _s.W__typ = W__typ; _s.W = W; _s.W__typ = W__typ;
@ -1413,9 +1413,9 @@ static struct Load0__16 {
struct Load0__16 *lnk; struct Load0__16 *lnk;
} *Load0__16_s; } *Load0__16_s;
static void LoadElem__17 (Files_Rider *r, LONGINT *r__typ, int32 pos, int32 span, Texts_Elem *e); static void LoadElem__17 (Files_Rider *r, address *r__typ, int32 pos, int32 span, Texts_Elem *e);
static void LoadElem__17 (Files_Rider *r, LONGINT *r__typ, int32 pos, int32 span, Texts_Elem *e) static void LoadElem__17 (Files_Rider *r, address *r__typ, int32 pos, int32 span, Texts_Elem *e)
{ {
Modules_Module M = NIL; Modules_Module M = NIL;
Modules_Command Cmd; Modules_Command Cmd;
@ -1466,7 +1466,7 @@ static void LoadElem__17 (Files_Rider *r, LONGINT *r__typ, int32 pos, int32 span
} }
} }
static void Texts_Load0 (Files_Rider *r, LONGINT *r__typ, Texts_Text T) static void Texts_Load0 (Files_Rider *r, address *r__typ, Texts_Text T)
{ {
Texts_Run u = NIL, un = NIL; Texts_Run u = NIL, un = NIL;
Texts_Piece p = NIL; Texts_Piece p = NIL;
@ -1540,7 +1540,7 @@ static void Texts_Load0 (Files_Rider *r, LONGINT *r__typ, Texts_Text T)
Load0__16_s = _s.lnk; Load0__16_s = _s.lnk;
} }
void Texts_Load (Files_Rider *r, LONGINT *r__typ, Texts_Text T) void Texts_Load (Files_Rider *r, address *r__typ, Texts_Text T)
{ {
int16 tag; int16 tag;
Files_ReadInt(&*r, r__typ, &tag); Files_ReadInt(&*r, r__typ, &tag);
@ -1614,9 +1614,9 @@ static struct Store__39 {
struct Store__39 *lnk; struct Store__39 *lnk;
} *Store__39_s; } *Store__39_s;
static void StoreElem__40 (Files_Rider *r, LONGINT *r__typ, int32 pos, Texts_Elem e); static void StoreElem__40 (Files_Rider *r, address *r__typ, int32 pos, Texts_Elem e);
static void StoreElem__40 (Files_Rider *r, LONGINT *r__typ, int32 pos, Texts_Elem e) static void StoreElem__40 (Files_Rider *r, address *r__typ, int32 pos, Texts_Elem e)
{ {
Files_Rider r1; Files_Rider r1;
int32 org, span; int32 org, span;
@ -1646,7 +1646,7 @@ static void StoreElem__40 (Files_Rider *r, LONGINT *r__typ, int32 pos, Texts_Ele
Files_WriteLInt(&r1, Files_Rider__typ, e->H); Files_WriteLInt(&r1, Files_Rider__typ, e->H);
} }
void Texts_Store (Files_Rider *r, LONGINT *r__typ, Texts_Text T) void Texts_Store (Files_Rider *r, address *r__typ, Texts_Text T)
{ {
Files_Rider r1; Files_Rider r1;
Texts_Run u = NIL, un = NIL; Texts_Run u = NIL, un = NIL;

78
bootstrap/unix-48/Texts.h
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 */
#ifndef Texts__h #ifndef Texts__h
#define Texts__h #define Texts__h
@ -35,7 +35,7 @@ typedef
} Texts_RunDesc; } Texts_RunDesc;
typedef typedef
void (*Texts_Handler)(Texts_Elem, Texts_ElemMsg*, LONGINT *); void (*Texts_Handler)(Texts_Elem, Texts_ElemMsg*, address *);
typedef typedef
struct Texts_ElemDesc { struct Texts_ElemDesc {
@ -116,18 +116,18 @@ typedef
import Texts_Elem Texts_new; import Texts_Elem Texts_new;
import LONGINT *Texts_FontDesc__typ; import address *Texts_FontDesc__typ;
import LONGINT *Texts_RunDesc__typ; import address *Texts_RunDesc__typ;
import LONGINT *Texts_ElemMsg__typ; import address *Texts_ElemMsg__typ;
import LONGINT *Texts_ElemDesc__typ; import address *Texts_ElemDesc__typ;
import LONGINT *Texts_FileMsg__typ; import address *Texts_FileMsg__typ;
import LONGINT *Texts_CopyMsg__typ; import address *Texts_CopyMsg__typ;
import LONGINT *Texts_IdentifyMsg__typ; import address *Texts_IdentifyMsg__typ;
import LONGINT *Texts_BufDesc__typ; import address *Texts_BufDesc__typ;
import LONGINT *Texts_TextDesc__typ; import address *Texts_TextDesc__typ;
import LONGINT *Texts_Reader__typ; import address *Texts_Reader__typ;
import LONGINT *Texts_Scanner__typ; import address *Texts_Scanner__typ;
import LONGINT *Texts_Writer__typ; import address *Texts_Writer__typ;
import void Texts_Append (Texts_Text T, Texts_Buffer B); import void Texts_Append (Texts_Text T, Texts_Buffer B);
import void Texts_ChangeLooks (Texts_Text T, int32 beg, int32 end, SET sel, Texts_FontsFont fnt, int8 col, int8 voff); import void Texts_ChangeLooks (Texts_Text T, int32 beg, int32 end, SET sel, Texts_FontsFont fnt, int8 col, int8 voff);
@ -138,35 +138,35 @@ import void Texts_Delete (Texts_Text T, int32 beg, int32 end);
import Texts_Text Texts_ElemBase (Texts_Elem E); import Texts_Text Texts_ElemBase (Texts_Elem E);
import int32 Texts_ElemPos (Texts_Elem E); import int32 Texts_ElemPos (Texts_Elem E);
import void Texts_Insert (Texts_Text T, int32 pos, Texts_Buffer B); import void Texts_Insert (Texts_Text T, int32 pos, Texts_Buffer B);
import void Texts_Load (Files_Rider *r, LONGINT *r__typ, Texts_Text T); import void Texts_Load (Files_Rider *r, address *r__typ, Texts_Text T);
import void Texts_Open (Texts_Text T, CHAR *name, LONGINT name__len); import void Texts_Open (Texts_Text T, CHAR *name, LONGINT name__len);
import void Texts_OpenBuf (Texts_Buffer B); import void Texts_OpenBuf (Texts_Buffer B);
import void Texts_OpenReader (Texts_Reader *R, LONGINT *R__typ, Texts_Text T, int32 pos); import void Texts_OpenReader (Texts_Reader *R, address *R__typ, Texts_Text T, int32 pos);
import void Texts_OpenScanner (Texts_Scanner *S, LONGINT *S__typ, Texts_Text T, int32 pos); import void Texts_OpenScanner (Texts_Scanner *S, address *S__typ, Texts_Text T, int32 pos);
import void Texts_OpenWriter (Texts_Writer *W, LONGINT *W__typ); import void Texts_OpenWriter (Texts_Writer *W, address *W__typ);
import int32 Texts_Pos (Texts_Reader *R, LONGINT *R__typ); import int32 Texts_Pos (Texts_Reader *R, address *R__typ);
import void Texts_Read (Texts_Reader *R, LONGINT *R__typ, CHAR *ch); import void Texts_Read (Texts_Reader *R, address *R__typ, CHAR *ch);
import void Texts_ReadElem (Texts_Reader *R, LONGINT *R__typ); import void Texts_ReadElem (Texts_Reader *R, address *R__typ);
import void Texts_ReadPrevElem (Texts_Reader *R, LONGINT *R__typ); import void Texts_ReadPrevElem (Texts_Reader *R, address *R__typ);
import void Texts_Recall (Texts_Buffer *B); import void Texts_Recall (Texts_Buffer *B);
import void Texts_Save (Texts_Text T, int32 beg, int32 end, Texts_Buffer B); import void Texts_Save (Texts_Text T, int32 beg, int32 end, Texts_Buffer B);
import void Texts_Scan (Texts_Scanner *S, LONGINT *S__typ); import void Texts_Scan (Texts_Scanner *S, address *S__typ);
import void Texts_SetColor (Texts_Writer *W, LONGINT *W__typ, int8 col); import void Texts_SetColor (Texts_Writer *W, address *W__typ, int8 col);
import void Texts_SetFont (Texts_Writer *W, LONGINT *W__typ, Texts_FontsFont fnt); import void Texts_SetFont (Texts_Writer *W, address *W__typ, Texts_FontsFont fnt);
import void Texts_SetOffset (Texts_Writer *W, LONGINT *W__typ, int8 voff); import void Texts_SetOffset (Texts_Writer *W, address *W__typ, int8 voff);
import void Texts_Store (Files_Rider *r, LONGINT *r__typ, Texts_Text T); import void Texts_Store (Files_Rider *r, address *r__typ, Texts_Text T);
import void Texts_Write (Texts_Writer *W, LONGINT *W__typ, CHAR ch); import void Texts_Write (Texts_Writer *W, address *W__typ, CHAR ch);
import void Texts_WriteDate (Texts_Writer *W, LONGINT *W__typ, int32 t, int32 d); import void Texts_WriteDate (Texts_Writer *W, address *W__typ, int32 t, int32 d);
import void Texts_WriteElem (Texts_Writer *W, LONGINT *W__typ, Texts_Elem e); import void Texts_WriteElem (Texts_Writer *W, address *W__typ, Texts_Elem e);
import void Texts_WriteHex (Texts_Writer *W, LONGINT *W__typ, int32 x); import void Texts_WriteHex (Texts_Writer *W, address *W__typ, int32 x);
import void Texts_WriteInt (Texts_Writer *W, LONGINT *W__typ, int64 x, int64 n); import void Texts_WriteInt (Texts_Writer *W, address *W__typ, int64 x, int64 n);
import void Texts_WriteLn (Texts_Writer *W, LONGINT *W__typ); import void Texts_WriteLn (Texts_Writer *W, address *W__typ);
import void Texts_WriteLongReal (Texts_Writer *W, LONGINT *W__typ, LONGREAL x, int16 n); import void Texts_WriteLongReal (Texts_Writer *W, address *W__typ, LONGREAL x, int16 n);
import void Texts_WriteLongRealHex (Texts_Writer *W, LONGINT *W__typ, LONGREAL x); import void Texts_WriteLongRealHex (Texts_Writer *W, address *W__typ, LONGREAL x);
import void Texts_WriteReal (Texts_Writer *W, LONGINT *W__typ, REAL x, int16 n); import void Texts_WriteReal (Texts_Writer *W, address *W__typ, REAL x, int16 n);
import void Texts_WriteRealFix (Texts_Writer *W, LONGINT *W__typ, REAL x, int16 n, int16 k); import void Texts_WriteRealFix (Texts_Writer *W, address *W__typ, REAL x, int16 n, int16 k);
import void Texts_WriteRealHex (Texts_Writer *W, LONGINT *W__typ, REAL x); import void Texts_WriteRealHex (Texts_Writer *W, address *W__typ, REAL x);
import void Texts_WriteString (Texts_Writer *W, LONGINT *W__typ, CHAR *s, LONGINT s__len); import void Texts_WriteString (Texts_Writer *W, address *W__typ, CHAR *s, LONGINT s__len);
import void *Texts__init(void); import void *Texts__init(void);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspamSf */ /* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspamSf */
#define INTEGER int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32

2
bootstrap/unix-48/errors.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 int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32

2
bootstrap/unix-48/errors.h
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 */
#ifndef errors__h #ifndef errors__h
#define errors__h #define errors__h

2
bootstrap/unix-48/extTools.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 int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32

2
bootstrap/unix-48/extTools.h
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 */
#ifndef extTools__h #ifndef extTools__h
#define extTools__h #define extTools__h

2
bootstrap/unix-48/vt100.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 int16 #define INTEGER int16
#define LONGINT int32 #define LONGINT int32

2
bootstrap/unix-48/vt100.h
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 */
#ifndef vt100__h #ifndef vt100__h
#define vt100__h #define vt100__h

4
bootstrap/unix-88/Configuration.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 INTEGER int32
#define LONGINT int64 #define LONGINT int64
@ -18,6 +18,6 @@ export void *Configuration__init(void)
__DEFMOD; __DEFMOD;
__REGMOD("Configuration", 0); __REGMOD("Configuration", 0);
/* BEGIN */ /* BEGIN */
__MOVE("1.95 [2016/09/22] for gcc LP64 on cygwin", Configuration_versionLong, 41); __MOVE("1.95 [2016/09/23] for gcc LP64 on cygwin", Configuration_versionLong, 41);
__ENDMOD; __ENDMOD;
} }

2
bootstrap/unix-88/Configuration.h
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 */
#ifndef Configuration__h #ifndef Configuration__h
#define Configuration__h #define Configuration__h

6
bootstrap/unix-88/Console.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 INTEGER int32
#define LONGINT int64 #define LONGINT int64
@ -118,10 +118,10 @@ void Console_Hex (int64 i)
void Console_Read (CHAR *ch) void Console_Read (CHAR *ch)
{ {
address n; int64 n;
int32 error; int32 error;
Console_Flush(); Console_Flush();
error = Platform_ReadBuf(0, (void*)&*ch, 1, (void*)&n); error = Platform_ReadBuf(0, (void*)&*ch, 1, &n);
if (n != 1) { if (n != 1) {
*ch = 0x00; *ch = 0x00;
} }

2
bootstrap/unix-88/Console.h
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 */
#ifndef Console__h #ifndef Console__h
#define Console__h #define Console__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin tspaSfF */ /* voc 1.95 [2016/09/23] for gcc LP64 on cygwin tspaSfF */
#define INTEGER int32 #define INTEGER int32
#define LONGINT int64 #define LONGINT int64
@ -56,11 +56,11 @@ static struct {
CHAR data[1]; CHAR data[1];
} *Files_SearchPath; } *Files_SearchPath;
export LONGINT *Files_FileDesc__typ; export address *Files_FileDesc__typ;
export LONGINT *Files_BufDesc__typ; export address *Files_BufDesc__typ;
export LONGINT *Files_Rider__typ; export address *Files_Rider__typ;
export Files_File Files_Base (Files_Rider *r, LONGINT *r__typ); export Files_File Files_Base (Files_Rider *r, address *r__typ);
static Files_File Files_CacheEntry (Platform_FileIdentity identity); static Files_File Files_CacheEntry (Platform_FileIdentity identity);
export void Files_ChangeDirectory (CHAR *path, LONGINT path__len, int32 *res); export void Files_ChangeDirectory (CHAR *path, LONGINT path__len, int32 *res);
export void Files_Close (Files_File f); export void Files_Close (Files_File f);
@ -79,37 +79,37 @@ export int64 Files_Length (Files_File f);
static void Files_MakeFileName (CHAR *dir, LONGINT dir__len, CHAR *name, LONGINT name__len, CHAR *dest, LONGINT dest__len); static void Files_MakeFileName (CHAR *dir, LONGINT dir__len, CHAR *name, LONGINT name__len, CHAR *dest, LONGINT dest__len);
export Files_File Files_New (CHAR *name, LONGINT name__len); export Files_File Files_New (CHAR *name, LONGINT name__len);
export Files_File Files_Old (CHAR *name, LONGINT name__len); export Files_File Files_Old (CHAR *name, LONGINT name__len);
export int64 Files_Pos (Files_Rider *r, LONGINT *r__typ); export int64 Files_Pos (Files_Rider *r, address *r__typ);
export void Files_Purge (Files_File f); export void Files_Purge (Files_File f);
export void Files_Read (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x); export void Files_Read (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x);
export void Files_ReadBool (Files_Rider *R, LONGINT *R__typ, BOOLEAN *x); export void Files_ReadBool (Files_Rider *R, address *R__typ, BOOLEAN *x);
export void Files_ReadByte (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len); export void Files_ReadByte (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len);
export void Files_ReadBytes (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int64 n); export void Files_ReadBytes (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int64 n);
export void Files_ReadInt (Files_Rider *R, LONGINT *R__typ, int32 *x); export void Files_ReadInt (Files_Rider *R, address *R__typ, int32 *x);
export void Files_ReadLInt (Files_Rider *R, LONGINT *R__typ, int64 *x); export void Files_ReadLInt (Files_Rider *R, address *R__typ, int64 *x);
export void Files_ReadLReal (Files_Rider *R, LONGINT *R__typ, LONGREAL *x); export void Files_ReadLReal (Files_Rider *R, address *R__typ, LONGREAL *x);
export void Files_ReadLine (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len); export void Files_ReadLine (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len);
export void Files_ReadNum (Files_Rider *R, LONGINT *R__typ, int64 *x); export void Files_ReadNum (Files_Rider *R, address *R__typ, int64 *x);
export void Files_ReadNum64 (Files_Rider *R, LONGINT *R__typ, int64 *x); export void Files_ReadNum64 (Files_Rider *R, address *R__typ, int64 *x);
export void Files_ReadReal (Files_Rider *R, LONGINT *R__typ, REAL *x); export void Files_ReadReal (Files_Rider *R, address *R__typ, REAL *x);
export void Files_ReadSet (Files_Rider *R, LONGINT *R__typ, SET *x); export void Files_ReadSet (Files_Rider *R, address *R__typ, SET *x);
export void Files_ReadString (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len); export void Files_ReadString (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len);
export void Files_Register (Files_File f); export void Files_Register (Files_File f);
export void Files_Rename (CHAR *old, LONGINT old__len, CHAR *new, LONGINT new__len, int32 *res); export void Files_Rename (CHAR *old, LONGINT old__len, CHAR *new, LONGINT new__len, int32 *res);
static void Files_ScanPath (int32 *pos, CHAR *dir, LONGINT dir__len); static void Files_ScanPath (int32 *pos, CHAR *dir, LONGINT dir__len);
export void Files_Set (Files_Rider *r, LONGINT *r__typ, Files_File f, int64 pos); export void Files_Set (Files_Rider *r, address *r__typ, Files_File f, int64 pos);
export void Files_SetSearchPath (CHAR *path, LONGINT path__len); export void Files_SetSearchPath (CHAR *path, LONGINT path__len);
export void Files_Write (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE x); export void Files_Write (Files_Rider *r, address *r__typ, SYSTEM_BYTE x);
export void Files_WriteBool (Files_Rider *R, LONGINT *R__typ, BOOLEAN x); export void Files_WriteBool (Files_Rider *R, address *R__typ, BOOLEAN x);
export void Files_WriteBytes (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int64 n); export void Files_WriteBytes (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int64 n);
export void Files_WriteInt (Files_Rider *R, LONGINT *R__typ, int32 x); export void Files_WriteInt (Files_Rider *R, address *R__typ, int32 x);
export void Files_WriteLInt (Files_Rider *R, LONGINT *R__typ, int64 x); export void Files_WriteLInt (Files_Rider *R, address *R__typ, int64 x);
export void Files_WriteLReal (Files_Rider *R, LONGINT *R__typ, LONGREAL x); export void Files_WriteLReal (Files_Rider *R, address *R__typ, LONGREAL x);
export void Files_WriteNum (Files_Rider *R, LONGINT *R__typ, int64 x); export void Files_WriteNum (Files_Rider *R, address *R__typ, int64 x);
export void Files_WriteNum64 (Files_Rider *R, LONGINT *R__typ, int64 x); export void Files_WriteNum64 (Files_Rider *R, address *R__typ, int64 x);
export void Files_WriteReal (Files_Rider *R, LONGINT *R__typ, REAL x); export void Files_WriteReal (Files_Rider *R, address *R__typ, REAL x);
export void Files_WriteSet (Files_Rider *R, LONGINT *R__typ, SET x); export void Files_WriteSet (Files_Rider *R, address *R__typ, SET x);
export void Files_WriteString (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len); export void Files_WriteString (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len);
#define Files_IdxTrap() __HALT(-1) #define Files_IdxTrap() __HALT(-1)
@ -544,14 +544,14 @@ void Files_GetDate (Files_File f, int64 *t, int64 *d)
Platform_MTimeAsClock(identity, &*t, &*d); Platform_MTimeAsClock(identity, &*t, &*d);
} }
int64 Files_Pos (Files_Rider *r, LONGINT *r__typ) int64 Files_Pos (Files_Rider *r, address *r__typ)
{ {
int64 _o_result; int64 _o_result;
_o_result = (*r).org + (*r).offset; _o_result = (*r).org + (*r).offset;
return _o_result; return _o_result;
} }
void Files_Set (Files_Rider *r, LONGINT *r__typ, Files_File f, int64 pos) void Files_Set (Files_Rider *r, address *r__typ, Files_File f, int64 pos)
{ {
int64 org, offset, i, n; int64 org, offset, i, n;
Files_Buffer buf = NIL; Files_Buffer buf = NIL;
@ -613,7 +613,7 @@ void Files_Set (Files_Rider *r, LONGINT *r__typ, Files_File f, int64 pos)
(*r).res = 0; (*r).res = 0;
} }
void Files_Read (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x) void Files_Read (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x)
{ {
int64 offset; int64 offset;
Files_Buffer buf = NIL; Files_Buffer buf = NIL;
@ -637,7 +637,7 @@ void Files_Read (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x)
} }
} }
void Files_ReadBytes (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int64 n) void Files_ReadBytes (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int64 n)
{ {
int64 xpos, min, restInBuf, offset; int64 xpos, min, restInBuf, offset;
Files_Buffer buf = NIL; Files_Buffer buf = NIL;
@ -673,19 +673,19 @@ void Files_ReadBytes (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x
(*r).eof = 0; (*r).eof = 0;
} }
void Files_ReadByte (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len) void Files_ReadByte (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len)
{ {
Files_ReadBytes(&*r, r__typ, (void*)x, x__len * 1, 1); Files_ReadBytes(&*r, r__typ, (void*)x, x__len * 1, 1);
} }
Files_File Files_Base (Files_Rider *r, LONGINT *r__typ) Files_File Files_Base (Files_Rider *r, address *r__typ)
{ {
Files_File _o_result; Files_File _o_result;
_o_result = (*r).buf->f; _o_result = (*r).buf->f;
return _o_result; return _o_result;
} }
void Files_Write (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE x) void Files_Write (Files_Rider *r, address *r__typ, SYSTEM_BYTE x)
{ {
Files_Buffer buf = NIL; Files_Buffer buf = NIL;
int64 offset; int64 offset;
@ -706,7 +706,7 @@ void Files_Write (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE x)
(*r).res = 0; (*r).res = 0;
} }
void Files_WriteBytes (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int64 n) void Files_WriteBytes (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int64 n)
{ {
int64 xpos, min, restInBuf, offset; int64 xpos, min, restInBuf, offset;
Files_Buffer buf = NIL; Files_Buffer buf = NIL;
@ -849,26 +849,26 @@ static void Files_FlipBytes (SYSTEM_BYTE *src, LONGINT src__len, SYSTEM_BYTE *de
} }
} }
void Files_ReadBool (Files_Rider *R, LONGINT *R__typ, BOOLEAN *x) void Files_ReadBool (Files_Rider *R, address *R__typ, BOOLEAN *x)
{ {
Files_Read(&*R, R__typ, (CHAR*)(void*)&*x); Files_Read(&*R, R__typ, (CHAR*)(void*)&*x);
} }
void Files_ReadInt (Files_Rider *R, LONGINT *R__typ, int32 *x) void Files_ReadInt (Files_Rider *R, address *R__typ, int32 *x)
{ {
CHAR b[2]; CHAR b[2];
Files_ReadBytes(&*R, R__typ, (void*)b, 2, 2); Files_ReadBytes(&*R, R__typ, (void*)b, 2, 2);
*x = b[0] + __ASHL(b[1], 8); *x = b[0] + __ASHL(b[1], 8);
} }
void Files_ReadLInt (Files_Rider *R, LONGINT *R__typ, int64 *x) void Files_ReadLInt (Files_Rider *R, address *R__typ, int64 *x)
{ {
CHAR b[4]; CHAR b[4];
Files_ReadBytes(&*R, R__typ, (void*)b, 4, 4); Files_ReadBytes(&*R, R__typ, (void*)b, 4, 4);
*x = ((b[0] + __ASHL(b[1], 8)) + __ASHL(b[2], 16)) + __ASHL(b[3], 24); *x = ((b[0] + __ASHL(b[1], 8)) + __ASHL(b[2], 16)) + __ASHL(b[3], 24);
} }
void Files_ReadSet (Files_Rider *R, LONGINT *R__typ, SET *x) void Files_ReadSet (Files_Rider *R, address *R__typ, SET *x)
{ {
CHAR b[4]; CHAR b[4];
int64 l; int64 l;
@ -877,21 +877,21 @@ void Files_ReadSet (Files_Rider *R, LONGINT *R__typ, SET *x)
*x = (SET)l; *x = (SET)l;
} }
void Files_ReadReal (Files_Rider *R, LONGINT *R__typ, REAL *x) void Files_ReadReal (Files_Rider *R, address *R__typ, REAL *x)
{ {
CHAR b[4]; CHAR b[4];
Files_ReadBytes(&*R, R__typ, (void*)b, 4, 4); Files_ReadBytes(&*R, R__typ, (void*)b, 4, 4);
Files_FlipBytes((void*)b, 4, (void*)&*x, 4); Files_FlipBytes((void*)b, 4, (void*)&*x, 4);
} }
void Files_ReadLReal (Files_Rider *R, LONGINT *R__typ, LONGREAL *x) void Files_ReadLReal (Files_Rider *R, address *R__typ, LONGREAL *x)
{ {
CHAR b[8]; CHAR b[8];
Files_ReadBytes(&*R, R__typ, (void*)b, 8, 8); Files_ReadBytes(&*R, R__typ, (void*)b, 8, 8);
Files_FlipBytes((void*)b, 8, (void*)&*x, 8); Files_FlipBytes((void*)b, 8, (void*)&*x, 8);
} }
void Files_ReadString (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len) void Files_ReadString (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len)
{ {
int32 i; int32 i;
CHAR ch; CHAR ch;
@ -903,7 +903,7 @@ void Files_ReadString (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len)
} while (!(ch == 0x00)); } while (!(ch == 0x00));
} }
void Files_ReadLine (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len) void Files_ReadLine (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len)
{ {
int32 i; int32 i;
CHAR ch; CHAR ch;
@ -921,7 +921,7 @@ void Files_ReadLine (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len)
} while (!b); } while (!b);
} }
void Files_ReadNum (Files_Rider *R, LONGINT *R__typ, int64 *x) void Files_ReadNum (Files_Rider *R, address *R__typ, int64 *x)
{ {
int8 s; int8 s;
CHAR ch; CHAR ch;
@ -938,19 +938,19 @@ void Files_ReadNum (Files_Rider *R, LONGINT *R__typ, int64 *x)
*x = n; *x = n;
} }
void Files_ReadNum64 (Files_Rider *R, LONGINT *R__typ, int64 *x) void Files_ReadNum64 (Files_Rider *R, address *R__typ, int64 *x)
{ {
int64 n; int64 n;
Files_ReadNum(&*R, R__typ, &n); Files_ReadNum(&*R, R__typ, &n);
*x = n; *x = n;
} }
void Files_WriteBool (Files_Rider *R, LONGINT *R__typ, BOOLEAN x) void Files_WriteBool (Files_Rider *R, address *R__typ, BOOLEAN x)
{ {
Files_Write(&*R, R__typ, __VAL(CHAR, x)); Files_Write(&*R, R__typ, __VAL(CHAR, x));
} }
void Files_WriteInt (Files_Rider *R, LONGINT *R__typ, int32 x) void Files_WriteInt (Files_Rider *R, address *R__typ, int32 x)
{ {
CHAR b[2]; CHAR b[2];
b[0] = (CHAR)x; b[0] = (CHAR)x;
@ -958,7 +958,7 @@ void Files_WriteInt (Files_Rider *R, LONGINT *R__typ, int32 x)
Files_WriteBytes(&*R, R__typ, (void*)b, 2, 2); Files_WriteBytes(&*R, R__typ, (void*)b, 2, 2);
} }
void Files_WriteLInt (Files_Rider *R, LONGINT *R__typ, int64 x) void Files_WriteLInt (Files_Rider *R, address *R__typ, int64 x)
{ {
CHAR b[4]; CHAR b[4];
b[0] = (CHAR)x; b[0] = (CHAR)x;
@ -968,7 +968,7 @@ void Files_WriteLInt (Files_Rider *R, LONGINT *R__typ, int64 x)
Files_WriteBytes(&*R, R__typ, (void*)b, 4, 4); Files_WriteBytes(&*R, R__typ, (void*)b, 4, 4);
} }
void Files_WriteSet (Files_Rider *R, LONGINT *R__typ, SET x) void Files_WriteSet (Files_Rider *R, address *R__typ, SET x)
{ {
CHAR b[4]; CHAR b[4];
int64 i; int64 i;
@ -980,21 +980,21 @@ void Files_WriteSet (Files_Rider *R, LONGINT *R__typ, SET x)
Files_WriteBytes(&*R, R__typ, (void*)b, 4, 4); Files_WriteBytes(&*R, R__typ, (void*)b, 4, 4);
} }
void Files_WriteReal (Files_Rider *R, LONGINT *R__typ, REAL x) void Files_WriteReal (Files_Rider *R, address *R__typ, REAL x)
{ {
CHAR b[4]; CHAR b[4];
Files_FlipBytes((void*)&x, 4, (void*)b, 4); Files_FlipBytes((void*)&x, 4, (void*)b, 4);
Files_WriteBytes(&*R, R__typ, (void*)b, 4, 4); Files_WriteBytes(&*R, R__typ, (void*)b, 4, 4);
} }
void Files_WriteLReal (Files_Rider *R, LONGINT *R__typ, LONGREAL x) void Files_WriteLReal (Files_Rider *R, address *R__typ, LONGREAL x)
{ {
CHAR b[8]; CHAR b[8];
Files_FlipBytes((void*)&x, 8, (void*)b, 8); Files_FlipBytes((void*)&x, 8, (void*)b, 8);
Files_WriteBytes(&*R, R__typ, (void*)b, 8, 8); Files_WriteBytes(&*R, R__typ, (void*)b, 8, 8);
} }
void Files_WriteString (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len) void Files_WriteString (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len)
{ {
int32 i; int32 i;
i = 0; i = 0;
@ -1004,7 +1004,7 @@ void Files_WriteString (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len
Files_WriteBytes(&*R, R__typ, (void*)x, x__len * 1, i + 1); Files_WriteBytes(&*R, R__typ, (void*)x, x__len * 1, i + 1);
} }
void Files_WriteNum (Files_Rider *R, LONGINT *R__typ, int64 x) void Files_WriteNum (Files_Rider *R, address *R__typ, int64 x)
{ {
while (x < -64 || x > 63) { while (x < -64 || x > 63) {
Files_Write(&*R, R__typ, (CHAR)(__MASK(x, -128) + 128)); Files_Write(&*R, R__typ, (CHAR)(__MASK(x, -128) + 128));
@ -1013,7 +1013,7 @@ void Files_WriteNum (Files_Rider *R, LONGINT *R__typ, int64 x)
Files_Write(&*R, R__typ, (CHAR)__MASK(x, -128)); Files_Write(&*R, R__typ, (CHAR)__MASK(x, -128));
} }
void Files_WriteNum64 (Files_Rider *R, LONGINT *R__typ, int64 x) void Files_WriteNum64 (Files_Rider *R, address *R__typ, int64 x)
{ {
while (x < -64 || x > 63) { while (x < -64 || x > 63) {
Files_Write(&*R, R__typ, (CHAR)(__MASK(x, -128) + 128)); Files_Write(&*R, R__typ, (CHAR)(__MASK(x, -128) + 128));

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin tspaSfF */ /* voc 1.95 [2016/09/23] for gcc LP64 on cygwin tspaSfF */
#ifndef Files__h #ifndef Files__h
#define Files__h #define Files__h
@ -24,10 +24,10 @@ typedef
import LONGINT *Files_FileDesc__typ; import address *Files_FileDesc__typ;
import LONGINT *Files_Rider__typ; import address *Files_Rider__typ;
import Files_File Files_Base (Files_Rider *r, LONGINT *r__typ); import Files_File Files_Base (Files_Rider *r, address *r__typ);
import void Files_ChangeDirectory (CHAR *path, LONGINT path__len, int32 *res); import void Files_ChangeDirectory (CHAR *path, LONGINT path__len, int32 *res);
import void Files_Close (Files_File f); import void Files_Close (Files_File f);
import void Files_Delete (CHAR *name, LONGINT name__len, int32 *res); import void Files_Delete (CHAR *name, LONGINT name__len, int32 *res);
@ -36,36 +36,36 @@ import void Files_GetName (Files_File f, CHAR *name, LONGINT name__len);
import int64 Files_Length (Files_File f); import int64 Files_Length (Files_File f);
import Files_File Files_New (CHAR *name, LONGINT name__len); import Files_File Files_New (CHAR *name, LONGINT name__len);
import Files_File Files_Old (CHAR *name, LONGINT name__len); import Files_File Files_Old (CHAR *name, LONGINT name__len);
import int64 Files_Pos (Files_Rider *r, LONGINT *r__typ); import int64 Files_Pos (Files_Rider *r, address *r__typ);
import void Files_Purge (Files_File f); import void Files_Purge (Files_File f);
import void Files_Read (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x); import void Files_Read (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x);
import void Files_ReadBool (Files_Rider *R, LONGINT *R__typ, BOOLEAN *x); import void Files_ReadBool (Files_Rider *R, address *R__typ, BOOLEAN *x);
import void Files_ReadByte (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len); import void Files_ReadByte (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len);
import void Files_ReadBytes (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int64 n); import void Files_ReadBytes (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int64 n);
import void Files_ReadInt (Files_Rider *R, LONGINT *R__typ, int32 *x); import void Files_ReadInt (Files_Rider *R, address *R__typ, int32 *x);
import void Files_ReadLInt (Files_Rider *R, LONGINT *R__typ, int64 *x); import void Files_ReadLInt (Files_Rider *R, address *R__typ, int64 *x);
import void Files_ReadLReal (Files_Rider *R, LONGINT *R__typ, LONGREAL *x); import void Files_ReadLReal (Files_Rider *R, address *R__typ, LONGREAL *x);
import void Files_ReadLine (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len); import void Files_ReadLine (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len);
import void Files_ReadNum (Files_Rider *R, LONGINT *R__typ, int64 *x); import void Files_ReadNum (Files_Rider *R, address *R__typ, int64 *x);
import void Files_ReadNum64 (Files_Rider *R, LONGINT *R__typ, int64 *x); import void Files_ReadNum64 (Files_Rider *R, address *R__typ, int64 *x);
import void Files_ReadReal (Files_Rider *R, LONGINT *R__typ, REAL *x); import void Files_ReadReal (Files_Rider *R, address *R__typ, REAL *x);
import void Files_ReadSet (Files_Rider *R, LONGINT *R__typ, SET *x); import void Files_ReadSet (Files_Rider *R, address *R__typ, SET *x);
import void Files_ReadString (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len); import void Files_ReadString (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len);
import void Files_Register (Files_File f); import void Files_Register (Files_File f);
import void Files_Rename (CHAR *old, LONGINT old__len, CHAR *new, LONGINT new__len, int32 *res); import void Files_Rename (CHAR *old, LONGINT old__len, CHAR *new, LONGINT new__len, int32 *res);
import void Files_Set (Files_Rider *r, LONGINT *r__typ, Files_File f, int64 pos); import void Files_Set (Files_Rider *r, address *r__typ, Files_File f, int64 pos);
import void Files_SetSearchPath (CHAR *path, LONGINT path__len); import void Files_SetSearchPath (CHAR *path, LONGINT path__len);
import void Files_Write (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE x); import void Files_Write (Files_Rider *r, address *r__typ, SYSTEM_BYTE x);
import void Files_WriteBool (Files_Rider *R, LONGINT *R__typ, BOOLEAN x); import void Files_WriteBool (Files_Rider *R, address *R__typ, BOOLEAN x);
import void Files_WriteBytes (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int64 n); import void Files_WriteBytes (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int64 n);
import void Files_WriteInt (Files_Rider *R, LONGINT *R__typ, int32 x); import void Files_WriteInt (Files_Rider *R, address *R__typ, int32 x);
import void Files_WriteLInt (Files_Rider *R, LONGINT *R__typ, int64 x); import void Files_WriteLInt (Files_Rider *R, address *R__typ, int64 x);
import void Files_WriteLReal (Files_Rider *R, LONGINT *R__typ, LONGREAL x); import void Files_WriteLReal (Files_Rider *R, address *R__typ, LONGREAL x);
import void Files_WriteNum (Files_Rider *R, LONGINT *R__typ, int64 x); import void Files_WriteNum (Files_Rider *R, address *R__typ, int64 x);
import void Files_WriteNum64 (Files_Rider *R, LONGINT *R__typ, int64 x); import void Files_WriteNum64 (Files_Rider *R, address *R__typ, int64 x);
import void Files_WriteReal (Files_Rider *R, LONGINT *R__typ, REAL x); import void Files_WriteReal (Files_Rider *R, address *R__typ, REAL x);
import void Files_WriteSet (Files_Rider *R, LONGINT *R__typ, SET x); import void Files_WriteSet (Files_Rider *R, address *R__typ, SET x);
import void Files_WriteString (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len); import void Files_WriteString (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len);
import void *Files__init(void); import void *Files__init(void);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin tsSfF */ /* voc 1.95 [2016/09/23] for gcc LP64 on cygwin tsSfF */
#define INTEGER int32 #define INTEGER int32
#define LONGINT int64 #define LONGINT int64
@ -74,10 +74,10 @@ static int32 Heap_lockdepth;
static BOOLEAN Heap_interrupted; static BOOLEAN Heap_interrupted;
export int32 Heap_FileCount; export int32 Heap_FileCount;
export LONGINT *Heap_ModuleDesc__typ; export address *Heap_ModuleDesc__typ;
export LONGINT *Heap_CmdDesc__typ; export address *Heap_CmdDesc__typ;
export LONGINT *Heap_FinDesc__typ; export address *Heap_FinDesc__typ;
export LONGINT *Heap__1__typ; export address *Heap__1__typ;
static void Heap_CheckFin (void); static void Heap_CheckFin (void);
static void Heap_ExtendHeap (address blksz); static void Heap_ExtendHeap (address blksz);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin tsSfF */ /* voc 1.95 [2016/09/23] for gcc LP64 on cygwin tsSfF */
#ifndef Heap__h #ifndef Heap__h
#define Heap__h #define Heap__h
@ -34,7 +34,7 @@ import SYSTEM_PTR Heap_modules;
import address Heap_allocated, Heap_heapsize; import address Heap_allocated, Heap_heapsize;
import int32 Heap_FileCount; import int32 Heap_FileCount;
import LONGINT *Heap_ModuleDesc__typ; import address *Heap_ModuleDesc__typ;
import void Heap_FINALL (void); import void Heap_FINALL (void);
import void Heap_GC (BOOLEAN markStack); import void Heap_GC (BOOLEAN markStack);

6
bootstrap/unix-88/Modules.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 INTEGER int32
#define LONGINT int64 #define LONGINT int64
@ -43,8 +43,8 @@ export int32 Modules_res;
export CHAR Modules_resMsg[256]; export CHAR Modules_resMsg[256];
export Modules_ModuleName Modules_imported, Modules_importing; export Modules_ModuleName Modules_imported, Modules_importing;
export LONGINT *Modules_ModuleDesc__typ; export address *Modules_ModuleDesc__typ;
export LONGINT *Modules_CmdDesc__typ; export address *Modules_CmdDesc__typ;
static void Modules_Append (CHAR *a, LONGINT a__len, CHAR *b, LONGINT b__len); static void Modules_Append (CHAR *a, LONGINT a__len, CHAR *b, LONGINT b__len);
export void Modules_Free (CHAR *name, LONGINT name__len, BOOLEAN all); export void Modules_Free (CHAR *name, LONGINT name__len, BOOLEAN all);

6
bootstrap/unix-88/Modules.h
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 */
#ifndef Modules__h #ifndef Modules__h
#define Modules__h #define Modules__h
@ -40,8 +40,8 @@ import int32 Modules_res;
import CHAR Modules_resMsg[256]; import CHAR Modules_resMsg[256];
import Modules_ModuleName Modules_imported, Modules_importing; import Modules_ModuleName Modules_imported, Modules_importing;
import LONGINT *Modules_ModuleDesc__typ; import address *Modules_ModuleDesc__typ;
import LONGINT *Modules_CmdDesc__typ; import address *Modules_CmdDesc__typ;
import void Modules_Free (CHAR *name, LONGINT name__len, BOOLEAN all); import void Modules_Free (CHAR *name, LONGINT name__len, BOOLEAN all);
import Modules_Command Modules_ThisCommand (Modules_Module mod, CHAR *name, LONGINT name__len); import Modules_Command Modules_ThisCommand (Modules_Module mod, CHAR *name, LONGINT name__len);

2
bootstrap/unix-88/OPB.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 INTEGER int32
#define LONGINT int64 #define LONGINT int64

2
bootstrap/unix-88/OPB.h
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 */
#ifndef OPB__h #ifndef OPB__h
#define OPB__h #define OPB__h

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 INTEGER int32
#define LONGINT int64 #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)) { } else if ((obj->mode == 2 && obj->typ->comp == 4)) {
OPC_EndStat(); OPC_EndStat();
OPC_BegStat(); OPC_BegStat();
OPM_WriteString((CHAR*)"LONGINT *", 10); OPM_WriteString((CHAR*)"address *", 10);
OPC_Ident(obj); OPC_Ident(obj);
OPM_WriteString((CHAR*)"__typ", 6); OPM_WriteString((CHAR*)"__typ", 6);
base = NIL; base = NIL;
@ -1078,7 +1078,7 @@ static void OPC_AnsiParamList (OPT_Object obj, BOOLEAN showParamNames)
OPM_WriteString((CHAR*)", LONGINT ", 11); OPM_WriteString((CHAR*)", LONGINT ", 11);
OPC_LenList(obj, 1, showParamNames); OPC_LenList(obj, 1, showParamNames);
} else if ((obj->mode == 2 && obj->typ->comp == 4)) { } else if ((obj->mode == 2 && obj->typ->comp == 4)) {
OPM_WriteString((CHAR*)", LONGINT *", 12); OPM_WriteString((CHAR*)", address *", 12);
if (showParamNames) { if (showParamNames) {
OPC_Ident(obj); OPC_Ident(obj);
OPM_WriteString((CHAR*)"__typ", 6); OPM_WriteString((CHAR*)"__typ", 6);
@ -1166,7 +1166,7 @@ static void OPC_GenDynTypes (OPT_Node n, int32 vis)
} else { } else {
OPM_WriteString((CHAR*)"export ", 8); OPM_WriteString((CHAR*)"export ", 8);
} }
OPM_WriteString((CHAR*)"LONGINT *", 10); OPM_WriteString((CHAR*)"address *", 10);
OPC_Andent(typ); OPC_Andent(typ);
OPM_WriteString((CHAR*)"__typ", 6); OPM_WriteString((CHAR*)"__typ", 6);
OPC_EndStat(); OPC_EndStat();

2
bootstrap/unix-88/OPC.h
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 */
#ifndef OPC__h #ifndef OPC__h
#define OPC__h #define OPC__h

14
bootstrap/unix-88/OPM.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 INTEGER int32
#define LONGINT int64 #define LONGINT int64
@ -40,7 +40,7 @@ static CHAR OPM_OBERON[1024];
static CHAR OPM_MODULES[1024]; static CHAR OPM_MODULES[1024];
static void OPM_Append (Files_Rider *R, LONGINT *R__typ, Files_File F); static void OPM_Append (Files_Rider *R, address *R__typ, Files_File F);
export void OPM_CloseFiles (void); export void OPM_CloseFiles (void);
export void OPM_CloseOldSym (void); export void OPM_CloseOldSym (void);
export void OPM_DeleteNewSym (void); export void OPM_DeleteNewSym (void);
@ -48,10 +48,10 @@ export void OPM_FPrint (int64 *fp, int64 val);
export void OPM_FPrintLReal (int64 *fp, LONGREAL lr); export void OPM_FPrintLReal (int64 *fp, LONGREAL lr);
export void OPM_FPrintReal (int64 *fp, REAL real); export void OPM_FPrintReal (int64 *fp, REAL real);
export void OPM_FPrintSet (int64 *fp, SET set); export void OPM_FPrintSet (int64 *fp, SET set);
static void OPM_FindLine (Files_File f, Files_Rider *r, LONGINT *r__typ, int64 pos); static void OPM_FindLine (Files_File f, Files_Rider *r, address *r__typ, int64 pos);
export void OPM_Get (CHAR *ch); export void OPM_Get (CHAR *ch);
static void OPM_GetProperties (void); static void OPM_GetProperties (void);
static void OPM_GetProperty (Texts_Scanner *S, LONGINT *S__typ, CHAR *name, LONGINT name__len, int32 *size, int32 *align); static void OPM_GetProperty (Texts_Scanner *S, address *S__typ, CHAR *name, LONGINT name__len, int32 *size, int32 *align);
export void OPM_Init (BOOLEAN *done, CHAR *mname, LONGINT mname__len); export void OPM_Init (BOOLEAN *done, CHAR *mname, LONGINT mname__len);
export void OPM_InitOptions (void); export void OPM_InitOptions (void);
export int32 OPM_Integer (int64 n); export int32 OPM_Integer (int64 n);
@ -495,7 +495,7 @@ static void OPM_LogErrMsg (int32 n)
OPM_LogWStr(errors_errors[__X(n, 350)], 128); OPM_LogWStr(errors_errors[__X(n, 350)], 128);
} }
static void OPM_FindLine (Files_File f, Files_Rider *r, LONGINT *r__typ, int64 pos) static void OPM_FindLine (Files_File f, Files_Rider *r, address *r__typ, int64 pos)
{ {
CHAR ch, cheol; CHAR ch, cheol;
if (pos < OPM_ErrorLineStartPos) { if (pos < OPM_ErrorLineStartPos) {
@ -651,7 +651,7 @@ void OPM_FPrintLReal (int64 *fp, LONGREAL lr)
OPM_FPrint(&*fp, __VAL(int64, lr)); OPM_FPrint(&*fp, __VAL(int64, lr));
} }
static void OPM_GetProperty (Texts_Scanner *S, LONGINT *S__typ, CHAR *name, LONGINT name__len, int32 *size, int32 *align) static void OPM_GetProperty (Texts_Scanner *S, address *S__typ, CHAR *name, LONGINT name__len, int32 *size, int32 *align)
{ {
__DUP(name, name__len, CHAR); __DUP(name, name__len, CHAR);
if (((*S).class == 1 && __STRCMP((*S).s, name) == 0)) { if (((*S).class == 1 && __STRCMP((*S).s, name) == 0)) {
@ -993,7 +993,7 @@ void OPM_WriteLn (void)
Files_Write(&OPM_R[__X(OPM_currFile, 3)], Files_Rider__typ, 0x0a); Files_Write(&OPM_R[__X(OPM_currFile, 3)], Files_Rider__typ, 0x0a);
} }
static void OPM_Append (Files_Rider *R, LONGINT *R__typ, Files_File F) static void OPM_Append (Files_Rider *R, address *R__typ, Files_File F)
{ {
Files_Rider R1; Files_Rider R1;
CHAR buffer[4096]; CHAR buffer[4096];

2
bootstrap/unix-88/OPM.h
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 */
#ifndef OPM__h #ifndef OPM__h
#define OPM__h #define OPM__h

4
bootstrap/unix-88/OPP.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 INTEGER int32
#define LONGINT int64 #define LONGINT int64
@ -24,7 +24,7 @@ static OPT_Node OPP_TDinit, OPP_lastTDinit;
static int32 OPP_nofFwdPtr; static int32 OPP_nofFwdPtr;
static OPT_Struct OPP_FwdPtr[64]; static OPT_Struct OPP_FwdPtr[64];
export LONGINT *OPP__1__typ; export address *OPP__1__typ;
static void OPP_ActualParameters (OPT_Node *aparlist, OPT_Object fpar); static void OPP_ActualParameters (OPT_Node *aparlist, OPT_Object fpar);
static void OPP_ArrayType (OPT_Struct *typ, OPT_Struct *banned); static void OPP_ArrayType (OPT_Struct *typ, OPT_Struct *banned);

2
bootstrap/unix-88/OPP.h
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 */
#ifndef OPP__h #ifndef OPP__h
#define OPP__h #define OPP__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin tspaSfF */ /* voc 1.95 [2016/09/23] for gcc LP64 on cygwin tspaSfF */
#define INTEGER int32 #define INTEGER int32
#define LONGINT int64 #define LONGINT int64

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin tspaSfF */ /* voc 1.95 [2016/09/23] for gcc LP64 on cygwin tspaSfF */
#ifndef OPS__h #ifndef OPS__h
#define OPS__h #define OPS__h

14
bootstrap/unix-88/OPT.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 INTEGER int32
#define LONGINT int64 #define LONGINT int64
@ -100,12 +100,12 @@ static OPT_ExpCtxt OPT_expCtxt;
static int64 OPT_nofhdfld; static int64 OPT_nofhdfld;
static BOOLEAN OPT_newsf, OPT_findpc, OPT_extsf, OPT_sfpresent, OPT_symExtended, OPT_symNew; static BOOLEAN OPT_newsf, OPT_findpc, OPT_extsf, OPT_sfpresent, OPT_symExtended, OPT_symNew;
export LONGINT *OPT_ConstDesc__typ; export address *OPT_ConstDesc__typ;
export LONGINT *OPT_ObjDesc__typ; export address *OPT_ObjDesc__typ;
export LONGINT *OPT_StrDesc__typ; export address *OPT_StrDesc__typ;
export LONGINT *OPT_NodeDesc__typ; export address *OPT_NodeDesc__typ;
export LONGINT *OPT_ImpCtxt__typ; export address *OPT_ImpCtxt__typ;
export LONGINT *OPT_ExpCtxt__typ; export address *OPT_ExpCtxt__typ;
export void OPT_Close (void); export void OPT_Close (void);
export void OPT_CloseScope (void); export void OPT_CloseScope (void);

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