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

Update bootstrap C source.

Browse source
This commit is contained in:
David Brown 2016-11-25 13:03:26 +00:00
parent cbf78cb6f1
commit 7279aa91be
185 changed files with 1465 additions and 1465 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspamS */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspamS */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

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

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

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Configuration__h #ifndef Configuration__h
#define Configuration__h #define Configuration__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -52,7 +52,7 @@ static Files_File Files_files;
static INT16 Files_tempno; static INT16 Files_tempno;
static CHAR Files_HOME[1024]; static CHAR Files_HOME[1024];
static struct { static struct {
LONGINT len[1]; ADDRESS len[1];
CHAR data[1]; CHAR data[1];
} *Files_SearchPath; } *Files_SearchPath;
@ -62,56 +62,56 @@ export ADDRESS *Files_Rider__typ;
export Files_File Files_Base (Files_Rider *r, ADDRESS *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, ADDRESS path__len, INT16 *res);
export void Files_Close (Files_File f); export void Files_Close (Files_File f);
static void Files_CloseOSFile (Files_File f); static void Files_CloseOSFile (Files_File f);
static void Files_Create (Files_File f); static void Files_Create (Files_File f);
export void Files_Delete (CHAR *name, LONGINT name__len, INT16 *res); export void Files_Delete (CHAR *name, ADDRESS name__len, INT16 *res);
static void Files_Err (CHAR *s, LONGINT s__len, Files_File f, INT16 errcode); static void Files_Err (CHAR *s, ADDRESS s__len, Files_File f, INT16 errcode);
static void Files_Finalize (SYSTEM_PTR o); static void Files_Finalize (SYSTEM_PTR o);
static void Files_FlipBytes (SYSTEM_BYTE *src, LONGINT src__len, SYSTEM_BYTE *dest, LONGINT dest__len); static void Files_FlipBytes (SYSTEM_BYTE *src, ADDRESS src__len, SYSTEM_BYTE *dest, ADDRESS dest__len);
static void Files_Flush (Files_Buffer buf); static void Files_Flush (Files_Buffer buf);
export void Files_GetDate (Files_File f, INT32 *t, INT32 *d); export void Files_GetDate (Files_File f, INT32 *t, INT32 *d);
export void Files_GetName (Files_File f, CHAR *name, LONGINT name__len); export void Files_GetName (Files_File f, CHAR *name, ADDRESS name__len);
static void Files_GetTempName (CHAR *finalName, LONGINT finalName__len, CHAR *name, LONGINT name__len); static void Files_GetTempName (CHAR *finalName, ADDRESS finalName__len, CHAR *name, ADDRESS name__len);
static BOOLEAN Files_HasDir (CHAR *name, LONGINT name__len); static BOOLEAN Files_HasDir (CHAR *name, ADDRESS name__len);
export INT32 Files_Length (Files_File f); 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, ADDRESS dir__len, CHAR *name, ADDRESS name__len, CHAR *dest, ADDRESS dest__len);
export Files_File Files_New (CHAR *name, LONGINT name__len); export Files_File Files_New (CHAR *name, ADDRESS name__len);
export Files_File Files_Old (CHAR *name, LONGINT name__len); export Files_File Files_Old (CHAR *name, ADDRESS name__len);
export INT32 Files_Pos (Files_Rider *r, ADDRESS *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, ADDRESS *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, ADDRESS *R__typ, BOOLEAN *x); export void Files_ReadBool (Files_Rider *R, ADDRESS *R__typ, BOOLEAN *x);
export void Files_ReadBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, LONGINT x__len, INT32 n); export void Files_ReadBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, ADDRESS x__len, INT32 n);
export void Files_ReadInt (Files_Rider *R, ADDRESS *R__typ, INT16 *x); export void Files_ReadInt (Files_Rider *R, ADDRESS *R__typ, INT16 *x);
export void Files_ReadLInt (Files_Rider *R, ADDRESS *R__typ, INT32 *x); export void Files_ReadLInt (Files_Rider *R, ADDRESS *R__typ, INT32 *x);
export void Files_ReadLReal (Files_Rider *R, ADDRESS *R__typ, LONGREAL *x); export void Files_ReadLReal (Files_Rider *R, ADDRESS *R__typ, LONGREAL *x);
export void Files_ReadLine (Files_Rider *R, ADDRESS *R__typ, CHAR *x, LONGINT x__len); export void Files_ReadLine (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS x__len);
export void Files_ReadNum (Files_Rider *R, ADDRESS *R__typ, SYSTEM_BYTE *x, LONGINT x__len); export void Files_ReadNum (Files_Rider *R, ADDRESS *R__typ, SYSTEM_BYTE *x, ADDRESS x__len);
export void Files_ReadReal (Files_Rider *R, ADDRESS *R__typ, REAL *x); export void Files_ReadReal (Files_Rider *R, ADDRESS *R__typ, REAL *x);
export void Files_ReadSet (Files_Rider *R, ADDRESS *R__typ, UINT32 *x); export void Files_ReadSet (Files_Rider *R, ADDRESS *R__typ, UINT32 *x);
export void Files_ReadString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, LONGINT x__len); export void Files_ReadString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS 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, ADDRESS old__len, CHAR *new, ADDRESS new__len, INT16 *res);
static void Files_ScanPath (INT16 *pos, CHAR *dir, LONGINT dir__len); static void Files_ScanPath (INT16 *pos, CHAR *dir, ADDRESS dir__len);
export void Files_Set (Files_Rider *r, ADDRESS *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, ADDRESS path__len);
export void Files_Write (Files_Rider *r, ADDRESS *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, ADDRESS *R__typ, BOOLEAN x); export void Files_WriteBool (Files_Rider *R, ADDRESS *R__typ, BOOLEAN x);
export void Files_WriteBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, LONGINT x__len, INT32 n); export void Files_WriteBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, ADDRESS x__len, INT32 n);
export void Files_WriteInt (Files_Rider *R, ADDRESS *R__typ, INT16 x); export void Files_WriteInt (Files_Rider *R, ADDRESS *R__typ, INT16 x);
export void Files_WriteLInt (Files_Rider *R, ADDRESS *R__typ, INT32 x); export void Files_WriteLInt (Files_Rider *R, ADDRESS *R__typ, INT32 x);
export void Files_WriteLReal (Files_Rider *R, ADDRESS *R__typ, LONGREAL x); export void Files_WriteLReal (Files_Rider *R, ADDRESS *R__typ, LONGREAL x);
export void Files_WriteNum (Files_Rider *R, ADDRESS *R__typ, INT64 x); export void Files_WriteNum (Files_Rider *R, ADDRESS *R__typ, INT64 x);
export void Files_WriteReal (Files_Rider *R, ADDRESS *R__typ, REAL x); export void Files_WriteReal (Files_Rider *R, ADDRESS *R__typ, REAL x);
export void Files_WriteSet (Files_Rider *R, ADDRESS *R__typ, UINT32 x); export void Files_WriteSet (Files_Rider *R, ADDRESS *R__typ, UINT32 x);
export void Files_WriteString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, LONGINT x__len); export void Files_WriteString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS x__len);
#define Files_IdxTrap() __HALT(-1) #define Files_IdxTrap() __HALT(-1)
#define Files_ToAdr(x) (ADDRESS)x #define Files_ToAdr(x) (ADDRESS)x
static void Files_Err (CHAR *s, LONGINT s__len, Files_File f, INT16 errcode) static void Files_Err (CHAR *s, ADDRESS s__len, Files_File f, INT16 errcode)
{ {
__DUP(s, s__len, CHAR); __DUP(s, s__len, CHAR);
Out_Ln(); Out_Ln();
@ -138,7 +138,7 @@ static void Files_Err (CHAR *s, LONGINT s__len, Files_File f, INT16 errcode)
__DEL(s); __DEL(s);
} }
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, ADDRESS dir__len, CHAR *name, ADDRESS name__len, CHAR *dest, ADDRESS dest__len)
{ {
INT16 i, j; INT16 i, j;
__DUP(dir, dir__len, CHAR); __DUP(dir, dir__len, CHAR);
@ -163,7 +163,7 @@ static void Files_MakeFileName (CHAR *dir, LONGINT dir__len, CHAR *name, LONGINT
__DEL(name); __DEL(name);
} }
static void Files_GetTempName (CHAR *finalName, LONGINT finalName__len, CHAR *name, LONGINT name__len) static void Files_GetTempName (CHAR *finalName, ADDRESS finalName__len, CHAR *name, ADDRESS name__len)
{ {
INT32 n, i, j; INT32 n, i, j;
__DUP(finalName, finalName__len, CHAR); __DUP(finalName, finalName__len, CHAR);
@ -316,7 +316,7 @@ INT32 Files_Length (Files_File f)
return f->len; return f->len;
} }
Files_File Files_New (CHAR *name, LONGINT name__len) Files_File Files_New (CHAR *name, ADDRESS name__len)
{ {
Files_File f = NIL; Files_File f = NIL;
__DUP(name, name__len, CHAR); __DUP(name, name__len, CHAR);
@ -332,7 +332,7 @@ Files_File Files_New (CHAR *name, LONGINT name__len)
return f; return f;
} }
static void Files_ScanPath (INT16 *pos, CHAR *dir, LONGINT dir__len) static void Files_ScanPath (INT16 *pos, CHAR *dir, ADDRESS dir__len)
{ {
INT16 i; INT16 i;
CHAR ch; CHAR ch;
@ -375,7 +375,7 @@ static void Files_ScanPath (INT16 *pos, CHAR *dir, LONGINT dir__len)
dir[i] = 0x00; dir[i] = 0x00;
} }
static BOOLEAN Files_HasDir (CHAR *name, LONGINT name__len) static BOOLEAN Files_HasDir (CHAR *name, ADDRESS name__len)
{ {
INT16 i; INT16 i;
CHAR ch; CHAR ch;
@ -415,7 +415,7 @@ static Files_File Files_CacheEntry (Platform_FileIdentity identity)
return NIL; return NIL;
} }
Files_File Files_Old (CHAR *name, LONGINT name__len) Files_File Files_Old (CHAR *name, ADDRESS name__len)
{ {
Files_File f = NIL; Files_File f = NIL;
INT32 fd; INT32 fd;
@ -618,7 +618,7 @@ void Files_Read (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x)
} }
} }
void Files_ReadBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, LONGINT x__len, INT32 n) void Files_ReadBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, ADDRESS x__len, INT32 n)
{ {
INT32 xpos, min, restInBuf, offset; INT32 xpos, min, restInBuf, offset;
Files_Buffer buf = NIL; Files_Buffer buf = NIL;
@ -683,7 +683,7 @@ void Files_Write (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE x)
(*r).res = 0; (*r).res = 0;
} }
void Files_WriteBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, LONGINT x__len, INT32 n) void Files_WriteBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, ADDRESS x__len, INT32 n)
{ {
INT32 xpos, min, restInBuf, offset; INT32 xpos, min, restInBuf, offset;
Files_Buffer buf = NIL; Files_Buffer buf = NIL;
@ -722,14 +722,14 @@ void Files_WriteBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, LONGINT
(*r).res = 0; (*r).res = 0;
} }
void Files_Delete (CHAR *name, LONGINT name__len, INT16 *res) void Files_Delete (CHAR *name, ADDRESS name__len, INT16 *res)
{ {
__DUP(name, name__len, CHAR); __DUP(name, name__len, CHAR);
*res = Platform_Unlink((void*)name, name__len); *res = Platform_Unlink((void*)name, name__len);
__DEL(name); __DEL(name);
} }
void Files_Rename (CHAR *old, LONGINT old__len, CHAR *new, LONGINT new__len, INT16 *res) void Files_Rename (CHAR *old, ADDRESS old__len, CHAR *new, ADDRESS new__len, INT16 *res)
{ {
INT32 fdold, fdnew, n; INT32 fdold, fdnew, n;
INT16 error, ignore; INT16 error, ignore;
@ -812,14 +812,14 @@ void Files_Register (Files_File f)
} }
} }
void Files_ChangeDirectory (CHAR *path, LONGINT path__len, INT16 *res) void Files_ChangeDirectory (CHAR *path, ADDRESS path__len, INT16 *res)
{ {
__DUP(path, path__len, CHAR); __DUP(path, path__len, CHAR);
*res = Platform_Chdir((void*)path, path__len); *res = Platform_Chdir((void*)path, path__len);
__DEL(path); __DEL(path);
} }
static void Files_FlipBytes (SYSTEM_BYTE *src, LONGINT src__len, SYSTEM_BYTE *dest, LONGINT dest__len) static void Files_FlipBytes (SYSTEM_BYTE *src, ADDRESS src__len, SYSTEM_BYTE *dest, ADDRESS dest__len)
{ {
INT32 i, j; INT32 i, j;
if (!Platform_LittleEndian) { if (!Platform_LittleEndian) {
@ -877,7 +877,7 @@ void Files_ReadLReal (Files_Rider *R, ADDRESS *R__typ, LONGREAL *x)
Files_FlipBytes((void*)b, 8, (void*)&*x, 8); Files_FlipBytes((void*)b, 8, (void*)&*x, 8);
} }
void Files_ReadString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, LONGINT x__len) void Files_ReadString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS x__len)
{ {
INT16 i; INT16 i;
CHAR ch; CHAR ch;
@ -889,7 +889,7 @@ void Files_ReadString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, LONGINT x__len)
} while (!(ch == 0x00)); } while (!(ch == 0x00));
} }
void Files_ReadLine (Files_Rider *R, ADDRESS *R__typ, CHAR *x, LONGINT x__len) void Files_ReadLine (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS x__len)
{ {
INT16 i; INT16 i;
i = 0; i = 0;
@ -906,7 +906,7 @@ void Files_ReadLine (Files_Rider *R, ADDRESS *R__typ, CHAR *x, LONGINT x__len)
x[i] = 0x00; x[i] = 0x00;
} }
void Files_ReadNum (Files_Rider *R, ADDRESS *R__typ, SYSTEM_BYTE *x, LONGINT x__len) void Files_ReadNum (Files_Rider *R, ADDRESS *R__typ, SYSTEM_BYTE *x, ADDRESS x__len)
{ {
INT8 s, b; INT8 s, b;
INT64 q; INT64 q;
@ -972,7 +972,7 @@ void Files_WriteLReal (Files_Rider *R, ADDRESS *R__typ, LONGREAL x)
Files_WriteBytes(&*R, R__typ, (void*)b, 8, 8); Files_WriteBytes(&*R, R__typ, (void*)b, 8, 8);
} }
void Files_WriteString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, LONGINT x__len) void Files_WriteString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS x__len)
{ {
INT16 i; INT16 i;
i = 0; i = 0;
@ -991,7 +991,7 @@ void Files_WriteNum (Files_Rider *R, ADDRESS *R__typ, INT64 x)
Files_Write(&*R, R__typ, (CHAR)__MASK(x, -128)); Files_Write(&*R, R__typ, (CHAR)__MASK(x, -128));
} }
void Files_GetName (Files_File f, CHAR *name, LONGINT name__len) void Files_GetName (Files_File f, CHAR *name, ADDRESS name__len)
{ {
__COPY(f->workName, name, name__len); __COPY(f->workName, name, name__len);
} }
@ -1009,7 +1009,7 @@ static void Files_Finalize (SYSTEM_PTR o)
} }
} }
void Files_SetSearchPath (CHAR *path, LONGINT path__len) void Files_SetSearchPath (CHAR *path, ADDRESS path__len)
{ {
__DUP(path, path__len, CHAR); __DUP(path, path__len, CHAR);
if (Strings_Length(path, path__len) != 0) { if (Strings_Length(path, path__len) != 0) {

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */
#ifndef Files__h #ifndef Files__h
#define Files__h #define Files__h
@ -28,41 +28,41 @@ import ADDRESS *Files_FileDesc__typ;
import ADDRESS *Files_Rider__typ; import ADDRESS *Files_Rider__typ;
import Files_File Files_Base (Files_Rider *r, ADDRESS *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, ADDRESS 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, ADDRESS name__len, INT16 *res);
import void Files_GetDate (Files_File f, INT32 *t, INT32 *d); import void Files_GetDate (Files_File f, INT32 *t, INT32 *d);
import void Files_GetName (Files_File f, CHAR *name, LONGINT name__len); import void Files_GetName (Files_File f, CHAR *name, ADDRESS 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, ADDRESS name__len);
import Files_File Files_Old (CHAR *name, LONGINT name__len); import Files_File Files_Old (CHAR *name, ADDRESS name__len);
import INT32 Files_Pos (Files_Rider *r, ADDRESS *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, ADDRESS *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, ADDRESS *R__typ, BOOLEAN *x); import void Files_ReadBool (Files_Rider *R, ADDRESS *R__typ, BOOLEAN *x);
import void Files_ReadBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, LONGINT x__len, INT32 n); import void Files_ReadBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, ADDRESS x__len, INT32 n);
import void Files_ReadInt (Files_Rider *R, ADDRESS *R__typ, INT16 *x); import void Files_ReadInt (Files_Rider *R, ADDRESS *R__typ, INT16 *x);
import void Files_ReadLInt (Files_Rider *R, ADDRESS *R__typ, INT32 *x); import void Files_ReadLInt (Files_Rider *R, ADDRESS *R__typ, INT32 *x);
import void Files_ReadLReal (Files_Rider *R, ADDRESS *R__typ, LONGREAL *x); import void Files_ReadLReal (Files_Rider *R, ADDRESS *R__typ, LONGREAL *x);
import void Files_ReadLine (Files_Rider *R, ADDRESS *R__typ, CHAR *x, LONGINT x__len); import void Files_ReadLine (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS x__len);
import void Files_ReadNum (Files_Rider *R, ADDRESS *R__typ, SYSTEM_BYTE *x, LONGINT x__len); import void Files_ReadNum (Files_Rider *R, ADDRESS *R__typ, SYSTEM_BYTE *x, ADDRESS x__len);
import void Files_ReadReal (Files_Rider *R, ADDRESS *R__typ, REAL *x); import void Files_ReadReal (Files_Rider *R, ADDRESS *R__typ, REAL *x);
import void Files_ReadSet (Files_Rider *R, ADDRESS *R__typ, UINT32 *x); import void Files_ReadSet (Files_Rider *R, ADDRESS *R__typ, UINT32 *x);
import void Files_ReadString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, LONGINT x__len); import void Files_ReadString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS 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, ADDRESS old__len, CHAR *new, ADDRESS new__len, INT16 *res);
import void Files_Set (Files_Rider *r, ADDRESS *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, ADDRESS path__len);
import void Files_Write (Files_Rider *r, ADDRESS *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, ADDRESS *R__typ, BOOLEAN x); import void Files_WriteBool (Files_Rider *R, ADDRESS *R__typ, BOOLEAN x);
import void Files_WriteBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, LONGINT x__len, INT32 n); import void Files_WriteBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, ADDRESS x__len, INT32 n);
import void Files_WriteInt (Files_Rider *R, ADDRESS *R__typ, INT16 x); import void Files_WriteInt (Files_Rider *R, ADDRESS *R__typ, INT16 x);
import void Files_WriteLInt (Files_Rider *R, ADDRESS *R__typ, INT32 x); import void Files_WriteLInt (Files_Rider *R, ADDRESS *R__typ, INT32 x);
import void Files_WriteLReal (Files_Rider *R, ADDRESS *R__typ, LONGREAL x); import void Files_WriteLReal (Files_Rider *R, ADDRESS *R__typ, LONGREAL x);
import void Files_WriteNum (Files_Rider *R, ADDRESS *R__typ, INT64 x); import void Files_WriteNum (Files_Rider *R, ADDRESS *R__typ, INT64 x);
import void Files_WriteReal (Files_Rider *R, ADDRESS *R__typ, REAL x); import void Files_WriteReal (Files_Rider *R, ADDRESS *R__typ, REAL x);
import void Files_WriteSet (Files_Rider *R, ADDRESS *R__typ, UINT32 x); import void Files_WriteSet (Files_Rider *R, ADDRESS *R__typ, UINT32 x);
import void Files_WriteString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, LONGINT x__len); import void Files_WriteString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS x__len);
import void *Files__init(void); import void *Files__init(void);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. tsSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. tsSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -85,14 +85,14 @@ static void Heap_ExtendHeap (INT32 blksz);
export void Heap_FINALL (void); export void Heap_FINALL (void);
static void Heap_Finalize (void); static void Heap_Finalize (void);
export void Heap_GC (BOOLEAN markStack); export void Heap_GC (BOOLEAN markStack);
static void Heap_HeapSort (INT32 n, INT32 *a, LONGINT a__len); static void Heap_HeapSort (INT32 n, INT32 *a, ADDRESS a__len);
export void Heap_INCREF (Heap_Module m); export void Heap_INCREF (Heap_Module m);
export void Heap_InitHeap (void); export void Heap_InitHeap (void);
export void Heap_Lock (void); export void Heap_Lock (void);
static void Heap_Mark (INT32 q); static void Heap_Mark (INT32 q);
static void Heap_MarkCandidates (INT32 n, INT32 *cand, LONGINT cand__len); static void Heap_MarkCandidates (INT32 n, INT32 *cand, ADDRESS cand__len);
static void Heap_MarkP (SYSTEM_PTR p); static void Heap_MarkP (SYSTEM_PTR p);
static void Heap_MarkStack (INT32 n, INT32 *cand, LONGINT cand__len); static void Heap_MarkStack (INT32 n, INT32 *cand, ADDRESS cand__len);
export SYSTEM_PTR Heap_NEWBLK (INT32 size); export SYSTEM_PTR Heap_NEWBLK (INT32 size);
export SYSTEM_PTR Heap_NEWREC (INT32 tag); export SYSTEM_PTR Heap_NEWREC (INT32 tag);
static INT32 Heap_NewChunk (INT32 blksz); static INT32 Heap_NewChunk (INT32 blksz);
@ -101,7 +101,7 @@ export SYSTEM_PTR Heap_REGMOD (Heap_ModuleName name, Heap_EnumProc enumPtrs);
export void Heap_REGTYP (Heap_Module m, INT32 typ); export void Heap_REGTYP (Heap_Module m, INT32 typ);
export void Heap_RegisterFinalizer (SYSTEM_PTR obj, Heap_Finalizer finalize); export void Heap_RegisterFinalizer (SYSTEM_PTR obj, Heap_Finalizer finalize);
static void Heap_Scan (void); static void Heap_Scan (void);
static void Heap_Sift (INT32 l, INT32 r, INT32 *a, LONGINT a__len); static void Heap_Sift (INT32 l, INT32 r, INT32 *a, ADDRESS a__len);
export void Heap_Unlock (void); export void Heap_Unlock (void);
extern void *Heap__init(); extern void *Heap__init();
@ -445,7 +445,7 @@ static void Heap_Scan (void)
} }
} }
static void Heap_Sift (INT32 l, INT32 r, INT32 *a, LONGINT a__len) static void Heap_Sift (INT32 l, INT32 r, INT32 *a, ADDRESS a__len)
{ {
INT32 i, j, x; INT32 i, j, x;
j = l; j = l;
@ -464,7 +464,7 @@ static void Heap_Sift (INT32 l, INT32 r, INT32 *a, LONGINT a__len)
a[i] = x; a[i] = x;
} }
static void Heap_HeapSort (INT32 n, INT32 *a, LONGINT a__len) static void Heap_HeapSort (INT32 n, INT32 *a, ADDRESS a__len)
{ {
INT32 l, r, x; INT32 l, r, x;
l = __ASHR(n, 1); l = __ASHR(n, 1);
@ -482,7 +482,7 @@ static void Heap_HeapSort (INT32 n, INT32 *a, LONGINT a__len)
} }
} }
static void Heap_MarkCandidates (INT32 n, INT32 *cand, LONGINT cand__len) static void Heap_MarkCandidates (INT32 n, INT32 *cand, ADDRESS cand__len)
{ {
INT32 chnk, adr, tag, next, lim, lim1, i, ptr, size; INT32 chnk, adr, tag, next, lim, lim1, i, ptr, size;
chnk = Heap_heap; chnk = Heap_heap;
@ -571,7 +571,7 @@ void Heap_FINALL (void)
} }
} }
static void Heap_MarkStack (INT32 n, INT32 *cand, LONGINT cand__len) static void Heap_MarkStack (INT32 n, INT32 *cand, ADDRESS cand__len)
{ {
SYSTEM_PTR frame; SYSTEM_PTR frame;
INT32 inc, nofcand, sp, p, stack0; INT32 inc, nofcand, sp, p, stack0;

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. tsSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. tsSF */
#ifndef Heap__h #ifndef Heap__h
#define Heap__h #define Heap__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -47,21 +47,21 @@ export Modules_ModuleName Modules_imported, Modules_importing;
export ADDRESS *Modules_ModuleDesc__typ; export ADDRESS *Modules_ModuleDesc__typ;
export ADDRESS *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, ADDRESS a__len, CHAR *b, ADDRESS b__len);
export void Modules_AssertFail (INT32 code); export void Modules_AssertFail (INT32 code);
static void Modules_DisplayHaltCode (INT32 code); static void Modules_DisplayHaltCode (INT32 code);
export void Modules_Free (CHAR *name, LONGINT name__len, BOOLEAN all); export void Modules_Free (CHAR *name, ADDRESS name__len, BOOLEAN all);
export void Modules_Halt (INT32 code); export void Modules_Halt (INT32 code);
export Modules_Command Modules_ThisCommand (Modules_Module mod, CHAR *name, LONGINT name__len); export Modules_Command Modules_ThisCommand (Modules_Module mod, CHAR *name, ADDRESS name__len);
export Modules_Module Modules_ThisMod (CHAR *name, LONGINT name__len); export Modules_Module Modules_ThisMod (CHAR *name, ADDRESS name__len);
static void Modules_errch (CHAR c); static void Modules_errch (CHAR c);
static void Modules_errint (INT32 l); static void Modules_errint (INT32 l);
static void Modules_errstring (CHAR *s, LONGINT s__len); static void Modules_errstring (CHAR *s, ADDRESS s__len);
#define Modules_modules() (Modules_Module)Heap_modules #define Modules_modules() (Modules_Module)Heap_modules
#define Modules_setmodules(m) Heap_modules = m #define Modules_setmodules(m) Heap_modules = m
static void Modules_Append (CHAR *a, LONGINT a__len, CHAR *b, LONGINT b__len) static void Modules_Append (CHAR *a, ADDRESS a__len, CHAR *b, ADDRESS b__len)
{ {
INT16 i, j; INT16 i, j;
__DUP(b, b__len, CHAR); __DUP(b, b__len, CHAR);
@ -79,7 +79,7 @@ static void Modules_Append (CHAR *a, LONGINT a__len, CHAR *b, LONGINT b__len)
__DEL(b); __DEL(b);
} }
Modules_Module Modules_ThisMod (CHAR *name, LONGINT name__len) Modules_Module Modules_ThisMod (CHAR *name, ADDRESS name__len)
{ {
Modules_Module m = NIL; Modules_Module m = NIL;
CHAR bodyname[64]; CHAR bodyname[64];
@ -103,7 +103,7 @@ Modules_Module Modules_ThisMod (CHAR *name, LONGINT name__len)
return m; return m;
} }
Modules_Command Modules_ThisCommand (Modules_Module mod, CHAR *name, LONGINT name__len) Modules_Command Modules_ThisCommand (Modules_Module mod, CHAR *name, ADDRESS name__len)
{ {
Modules_Cmd c = NIL; Modules_Cmd c = NIL;
__DUP(name, name__len, CHAR); __DUP(name, name__len, CHAR);
@ -130,7 +130,7 @@ Modules_Command Modules_ThisCommand (Modules_Module mod, CHAR *name, LONGINT nam
__RETCHK; __RETCHK;
} }
void Modules_Free (CHAR *name, LONGINT name__len, BOOLEAN all) void Modules_Free (CHAR *name, ADDRESS name__len, BOOLEAN all)
{ {
Modules_Module m = NIL, p = NIL; Modules_Module m = NIL, p = NIL;
__DUP(name, name__len, CHAR); __DUP(name, name__len, CHAR);
@ -168,7 +168,7 @@ static void Modules_errch (CHAR c)
e = Platform_Write(1, (ADDRESS)&c, 1); e = Platform_Write(1, (ADDRESS)&c, 1);
} }
static void Modules_errstring (CHAR *s, LONGINT s__len) static void Modules_errstring (CHAR *s, ADDRESS s__len)
{ {
INT32 i; INT32 i;
__DUP(s, s__len, CHAR); __DUP(s, s__len, CHAR);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Modules__h #ifndef Modules__h
#define Modules__h #define Modules__h
@ -44,10 +44,10 @@ import ADDRESS *Modules_ModuleDesc__typ;
import ADDRESS *Modules_CmdDesc__typ; import ADDRESS *Modules_CmdDesc__typ;
import void Modules_AssertFail (INT32 code); import void Modules_AssertFail (INT32 code);
import void Modules_Free (CHAR *name, LONGINT name__len, BOOLEAN all); import void Modules_Free (CHAR *name, ADDRESS name__len, BOOLEAN all);
import void Modules_Halt (INT32 code); import void Modules_Halt (INT32 code);
import Modules_Command Modules_ThisCommand (Modules_Module mod, CHAR *name, LONGINT name__len); import Modules_Command Modules_ThisCommand (Modules_Module mod, CHAR *name, ADDRESS name__len);
import Modules_Module Modules_ThisMod (CHAR *name, LONGINT name__len); import Modules_Module Modules_ThisMod (CHAR *name, ADDRESS name__len);
import void *Modules__init(void); import void *Modules__init(void);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPB__h #ifndef OPB__h
#define OPB__h #define OPB__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -56,7 +56,7 @@ static void OPC_GenHeaderMsg (void);
export void OPC_Halt (INT32 n); export void OPC_Halt (INT32 n);
export void OPC_Ident (OPT_Object obj); export void OPC_Ident (OPT_Object obj);
static void OPC_IdentList (OPT_Object obj, INT16 vis); static void OPC_IdentList (OPT_Object obj, INT16 vis);
static void OPC_Include (CHAR *name, LONGINT name__len); static void OPC_Include (CHAR *name, ADDRESS name__len);
static void OPC_IncludeImports (OPT_Object obj, INT16 vis); static void OPC_IncludeImports (OPT_Object obj, INT16 vis);
export void OPC_Increment (BOOLEAN decrement); export void OPC_Increment (BOOLEAN decrement);
export void OPC_Indent (INT16 count); export void OPC_Indent (INT16 count);
@ -68,11 +68,11 @@ static void OPC_InitTProcs (OPT_Object typ, OPT_Object obj);
export void OPC_IntLiteral (INT64 n, INT32 size); export void OPC_IntLiteral (INT64 n, INT32 size);
export void OPC_Len (OPT_Object obj, OPT_Struct array, INT64 dim); export void OPC_Len (OPT_Object obj, OPT_Struct array, INT64 dim);
static void OPC_LenList (OPT_Object par, BOOLEAN ansiDefine, BOOLEAN showParamName); static void OPC_LenList (OPT_Object par, BOOLEAN ansiDefine, BOOLEAN showParamName);
static INT16 OPC_Length (CHAR *s, LONGINT s__len); static INT16 OPC_Length (CHAR *s, ADDRESS s__len);
export BOOLEAN OPC_NeedsRetval (OPT_Object proc); export BOOLEAN OPC_NeedsRetval (OPT_Object proc);
export INT32 OPC_NofPtrs (OPT_Struct typ); export INT32 OPC_NofPtrs (OPT_Struct typ);
static INT16 OPC_PerfectHash (CHAR *s, LONGINT s__len); static INT16 OPC_PerfectHash (CHAR *s, ADDRESS s__len);
static BOOLEAN OPC_Prefixed (OPT_ConstExt x, CHAR *y, LONGINT y__len); static BOOLEAN OPC_Prefixed (OPT_ConstExt x, CHAR *y, ADDRESS y__len);
static void OPC_ProcHeader (OPT_Object proc, BOOLEAN define); static void OPC_ProcHeader (OPT_Object proc, BOOLEAN define);
static void OPC_ProcPredefs (OPT_Object obj, INT8 vis); static void OPC_ProcPredefs (OPT_Object obj, INT8 vis);
static void OPC_PutBase (OPT_Struct typ); static void OPC_PutBase (OPT_Struct typ);
@ -80,8 +80,8 @@ static void OPC_PutPtrOffsets (OPT_Struct typ, INT32 adr, INT32 *cnt);
static void OPC_RegCmds (OPT_Object obj); static void OPC_RegCmds (OPT_Object obj);
export void OPC_SetInclude (BOOLEAN exclude); export void OPC_SetInclude (BOOLEAN exclude);
static void OPC_Stars (OPT_Struct typ, BOOLEAN *openClause); static void OPC_Stars (OPT_Struct typ, BOOLEAN *openClause);
static void OPC_Str1 (CHAR *s, LONGINT s__len, INT32 x); static void OPC_Str1 (CHAR *s, ADDRESS s__len, INT32 x);
static void OPC_StringLiteral (CHAR *s, LONGINT s__len, INT32 l); static void OPC_StringLiteral (CHAR *s, ADDRESS s__len, INT32 l);
export void OPC_TDescDecl (OPT_Struct typ); export void OPC_TDescDecl (OPT_Struct typ);
export void OPC_TypeDefs (OPT_Object obj, INT16 vis); export void OPC_TypeDefs (OPT_Object obj, INT16 vis);
export void OPC_TypeOf (OPT_Object ap); export void OPC_TypeOf (OPT_Object ap);
@ -137,7 +137,7 @@ void OPC_EndBlk0 (void)
OPM_Write('}'); OPM_Write('}');
} }
static void OPC_Str1 (CHAR *s, LONGINT s__len, INT32 x) static void OPC_Str1 (CHAR *s, ADDRESS s__len, INT32 x)
{ {
CHAR ch; CHAR ch;
INT16 i; INT16 i;
@ -156,7 +156,7 @@ static void OPC_Str1 (CHAR *s, LONGINT s__len, INT32 x)
__DEL(s); __DEL(s);
} }
static INT16 OPC_Length (CHAR *s, LONGINT s__len) static INT16 OPC_Length (CHAR *s, ADDRESS s__len)
{ {
INT16 i; INT16 i;
i = 0; i = 0;
@ -166,7 +166,7 @@ static INT16 OPC_Length (CHAR *s, LONGINT s__len)
return i; return i;
} }
static INT16 OPC_PerfectHash (CHAR *s, LONGINT s__len) static INT16 OPC_PerfectHash (CHAR *s, ADDRESS s__len)
{ {
INT16 i, h; INT16 i, h;
i = 0; i = 0;
@ -364,7 +364,7 @@ static void OPC_DeclareBase (OPT_Object dcl)
OPM_WriteString((CHAR*)"struct ", 8); OPM_WriteString((CHAR*)"struct ", 8);
OPC_BegBlk(); OPC_BegBlk();
OPC_BegStat(); OPC_BegStat();
OPC_Str1((CHAR*)"LONGINT len[#]", 15, nofdims); OPC_Str1((CHAR*)"ADDRESS len[#]", 15, nofdims);
OPC_EndStat(); OPC_EndStat();
OPC_BegStat(); OPC_BegStat();
__NEW(obj, OPT_ObjDesc); __NEW(obj, OPT_ObjDesc);
@ -511,7 +511,7 @@ static void OPC_LenList (OPT_Object par, BOOLEAN ansiDefine, BOOLEAN showParamNa
typ = par->typ->BaseTyp; typ = par->typ->BaseTyp;
while (typ->comp == 3) { while (typ->comp == 3) {
if (ansiDefine) { if (ansiDefine) {
OPM_WriteString((CHAR*)", LONGINT ", 11); OPM_WriteString((CHAR*)", ADDRESS ", 11);
} else { } else {
OPM_WriteString((CHAR*)", ", 3); OPM_WriteString((CHAR*)", ", 3);
} }
@ -720,7 +720,7 @@ static void OPC_DefineType (OPT_Struct str)
} }
} }
static BOOLEAN OPC_Prefixed (OPT_ConstExt x, CHAR *y, LONGINT y__len) static BOOLEAN OPC_Prefixed (OPT_ConstExt x, CHAR *y, ADDRESS y__len)
{ {
INT16 i; INT16 i;
__DUP(y, y__len, CHAR); __DUP(y, y__len, CHAR);
@ -969,7 +969,7 @@ static void OPC_IdentList (OPT_Object obj, INT16 vis)
OPC_EndStat(); OPC_EndStat();
OPC_BegStat(); OPC_BegStat();
base = OPT_linttyp; base = OPT_linttyp;
OPM_WriteString((CHAR*)"LONGINT ", 9); OPM_WriteString((CHAR*)"ADDRESS ", 9);
OPC_LenList(obj, 0, 1); OPC_LenList(obj, 0, 1);
} else if ((obj->mode == 2 && obj->typ->comp == 4)) { } else if ((obj->mode == 2 && obj->typ->comp == 4)) {
OPC_EndStat(); OPC_EndStat();
@ -1008,7 +1008,7 @@ static void OPC_AnsiParamList (OPT_Object obj, BOOLEAN showParamNames)
__COPY(name, obj->name, 256); __COPY(name, obj->name, 256);
} }
if (obj->typ->comp == 3) { if (obj->typ->comp == 3) {
OPM_WriteString((CHAR*)", LONGINT ", 11); OPM_WriteString((CHAR*)", ADDRESS ", 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*)", ADDRESS *", 12); OPM_WriteString((CHAR*)", ADDRESS *", 12);
@ -1062,7 +1062,7 @@ static void OPC_ProcPredefs (OPT_Object obj, INT8 vis)
} }
} }
static void OPC_Include (CHAR *name, LONGINT name__len) static void OPC_Include (CHAR *name, ADDRESS name__len)
{ {
__DUP(name, name__len, CHAR); __DUP(name, name__len, CHAR);
OPM_WriteString((CHAR*)"#include ", 10); OPM_WriteString((CHAR*)"#include ", 10);
@ -1744,7 +1744,7 @@ static void OPC_CharacterLiteral (INT64 c)
} }
} }
static void OPC_StringLiteral (CHAR *s, LONGINT s__len, INT32 l) static void OPC_StringLiteral (CHAR *s, ADDRESS s__len, INT32 l)
{ {
INT32 i; INT32 i;
INT16 c; INT16 c;
@ -1912,9 +1912,9 @@ static struct InitKeywords__46 {
struct InitKeywords__46 *lnk; struct InitKeywords__46 *lnk;
} *InitKeywords__46_s; } *InitKeywords__46_s;
static void Enter__47 (CHAR *s, LONGINT s__len); static void Enter__47 (CHAR *s, ADDRESS s__len);
static void Enter__47 (CHAR *s, LONGINT s__len) static void Enter__47 (CHAR *s, ADDRESS s__len)
{ {
INT16 h; INT16 h;
__DUP(s, s__len, CHAR); __DUP(s, s__len, CHAR);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPC__h #ifndef OPC__h
#define OPC__h #define OPC__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -53,26 +53,26 @@ export void OPM_FPrintLReal (INT32 *fp, LONGREAL val);
export void OPM_FPrintReal (INT32 *fp, REAL val); export void OPM_FPrintReal (INT32 *fp, REAL val);
export void OPM_FPrintSet (INT32 *fp, UINT64 val); export void OPM_FPrintSet (INT32 *fp, UINT64 val);
static void OPM_FindLine (Files_File f, Files_Rider *r, ADDRESS *r__typ, INT64 pos); static void OPM_FindLine (Files_File f, Files_Rider *r, ADDRESS *r__typ, INT64 pos);
static void OPM_FingerprintBytes (INT32 *fp, SYSTEM_BYTE *bytes, LONGINT bytes__len); static void OPM_FingerprintBytes (INT32 *fp, SYSTEM_BYTE *bytes, ADDRESS bytes__len);
export void OPM_Get (CHAR *ch); export void OPM_Get (CHAR *ch);
export void OPM_Init (BOOLEAN *done, CHAR *mname, LONGINT mname__len); export void OPM_Init (BOOLEAN *done, CHAR *mname, ADDRESS mname__len);
export void OPM_InitOptions (void); export void OPM_InitOptions (void);
export INT16 OPM_Integer (INT64 n); export INT16 OPM_Integer (INT64 n);
static void OPM_LogErrMsg (INT16 n); static void OPM_LogErrMsg (INT16 n);
export void OPM_LogVT100 (CHAR *vt100code, LONGINT vt100code__len); export void OPM_LogVT100 (CHAR *vt100code, ADDRESS vt100code__len);
export void OPM_LogW (CHAR ch); export void OPM_LogW (CHAR ch);
export void OPM_LogWLn (void); export void OPM_LogWLn (void);
export void OPM_LogWNum (INT64 i, INT64 len); export void OPM_LogWNum (INT64 i, INT64 len);
export void OPM_LogWStr (CHAR *s, LONGINT s__len); export void OPM_LogWStr (CHAR *s, ADDRESS s__len);
export INT32 OPM_Longint (INT64 n); export INT32 OPM_Longint (INT64 n);
static void OPM_MakeFileName (CHAR *name, LONGINT name__len, CHAR *FName, LONGINT FName__len, CHAR *ext, LONGINT ext__len); static void OPM_MakeFileName (CHAR *name, ADDRESS name__len, CHAR *FName, ADDRESS FName__len, CHAR *ext, ADDRESS ext__len);
export void OPM_Mark (INT16 n, INT32 pos); export void OPM_Mark (INT16 n, INT32 pos);
export void OPM_NewSym (CHAR *modName, LONGINT modName__len); export void OPM_NewSym (CHAR *modName, ADDRESS modName__len);
export void OPM_OldSym (CHAR *modName, LONGINT modName__len, BOOLEAN *done); export void OPM_OldSym (CHAR *modName, ADDRESS modName__len, BOOLEAN *done);
export void OPM_OpenFiles (CHAR *moduleName, LONGINT moduleName__len); export void OPM_OpenFiles (CHAR *moduleName, ADDRESS moduleName__len);
export BOOLEAN OPM_OpenPar (void); export BOOLEAN OPM_OpenPar (void);
export void OPM_RegisterNewSym (void); export void OPM_RegisterNewSym (void);
static void OPM_ScanOptions (CHAR *s, LONGINT s__len); static void OPM_ScanOptions (CHAR *s, ADDRESS s__len);
static void OPM_ShowLine (INT64 pos); static void OPM_ShowLine (INT64 pos);
export INT64 OPM_SignedMaximum (INT32 bytecount); export INT64 OPM_SignedMaximum (INT32 bytecount);
export INT64 OPM_SignedMinimum (INT32 bytecount); export INT64 OPM_SignedMinimum (INT32 bytecount);
@ -93,8 +93,8 @@ export void OPM_WriteHex (INT64 i);
export void OPM_WriteInt (INT64 i); export void OPM_WriteInt (INT64 i);
export void OPM_WriteLn (void); export void OPM_WriteLn (void);
export void OPM_WriteReal (LONGREAL r, CHAR suffx); export void OPM_WriteReal (LONGREAL r, CHAR suffx);
export void OPM_WriteString (CHAR *s, LONGINT s__len); export void OPM_WriteString (CHAR *s, ADDRESS s__len);
export void OPM_WriteStringVar (CHAR *s, LONGINT s__len); export void OPM_WriteStringVar (CHAR *s, ADDRESS s__len);
export BOOLEAN OPM_eofSF (void); export BOOLEAN OPM_eofSF (void);
export void OPM_err (INT16 n); export void OPM_err (INT16 n);
@ -105,7 +105,7 @@ void OPM_LogW (CHAR ch)
Out_Char(ch); Out_Char(ch);
} }
void OPM_LogWStr (CHAR *s, LONGINT s__len) void OPM_LogWStr (CHAR *s, ADDRESS s__len)
{ {
__DUP(s, s__len, CHAR); __DUP(s, s__len, CHAR);
Out_String(s, s__len); Out_String(s, s__len);
@ -122,7 +122,7 @@ void OPM_LogWLn (void)
Out_Ln(); Out_Ln();
} }
void OPM_LogVT100 (CHAR *vt100code, LONGINT vt100code__len) void OPM_LogVT100 (CHAR *vt100code, ADDRESS vt100code__len)
{ {
__DUP(vt100code, vt100code__len, CHAR); __DUP(vt100code, vt100code__len, CHAR);
if ((Out_IsConsole && !__IN(16, OPM_Options, 32))) { if ((Out_IsConsole && !__IN(16, OPM_Options, 32))) {
@ -154,7 +154,7 @@ INT16 OPM_Integer (INT64 n)
return __VAL(INT16, n); return __VAL(INT16, n);
} }
static void OPM_ScanOptions (CHAR *s, LONGINT s__len) static void OPM_ScanOptions (CHAR *s, ADDRESS s__len)
{ {
INT16 i; INT16 i;
__DUP(s, s__len, CHAR); __DUP(s, s__len, CHAR);
@ -465,7 +465,7 @@ void OPM_InitOptions (void)
Files_SetSearchPath(searchpath, 1024); Files_SetSearchPath(searchpath, 1024);
} }
void OPM_Init (BOOLEAN *done, CHAR *mname, LONGINT mname__len) void OPM_Init (BOOLEAN *done, CHAR *mname, ADDRESS mname__len)
{ {
Texts_Text T = NIL; Texts_Text T = NIL;
INT32 beg, end, time; INT32 beg, end, time;
@ -514,7 +514,7 @@ void OPM_Get (CHAR *ch)
} }
} }
static void OPM_MakeFileName (CHAR *name, LONGINT name__len, CHAR *FName, LONGINT FName__len, CHAR *ext, LONGINT ext__len) static void OPM_MakeFileName (CHAR *name, ADDRESS name__len, CHAR *FName, ADDRESS FName__len, CHAR *ext, ADDRESS ext__len)
{ {
INT16 i, j; INT16 i, j;
CHAR ch; CHAR ch;
@ -700,7 +700,7 @@ void OPM_err (INT16 n)
OPM_Mark(n, OPM_errpos); OPM_Mark(n, OPM_errpos);
} }
static void OPM_FingerprintBytes (INT32 *fp, SYSTEM_BYTE *bytes, LONGINT bytes__len) static void OPM_FingerprintBytes (INT32 *fp, SYSTEM_BYTE *bytes, ADDRESS bytes__len)
{ {
INT16 i; INT16 i;
INT32 l; INT32 l;
@ -772,7 +772,7 @@ void OPM_CloseOldSym (void)
Files_Close(Files_Base(&OPM_oldSF, Files_Rider__typ)); Files_Close(Files_Base(&OPM_oldSF, Files_Rider__typ));
} }
void OPM_OldSym (CHAR *modName, LONGINT modName__len, BOOLEAN *done) void OPM_OldSym (CHAR *modName, ADDRESS modName__len, BOOLEAN *done)
{ {
CHAR tag, ver; CHAR tag, ver;
OPM_FileName fileName; OPM_FileName fileName;
@ -832,7 +832,7 @@ void OPM_DeleteNewSym (void)
{ {
} }
void OPM_NewSym (CHAR *modName, LONGINT modName__len) void OPM_NewSym (CHAR *modName, ADDRESS modName__len)
{ {
OPM_FileName fileName; OPM_FileName fileName;
OPM_MakeFileName((void*)modName, modName__len, (void*)fileName, 32, (CHAR*)".sym", 5); OPM_MakeFileName((void*)modName, modName__len, (void*)fileName, 32, (CHAR*)".sym", 5);
@ -851,7 +851,7 @@ void OPM_Write (CHAR ch)
Files_Write(&OPM_R[__X(OPM_currFile, 3)], Files_Rider__typ, ch); Files_Write(&OPM_R[__X(OPM_currFile, 3)], Files_Rider__typ, ch);
} }
void OPM_WriteString (CHAR *s, LONGINT s__len) void OPM_WriteString (CHAR *s, ADDRESS s__len)
{ {
INT16 i; INT16 i;
i = 0; i = 0;
@ -861,7 +861,7 @@ void OPM_WriteString (CHAR *s, LONGINT s__len)
Files_WriteBytes(&OPM_R[__X(OPM_currFile, 3)], Files_Rider__typ, (void*)s, s__len * 1, i); Files_WriteBytes(&OPM_R[__X(OPM_currFile, 3)], Files_Rider__typ, (void*)s, s__len * 1, i);
} }
void OPM_WriteStringVar (CHAR *s, LONGINT s__len) void OPM_WriteStringVar (CHAR *s, ADDRESS s__len)
{ {
INT16 i; INT16 i;
i = 0; i = 0;
@ -986,7 +986,7 @@ static void OPM_Append (Files_Rider *R, ADDRESS *R__typ, Files_File F)
} }
} }
void OPM_OpenFiles (CHAR *moduleName, LONGINT moduleName__len) void OPM_OpenFiles (CHAR *moduleName, ADDRESS moduleName__len)
{ {
CHAR FName[32]; CHAR FName[32];
__COPY(moduleName, OPM_modName, 32); __COPY(moduleName, OPM_modName, 32);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPM__h #ifndef OPM__h
#define OPM__h #define OPM__h
@ -28,19 +28,19 @@ import void OPM_FPrintLReal (INT32 *fp, LONGREAL val);
import void OPM_FPrintReal (INT32 *fp, REAL val); import void OPM_FPrintReal (INT32 *fp, REAL val);
import void OPM_FPrintSet (INT32 *fp, UINT64 val); import void OPM_FPrintSet (INT32 *fp, UINT64 val);
import void OPM_Get (CHAR *ch); import void OPM_Get (CHAR *ch);
import void OPM_Init (BOOLEAN *done, CHAR *mname, LONGINT mname__len); import void OPM_Init (BOOLEAN *done, CHAR *mname, ADDRESS mname__len);
import void OPM_InitOptions (void); import void OPM_InitOptions (void);
import INT16 OPM_Integer (INT64 n); import INT16 OPM_Integer (INT64 n);
import void OPM_LogVT100 (CHAR *vt100code, LONGINT vt100code__len); import void OPM_LogVT100 (CHAR *vt100code, ADDRESS vt100code__len);
import void OPM_LogW (CHAR ch); import void OPM_LogW (CHAR ch);
import void OPM_LogWLn (void); import void OPM_LogWLn (void);
import void OPM_LogWNum (INT64 i, INT64 len); import void OPM_LogWNum (INT64 i, INT64 len);
import void OPM_LogWStr (CHAR *s, LONGINT s__len); import void OPM_LogWStr (CHAR *s, ADDRESS s__len);
import INT32 OPM_Longint (INT64 n); import INT32 OPM_Longint (INT64 n);
import void OPM_Mark (INT16 n, INT32 pos); import void OPM_Mark (INT16 n, INT32 pos);
import void OPM_NewSym (CHAR *modName, LONGINT modName__len); import void OPM_NewSym (CHAR *modName, ADDRESS modName__len);
import void OPM_OldSym (CHAR *modName, LONGINT modName__len, BOOLEAN *done); import void OPM_OldSym (CHAR *modName, ADDRESS modName__len, BOOLEAN *done);
import void OPM_OpenFiles (CHAR *moduleName, LONGINT moduleName__len); import void OPM_OpenFiles (CHAR *moduleName, ADDRESS moduleName__len);
import BOOLEAN OPM_OpenPar (void); import BOOLEAN OPM_OpenPar (void);
import void OPM_RegisterNewSym (void); import void OPM_RegisterNewSym (void);
import INT64 OPM_SignedMaximum (INT32 bytecount); import INT64 OPM_SignedMaximum (INT32 bytecount);
@ -61,8 +61,8 @@ import void OPM_WriteHex (INT64 i);
import void OPM_WriteInt (INT64 i); import void OPM_WriteInt (INT64 i);
import void OPM_WriteLn (void); import void OPM_WriteLn (void);
import void OPM_WriteReal (LONGREAL r, CHAR suffx); import void OPM_WriteReal (LONGREAL r, CHAR suffx);
import void OPM_WriteString (CHAR *s, LONGINT s__len); import void OPM_WriteString (CHAR *s, ADDRESS s__len);
import void OPM_WriteStringVar (CHAR *s, LONGINT s__len); import void OPM_WriteStringVar (CHAR *s, ADDRESS s__len);
import BOOLEAN OPM_eofSF (void); import BOOLEAN OPM_eofSF (void);
import void OPM_err (INT16 n); import void OPM_err (INT16 n);
import void *OPM__init(void); import void *OPM__init(void);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#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/11/24]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */
#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/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -120,7 +120,7 @@ static void OPT_EnterTyp (OPS_Name name, INT8 form, INT16 size, OPT_Struct *res)
static void OPT_EnterTypeAlias (OPS_Name name, OPT_Object *res); static void OPT_EnterTypeAlias (OPS_Name name, OPT_Object *res);
export void OPT_Export (BOOLEAN *ext, BOOLEAN *new); export void OPT_Export (BOOLEAN *ext, BOOLEAN *new);
export void OPT_FPrintErr (OPT_Object obj, INT16 errcode); export void OPT_FPrintErr (OPT_Object obj, INT16 errcode);
static void OPT_FPrintName (INT32 *fp, CHAR *name, LONGINT name__len); static void OPT_FPrintName (INT32 *fp, CHAR *name, ADDRESS name__len);
export void OPT_FPrintObj (OPT_Object obj); export void OPT_FPrintObj (OPT_Object obj);
static void OPT_FPrintSign (INT32 *fp, OPT_Struct result, OPT_Object par); static void OPT_FPrintSign (INT32 *fp, OPT_Struct result, OPT_Object par);
export void OPT_FPrintStr (OPT_Struct typ); export void OPT_FPrintStr (OPT_Struct typ);
@ -132,7 +132,7 @@ export void OPT_Import (OPS_Name aliasName, OPS_Name name, BOOLEAN *done);
static void OPT_InConstant (INT32 f, OPT_Const conval); static void OPT_InConstant (INT32 f, OPT_Const conval);
static OPT_Object OPT_InFld (void); static OPT_Object OPT_InFld (void);
static void OPT_InMod (INT8 *mno); static void OPT_InMod (INT8 *mno);
static void OPT_InName (CHAR *name, LONGINT name__len); static void OPT_InName (CHAR *name, ADDRESS name__len);
static OPT_Object OPT_InObj (INT8 mno); static OPT_Object OPT_InObj (INT8 mno);
static void OPT_InSign (INT8 mno, OPT_Struct *res, OPT_Object *par); static void OPT_InSign (INT8 mno, OPT_Struct *res, OPT_Object *par);
static void OPT_InStruct (OPT_Struct *typ); static void OPT_InStruct (OPT_Struct *typ);
@ -155,7 +155,7 @@ static void OPT_OutConstant (OPT_Object obj);
static void OPT_OutFlds (OPT_Object fld, INT32 adr, BOOLEAN visible); static void OPT_OutFlds (OPT_Object fld, INT32 adr, BOOLEAN visible);
static void OPT_OutHdFld (OPT_Struct typ, OPT_Object fld, INT32 adr); static void OPT_OutHdFld (OPT_Struct typ, OPT_Object fld, INT32 adr);
static void OPT_OutMod (INT16 mno); static void OPT_OutMod (INT16 mno);
static void OPT_OutName (CHAR *name, LONGINT name__len); static void OPT_OutName (CHAR *name, ADDRESS name__len);
static void OPT_OutObj (OPT_Object obj); static void OPT_OutObj (OPT_Object obj);
static void OPT_OutSign (OPT_Struct result, OPT_Object par); static void OPT_OutSign (OPT_Struct result, OPT_Object par);
static void OPT_OutStr (OPT_Struct typ); static void OPT_OutStr (OPT_Struct typ);
@ -576,7 +576,7 @@ void OPT_Insert (OPS_Name name, OPT_Object *obj)
*obj = ob1; *obj = ob1;
} }
static void OPT_FPrintName (INT32 *fp, CHAR *name, LONGINT name__len) static void OPT_FPrintName (INT32 *fp, CHAR *name, ADDRESS name__len)
{ {
INT16 i; INT16 i;
CHAR ch; CHAR ch;
@ -957,7 +957,7 @@ void OPT_InsertImport (OPT_Object obj, OPT_Object *root, OPT_Object *old)
} }
} }
static void OPT_InName (CHAR *name, LONGINT name__len) static void OPT_InName (CHAR *name, ADDRESS name__len)
{ {
INT16 i; INT16 i;
CHAR ch; CHAR ch;
@ -1483,7 +1483,7 @@ void OPT_Import (OPS_Name aliasName, OPS_Name name, BOOLEAN *done)
} }
} }
static void OPT_OutName (CHAR *name, LONGINT name__len) static void OPT_OutName (CHAR *name, ADDRESS name__len)
{ {
INT16 i; INT16 i;
CHAR ch; CHAR ch;

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPT__h #ifndef OPT__h
#define OPT__h #define OPT__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPV__h #ifndef OPV__h
#define OPV__h #define OPV__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -17,16 +17,16 @@ static INT16 Out_in;
export void Out_Char (CHAR ch); export void Out_Char (CHAR ch);
export void Out_Flush (void); export void Out_Flush (void);
export void Out_Int (INT64 x, INT64 n); export void Out_Int (INT64 x, INT64 n);
static INT32 Out_Length (CHAR *s, LONGINT s__len); static INT32 Out_Length (CHAR *s, ADDRESS s__len);
export void Out_Ln (void); export void Out_Ln (void);
export void Out_LongReal (LONGREAL x, INT16 n); export void Out_LongReal (LONGREAL x, INT16 n);
export void Out_Open (void); export void Out_Open (void);
export void Out_Real (REAL x, INT16 n); export void Out_Real (REAL x, INT16 n);
static void Out_RealP (LONGREAL x, INT16 n, BOOLEAN long_); static void Out_RealP (LONGREAL x, INT16 n, BOOLEAN long_);
export void Out_String (CHAR *str, LONGINT str__len); export void Out_String (CHAR *str, ADDRESS str__len);
export LONGREAL Out_Ten (INT16 e); export LONGREAL Out_Ten (INT16 e);
static void Out_digit (INT64 n, CHAR *s, LONGINT s__len, INT16 *i); static void Out_digit (INT64 n, CHAR *s, ADDRESS s__len, INT16 *i);
static void Out_prepend (CHAR *t, LONGINT t__len, CHAR *s, LONGINT s__len, INT16 *i); static void Out_prepend (CHAR *t, ADDRESS t__len, CHAR *s, ADDRESS s__len, INT16 *i);
#define Out_Entier64(x) (INT64)(x) #define Out_Entier64(x) (INT64)(x)
@ -55,7 +55,7 @@ void Out_Char (CHAR ch)
} }
} }
static INT32 Out_Length (CHAR *s, LONGINT s__len) static INT32 Out_Length (CHAR *s, ADDRESS s__len)
{ {
INT32 l; INT32 l;
l = 0; l = 0;
@ -65,7 +65,7 @@ static INT32 Out_Length (CHAR *s, LONGINT s__len)
return l; return l;
} }
void Out_String (CHAR *str, LONGINT str__len) void Out_String (CHAR *str, ADDRESS str__len)
{ {
INT32 l; INT32 l;
INT16 error; INT16 error;
@ -125,13 +125,13 @@ void Out_Ln (void)
Out_Flush(); Out_Flush();
} }
static void Out_digit (INT64 n, CHAR *s, LONGINT s__len, INT16 *i) static void Out_digit (INT64 n, CHAR *s, ADDRESS s__len, INT16 *i)
{ {
*i -= 1; *i -= 1;
s[__X(*i, s__len)] = (CHAR)(__MOD(n, 10) + 48); s[__X(*i, s__len)] = (CHAR)(__MOD(n, 10) + 48);
} }
static void Out_prepend (CHAR *t, LONGINT t__len, CHAR *s, LONGINT s__len, INT16 *i) static void Out_prepend (CHAR *t, ADDRESS t__len, CHAR *s, ADDRESS s__len, INT16 *i)
{ {
INT16 j; INT16 j;
INT32 l; INT32 l;

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Out__h #ifndef Out__h
#define Out__h #define Out__h
@ -16,7 +16,7 @@ import void Out_Ln (void);
import void Out_LongReal (LONGREAL x, INT16 n); import void Out_LongReal (LONGREAL x, INT16 n);
import void Out_Open (void); import void Out_Open (void);
import void Out_Real (REAL x, INT16 n); import void Out_Real (REAL x, INT16 n);
import void Out_String (CHAR *str, LONGINT str__len); import void Out_String (CHAR *str, ADDRESS str__len);
import LONGREAL Out_Ten (INT16 e); import LONGREAL Out_Ten (INT16 e);
import void *Out__init(void); import void *Out__init(void);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -45,35 +45,35 @@ export CHAR Platform_NL[3];
export ADDRESS *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, ADDRESS s__len);
export INT16 Platform_Chdir (CHAR *n, LONGINT n__len); export INT16 Platform_Chdir (CHAR *n, ADDRESS n__len);
export INT16 Platform_Close (INT32 h); export INT16 Platform_Close (INT32 h);
export BOOLEAN Platform_ConnectionFailed (INT16 e); export BOOLEAN Platform_ConnectionFailed (INT16 e);
export void Platform_Delay (INT32 ms); export void Platform_Delay (INT32 ms);
export BOOLEAN Platform_DifferentFilesystems (INT16 e); export BOOLEAN Platform_DifferentFilesystems (INT16 e);
export INT16 Platform_Error (void); export INT16 Platform_Error (void);
export void Platform_Exit (INT32 code); export void Platform_Exit (INT32 code);
export void Platform_GetArg (INT16 n, CHAR *val, LONGINT val__len); export void Platform_GetArg (INT16 n, CHAR *val, ADDRESS val__len);
export void Platform_GetClock (INT32 *t, INT32 *d); export void Platform_GetClock (INT32 *t, INT32 *d);
export void Platform_GetEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val__len); export void Platform_GetEnv (CHAR *var, ADDRESS var__len, CHAR *val, ADDRESS val__len);
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 INT16 Platform_Identify (INT32 h, Platform_FileIdentity *identity, ADDRESS *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, ADDRESS *identity__typ); export INT16 Platform_IdentifyByName (CHAR *n, ADDRESS n__len, Platform_FileIdentity *identity, ADDRESS *identity__typ);
export BOOLEAN Platform_Inaccessible (INT16 e); export BOOLEAN Platform_Inaccessible (INT16 e);
export void Platform_Init (INT32 argc, INT32 argvadr); export void Platform_Init (INT32 argc, INT32 argvadr);
export BOOLEAN Platform_Interrupted (INT16 e); export BOOLEAN Platform_Interrupted (INT16 e);
export BOOLEAN Platform_IsConsole (INT32 h); export BOOLEAN Platform_IsConsole (INT32 h);
export void Platform_MTimeAsClock (Platform_FileIdentity i, INT32 *t, INT32 *d); export void Platform_MTimeAsClock (Platform_FileIdentity i, INT32 *t, INT32 *d);
export INT16 Platform_New (CHAR *n, LONGINT n__len, INT32 *h); export INT16 Platform_New (CHAR *n, ADDRESS n__len, INT32 *h);
export BOOLEAN Platform_NoSuchDirectory (INT16 e); export BOOLEAN Platform_NoSuchDirectory (INT16 e);
export INT32 Platform_OSAllocate (INT32 size); export INT32 Platform_OSAllocate (INT32 size);
export void Platform_OSFree (INT32 address); export void Platform_OSFree (INT32 address);
export INT16 Platform_OldRO (CHAR *n, LONGINT n__len, INT32 *h); export INT16 Platform_OldRO (CHAR *n, ADDRESS n__len, INT32 *h);
export INT16 Platform_OldRW (CHAR *n, LONGINT n__len, INT32 *h); export INT16 Platform_OldRW (CHAR *n, ADDRESS n__len, INT32 *h);
export INT16 Platform_Read (INT32 h, INT32 p, INT32 l, INT32 *n); export INT16 Platform_Read (INT32 h, INT32 p, INT32 l, INT32 *n);
export INT16 Platform_ReadBuf (INT32 h, SYSTEM_BYTE *b, LONGINT b__len, INT32 *n); export INT16 Platform_ReadBuf (INT32 h, SYSTEM_BYTE *b, ADDRESS b__len, INT32 *n);
export INT16 Platform_Rename (CHAR *o, LONGINT o__len, CHAR *n, LONGINT n__len); export INT16 Platform_Rename (CHAR *o, ADDRESS o__len, CHAR *n, ADDRESS 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);
export INT16 Platform_Seek (INT32 h, INT32 offset, INT16 whence); export INT16 Platform_Seek (INT32 h, INT32 offset, INT16 whence);
@ -83,16 +83,16 @@ export void Platform_SetMTime (Platform_FileIdentity *target, ADDRESS *target__t
export void Platform_SetQuitHandler (Platform_SignalHandler handler); export void Platform_SetQuitHandler (Platform_SignalHandler handler);
export INT16 Platform_Size (INT32 h, INT32 *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, ADDRESS cmd__len);
static void Platform_TestLittleEndian (void); static void Platform_TestLittleEndian (void);
export INT32 Platform_Time (void); export INT32 Platform_Time (void);
export BOOLEAN Platform_TimedOut (INT16 e); export BOOLEAN Platform_TimedOut (INT16 e);
export BOOLEAN Platform_TooManyFiles (INT16 e); export BOOLEAN Platform_TooManyFiles (INT16 e);
export INT16 Platform_Truncate (INT32 h, INT32 l); export INT16 Platform_Truncate (INT32 h, INT32 l);
export INT16 Platform_Unlink (CHAR *n, LONGINT n__len); export INT16 Platform_Unlink (CHAR *n, ADDRESS n__len);
export INT16 Platform_Write (INT32 h, INT32 p, INT32 l); export INT16 Platform_Write (INT32 h, INT32 p, INT32 l);
static void Platform_YMDHMStoClock (INT32 ye, INT32 mo, INT32 da, INT32 ho, INT32 mi, INT32 se, INT32 *t, INT32 *d); static void Platform_YMDHMStoClock (INT32 ye, INT32 mo, INT32 da, INT32 ho, INT32 mi, INT32 se, INT32 *t, INT32 *d);
export BOOLEAN Platform_getEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val__len); export BOOLEAN Platform_getEnv (CHAR *var, ADDRESS var__len, CHAR *val, ADDRESS val__len);
#include <errno.h> #include <errno.h>
#include <errno.h> #include <errno.h>
@ -223,7 +223,7 @@ void Platform_Init (INT32 argc, INT32 argvadr)
Platform_HeapInitHeap(); Platform_HeapInitHeap();
} }
BOOLEAN Platform_getEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val__len) BOOLEAN Platform_getEnv (CHAR *var, ADDRESS var__len, CHAR *val, ADDRESS val__len)
{ {
Platform_EnvPtr p = NIL; Platform_EnvPtr p = NIL;
__DUP(var, var__len, CHAR); __DUP(var, var__len, CHAR);
@ -235,7 +235,7 @@ BOOLEAN Platform_getEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val__le
return p != NIL; return p != NIL;
} }
void Platform_GetEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val__len) void Platform_GetEnv (CHAR *var, ADDRESS var__len, CHAR *val, ADDRESS val__len)
{ {
__DUP(var, var__len, CHAR); __DUP(var, var__len, CHAR);
if (!Platform_getEnv(var, var__len, (void*)val, val__len)) { if (!Platform_getEnv(var, var__len, (void*)val, val__len)) {
@ -244,7 +244,7 @@ void Platform_GetEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val__len)
__DEL(var); __DEL(var);
} }
void Platform_GetArg (INT16 n, CHAR *val, LONGINT val__len) void Platform_GetArg (INT16 n, CHAR *val, ADDRESS val__len)
{ {
Platform_ArgVec av = NIL; Platform_ArgVec av = NIL;
if (n < Platform_ArgCount) { if (n < Platform_ArgCount) {
@ -279,7 +279,7 @@ void Platform_GetIntArg (INT16 n, INT32 *val)
} }
} }
INT16 Platform_ArgPos (CHAR *s, LONGINT s__len) INT16 Platform_ArgPos (CHAR *s, ADDRESS s__len)
{ {
INT16 i; INT16 i;
CHAR arg[256]; CHAR arg[256];
@ -345,7 +345,7 @@ void Platform_Delay (INT32 ms)
Platform_nanosleep(s, ns); Platform_nanosleep(s, ns);
} }
INT16 Platform_System (CHAR *cmd, LONGINT cmd__len) INT16 Platform_System (CHAR *cmd, ADDRESS cmd__len)
{ {
__DUP(cmd, cmd__len, CHAR); __DUP(cmd, cmd__len, CHAR);
__DEL(cmd); __DEL(cmd);
@ -357,7 +357,7 @@ INT16 Platform_Error (void)
return Platform_err(); return Platform_err();
} }
INT16 Platform_OldRO (CHAR *n, LONGINT n__len, INT32 *h) INT16 Platform_OldRO (CHAR *n, ADDRESS n__len, INT32 *h)
{ {
INT16 fd; INT16 fd;
fd = Platform_openro(n, n__len); fd = Platform_openro(n, n__len);
@ -370,7 +370,7 @@ INT16 Platform_OldRO (CHAR *n, LONGINT n__len, INT32 *h)
__RETCHK; __RETCHK;
} }
INT16 Platform_OldRW (CHAR *n, LONGINT n__len, INT32 *h) INT16 Platform_OldRW (CHAR *n, ADDRESS n__len, INT32 *h)
{ {
INT16 fd; INT16 fd;
fd = Platform_openrw(n, n__len); fd = Platform_openrw(n, n__len);
@ -383,7 +383,7 @@ INT16 Platform_OldRW (CHAR *n, LONGINT n__len, INT32 *h)
__RETCHK; __RETCHK;
} }
INT16 Platform_New (CHAR *n, LONGINT n__len, INT32 *h) INT16 Platform_New (CHAR *n, ADDRESS n__len, INT32 *h)
{ {
INT16 fd; INT16 fd;
fd = Platform_opennew(n, n__len); fd = Platform_opennew(n, n__len);
@ -423,7 +423,7 @@ INT16 Platform_Identify (INT32 h, Platform_FileIdentity *identity, ADDRESS *iden
return 0; return 0;
} }
INT16 Platform_IdentifyByName (CHAR *n, LONGINT n__len, Platform_FileIdentity *identity, ADDRESS *identity__typ) INT16 Platform_IdentifyByName (CHAR *n, ADDRESS n__len, Platform_FileIdentity *identity, ADDRESS *identity__typ)
{ {
__DUP(n, n__len, CHAR); __DUP(n, n__len, CHAR);
Platform_structstats(); Platform_structstats();
@ -481,7 +481,7 @@ INT16 Platform_Read (INT32 h, INT32 p, INT32 l, INT32 *n)
__RETCHK; __RETCHK;
} }
INT16 Platform_ReadBuf (INT32 h, SYSTEM_BYTE *b, LONGINT b__len, INT32 *n) INT16 Platform_ReadBuf (INT32 h, SYSTEM_BYTE *b, ADDRESS b__len, INT32 *n)
{ {
*n = Platform_readfile(h, (ADDRESS)b, b__len); *n = Platform_readfile(h, (ADDRESS)b, b__len);
if (*n < 0) { if (*n < 0) {
@ -535,7 +535,7 @@ INT16 Platform_Truncate (INT32 h, INT32 l)
__RETCHK; __RETCHK;
} }
INT16 Platform_Unlink (CHAR *n, LONGINT n__len) INT16 Platform_Unlink (CHAR *n, ADDRESS n__len)
{ {
if (Platform_unlink(n, n__len) < 0) { if (Platform_unlink(n, n__len) < 0) {
return Platform_err(); return Platform_err();
@ -545,7 +545,7 @@ INT16 Platform_Unlink (CHAR *n, LONGINT n__len)
__RETCHK; __RETCHK;
} }
INT16 Platform_Chdir (CHAR *n, LONGINT n__len) INT16 Platform_Chdir (CHAR *n, ADDRESS n__len)
{ {
INT16 r; INT16 r;
if ((Platform_chdir(n, n__len) >= 0 && Platform_getcwd((void*)Platform_CWD, 256) != NIL)) { if ((Platform_chdir(n, n__len) >= 0 && Platform_getcwd((void*)Platform_CWD, 256) != NIL)) {
@ -556,7 +556,7 @@ INT16 Platform_Chdir (CHAR *n, LONGINT n__len)
__RETCHK; __RETCHK;
} }
INT16 Platform_Rename (CHAR *o, LONGINT o__len, CHAR *n, LONGINT n__len) INT16 Platform_Rename (CHAR *o, ADDRESS o__len, CHAR *n, ADDRESS n__len)
{ {
if (Platform_rename(o, o__len, n, n__len) < 0) { if (Platform_rename(o, o__len, n, n__len) < 0) {
return Platform_err(); return Platform_err();

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Platform__h #ifndef Platform__h
#define Platform__h #define Platform__h
@ -27,35 +27,35 @@ import CHAR Platform_NL[3];
import ADDRESS *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, ADDRESS s__len);
import INT16 Platform_Chdir (CHAR *n, LONGINT n__len); import INT16 Platform_Chdir (CHAR *n, ADDRESS n__len);
import INT16 Platform_Close (INT32 h); import INT16 Platform_Close (INT32 h);
import BOOLEAN Platform_ConnectionFailed (INT16 e); import BOOLEAN Platform_ConnectionFailed (INT16 e);
import void Platform_Delay (INT32 ms); import void Platform_Delay (INT32 ms);
import BOOLEAN Platform_DifferentFilesystems (INT16 e); import BOOLEAN Platform_DifferentFilesystems (INT16 e);
import INT16 Platform_Error (void); import INT16 Platform_Error (void);
import void Platform_Exit (INT32 code); import void Platform_Exit (INT32 code);
import void Platform_GetArg (INT16 n, CHAR *val, LONGINT val__len); import void Platform_GetArg (INT16 n, CHAR *val, ADDRESS val__len);
import void Platform_GetClock (INT32 *t, INT32 *d); import void Platform_GetClock (INT32 *t, INT32 *d);
import void Platform_GetEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val__len); import void Platform_GetEnv (CHAR *var, ADDRESS var__len, CHAR *val, ADDRESS val__len);
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 INT16 Platform_Identify (INT32 h, Platform_FileIdentity *identity, ADDRESS *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, ADDRESS *identity__typ); import INT16 Platform_IdentifyByName (CHAR *n, ADDRESS n__len, Platform_FileIdentity *identity, ADDRESS *identity__typ);
import BOOLEAN Platform_Inaccessible (INT16 e); import BOOLEAN Platform_Inaccessible (INT16 e);
import void Platform_Init (INT32 argc, INT32 argvadr); import void Platform_Init (INT32 argc, INT32 argvadr);
import BOOLEAN Platform_Interrupted (INT16 e); import BOOLEAN Platform_Interrupted (INT16 e);
import BOOLEAN Platform_IsConsole (INT32 h); import BOOLEAN Platform_IsConsole (INT32 h);
import void Platform_MTimeAsClock (Platform_FileIdentity i, INT32 *t, INT32 *d); import void Platform_MTimeAsClock (Platform_FileIdentity i, INT32 *t, INT32 *d);
import INT16 Platform_New (CHAR *n, LONGINT n__len, INT32 *h); import INT16 Platform_New (CHAR *n, ADDRESS n__len, INT32 *h);
import BOOLEAN Platform_NoSuchDirectory (INT16 e); import BOOLEAN Platform_NoSuchDirectory (INT16 e);
import INT32 Platform_OSAllocate (INT32 size); import INT32 Platform_OSAllocate (INT32 size);
import void Platform_OSFree (INT32 address); import void Platform_OSFree (INT32 address);
import INT16 Platform_OldRO (CHAR *n, LONGINT n__len, INT32 *h); import INT16 Platform_OldRO (CHAR *n, ADDRESS n__len, INT32 *h);
import INT16 Platform_OldRW (CHAR *n, LONGINT n__len, INT32 *h); import INT16 Platform_OldRW (CHAR *n, ADDRESS n__len, INT32 *h);
import INT16 Platform_Read (INT32 h, INT32 p, INT32 l, INT32 *n); import INT16 Platform_Read (INT32 h, INT32 p, INT32 l, INT32 *n);
import INT16 Platform_ReadBuf (INT32 h, SYSTEM_BYTE *b, LONGINT b__len, INT32 *n); import INT16 Platform_ReadBuf (INT32 h, SYSTEM_BYTE *b, ADDRESS b__len, INT32 *n);
import INT16 Platform_Rename (CHAR *o, LONGINT o__len, CHAR *n, LONGINT n__len); import INT16 Platform_Rename (CHAR *o, ADDRESS o__len, CHAR *n, ADDRESS 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);
import INT16 Platform_Seek (INT32 h, INT32 offset, INT16 whence); import INT16 Platform_Seek (INT32 h, INT32 offset, INT16 whence);
@ -65,14 +65,14 @@ import void Platform_SetMTime (Platform_FileIdentity *target, ADDRESS *target__t
import void Platform_SetQuitHandler (Platform_SignalHandler handler); import void Platform_SetQuitHandler (Platform_SignalHandler handler);
import INT16 Platform_Size (INT32 h, INT32 *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, ADDRESS cmd__len);
import INT32 Platform_Time (void); import INT32 Platform_Time (void);
import BOOLEAN Platform_TimedOut (INT16 e); import BOOLEAN Platform_TimedOut (INT16 e);
import BOOLEAN Platform_TooManyFiles (INT16 e); import BOOLEAN Platform_TooManyFiles (INT16 e);
import INT16 Platform_Truncate (INT32 h, INT32 l); import INT16 Platform_Truncate (INT32 h, INT32 l);
import INT16 Platform_Unlink (CHAR *n, LONGINT n__len); import INT16 Platform_Unlink (CHAR *n, ADDRESS n__len);
import INT16 Platform_Write (INT32 h, INT32 p, INT32 l); import INT16 Platform_Write (INT32 h, INT32 p, INT32 l);
import BOOLEAN Platform_getEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val__len); import BOOLEAN Platform_getEnv (CHAR *var, ADDRESS var__len, CHAR *val, ADDRESS val__len);
import void *Platform__init(void); import void *Platform__init(void);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -10,11 +10,11 @@
static void Reals_BytesToHex (SYSTEM_BYTE *b, LONGINT b__len, SYSTEM_BYTE *d, LONGINT d__len); static void Reals_BytesToHex (SYSTEM_BYTE *b, ADDRESS b__len, SYSTEM_BYTE *d, ADDRESS d__len);
export void Reals_Convert (REAL x, INT16 n, CHAR *d, LONGINT d__len); export void Reals_Convert (REAL x, INT16 n, CHAR *d, ADDRESS d__len);
export void Reals_ConvertH (REAL y, CHAR *d, LONGINT d__len); export void Reals_ConvertH (REAL y, CHAR *d, ADDRESS d__len);
export void Reals_ConvertHL (LONGREAL x, CHAR *d, LONGINT d__len); export void Reals_ConvertHL (LONGREAL x, CHAR *d, ADDRESS d__len);
export void Reals_ConvertL (LONGREAL x, INT16 n, CHAR *d, LONGINT d__len); export void Reals_ConvertL (LONGREAL x, INT16 n, CHAR *d, ADDRESS d__len);
export INT16 Reals_Expo (REAL x); export INT16 Reals_Expo (REAL x);
export INT16 Reals_ExpoL (LONGREAL x); export INT16 Reals_ExpoL (LONGREAL x);
export void Reals_SetExpo (REAL *x, INT16 ex); export void Reals_SetExpo (REAL *x, INT16 ex);
@ -79,7 +79,7 @@ INT16 Reals_ExpoL (LONGREAL x)
return __MASK(__ASHR(i, 4), -2048); return __MASK(__ASHR(i, 4), -2048);
} }
void Reals_ConvertL (LONGREAL x, INT16 n, CHAR *d, LONGINT d__len) void Reals_ConvertL (LONGREAL x, INT16 n, CHAR *d, ADDRESS d__len)
{ {
INT32 i, j, k; INT32 i, j, k;
if (x < (LONGREAL)0) { if (x < (LONGREAL)0) {
@ -107,7 +107,7 @@ void Reals_ConvertL (LONGREAL x, INT16 n, CHAR *d, LONGINT d__len)
} }
} }
void Reals_Convert (REAL x, INT16 n, CHAR *d, LONGINT d__len) void Reals_Convert (REAL x, INT16 n, CHAR *d, ADDRESS d__len)
{ {
Reals_ConvertL(x, n, (void*)d, d__len); Reals_ConvertL(x, n, (void*)d, d__len);
} }
@ -122,7 +122,7 @@ static CHAR Reals_ToHex (INT16 i)
__RETCHK; __RETCHK;
} }
static void Reals_BytesToHex (SYSTEM_BYTE *b, LONGINT b__len, SYSTEM_BYTE *d, LONGINT d__len) static void Reals_BytesToHex (SYSTEM_BYTE *b, ADDRESS b__len, SYSTEM_BYTE *d, ADDRESS d__len)
{ {
INT16 i; INT16 i;
INT32 l; INT32 l;
@ -137,12 +137,12 @@ static void Reals_BytesToHex (SYSTEM_BYTE *b, LONGINT b__len, SYSTEM_BYTE *d, LO
} }
} }
void Reals_ConvertH (REAL y, CHAR *d, LONGINT d__len) void Reals_ConvertH (REAL y, CHAR *d, ADDRESS d__len)
{ {
Reals_BytesToHex((void*)&y, 4, (void*)d, d__len * 1); Reals_BytesToHex((void*)&y, 4, (void*)d, d__len * 1);
} }
void Reals_ConvertHL (LONGREAL x, CHAR *d, LONGINT d__len) void Reals_ConvertHL (LONGREAL x, CHAR *d, ADDRESS d__len)
{ {
Reals_BytesToHex((void*)&x, 8, (void*)d, d__len * 1); Reals_BytesToHex((void*)&x, 8, (void*)d, d__len * 1);
} }

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Reals__h #ifndef Reals__h
#define Reals__h #define Reals__h
@ -8,10 +8,10 @@
import void Reals_Convert (REAL x, INT16 n, CHAR *d, LONGINT d__len); import void Reals_Convert (REAL x, INT16 n, CHAR *d, ADDRESS d__len);
import void Reals_ConvertH (REAL y, CHAR *d, LONGINT d__len); import void Reals_ConvertH (REAL y, CHAR *d, ADDRESS d__len);
import void Reals_ConvertHL (LONGREAL x, CHAR *d, LONGINT d__len); import void Reals_ConvertHL (LONGREAL x, CHAR *d, ADDRESS d__len);
import void Reals_ConvertL (LONGREAL x, INT16 n, CHAR *d, LONGINT d__len); import void Reals_ConvertL (LONGREAL x, INT16 n, CHAR *d, ADDRESS d__len);
import INT16 Reals_Expo (REAL x); import INT16 Reals_Expo (REAL x);
import INT16 Reals_ExpoL (LONGREAL x); import INT16 Reals_ExpoL (LONGREAL x);
import void Reals_SetExpo (REAL *x, INT16 ex); import void Reals_SetExpo (REAL *x, INT16 ex);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -10,18 +10,18 @@
export void Strings_Append (CHAR *extra, LONGINT extra__len, CHAR *dest, LONGINT dest__len); export void Strings_Append (CHAR *extra, ADDRESS extra__len, CHAR *dest, ADDRESS dest__len);
export void Strings_Cap (CHAR *s, LONGINT s__len); export void Strings_Cap (CHAR *s, ADDRESS s__len);
export void Strings_Delete (CHAR *s, LONGINT s__len, INT16 pos, INT16 n); export void Strings_Delete (CHAR *s, ADDRESS s__len, INT16 pos, INT16 n);
export void Strings_Extract (CHAR *source, LONGINT source__len, INT16 pos, INT16 n, CHAR *dest, LONGINT dest__len); export void Strings_Extract (CHAR *source, ADDRESS source__len, INT16 pos, INT16 n, CHAR *dest, ADDRESS dest__len);
export void Strings_Insert (CHAR *source, LONGINT source__len, INT16 pos, CHAR *dest, LONGINT dest__len); export void Strings_Insert (CHAR *source, ADDRESS source__len, INT16 pos, CHAR *dest, ADDRESS dest__len);
export INT16 Strings_Length (CHAR *s, LONGINT s__len); export INT16 Strings_Length (CHAR *s, ADDRESS s__len);
export BOOLEAN Strings_Match (CHAR *string, LONGINT string__len, CHAR *pattern, LONGINT pattern__len); export BOOLEAN Strings_Match (CHAR *string, ADDRESS string__len, CHAR *pattern, ADDRESS pattern__len);
export INT16 Strings_Pos (CHAR *pattern, LONGINT pattern__len, CHAR *s, LONGINT s__len, INT16 pos); export INT16 Strings_Pos (CHAR *pattern, ADDRESS pattern__len, CHAR *s, ADDRESS s__len, INT16 pos);
export void Strings_Replace (CHAR *source, LONGINT source__len, INT16 pos, CHAR *dest, LONGINT dest__len); export void Strings_Replace (CHAR *source, ADDRESS source__len, INT16 pos, CHAR *dest, ADDRESS dest__len);
INT16 Strings_Length (CHAR *s, LONGINT s__len) INT16 Strings_Length (CHAR *s, ADDRESS s__len)
{ {
INT32 i; INT32 i;
__DUP(s, s__len, CHAR); __DUP(s, s__len, CHAR);
@ -39,7 +39,7 @@ INT16 Strings_Length (CHAR *s, LONGINT s__len)
__RETCHK; __RETCHK;
} }
void Strings_Append (CHAR *extra, LONGINT extra__len, CHAR *dest, LONGINT dest__len) void Strings_Append (CHAR *extra, ADDRESS extra__len, CHAR *dest, ADDRESS dest__len)
{ {
INT16 n1, n2, i; INT16 n1, n2, i;
__DUP(extra, extra__len, CHAR); __DUP(extra, extra__len, CHAR);
@ -56,7 +56,7 @@ void Strings_Append (CHAR *extra, LONGINT extra__len, CHAR *dest, LONGINT dest__
__DEL(extra); __DEL(extra);
} }
void Strings_Insert (CHAR *source, LONGINT source__len, INT16 pos, CHAR *dest, LONGINT dest__len) void Strings_Insert (CHAR *source, ADDRESS source__len, INT16 pos, CHAR *dest, ADDRESS dest__len)
{ {
INT16 n1, n2, i; INT16 n1, n2, i;
__DUP(source, source__len, CHAR); __DUP(source, source__len, CHAR);
@ -87,7 +87,7 @@ void Strings_Insert (CHAR *source, LONGINT source__len, INT16 pos, CHAR *dest, L
__DEL(source); __DEL(source);
} }
void Strings_Delete (CHAR *s, LONGINT s__len, INT16 pos, INT16 n) void Strings_Delete (CHAR *s, ADDRESS s__len, INT16 pos, INT16 n)
{ {
INT16 len, i; INT16 len, i;
len = Strings_Length(s, s__len); len = Strings_Length(s, s__len);
@ -110,7 +110,7 @@ void Strings_Delete (CHAR *s, LONGINT s__len, INT16 pos, INT16 n)
} }
} }
void Strings_Replace (CHAR *source, LONGINT source__len, INT16 pos, CHAR *dest, LONGINT dest__len) void Strings_Replace (CHAR *source, ADDRESS source__len, INT16 pos, CHAR *dest, ADDRESS dest__len)
{ {
__DUP(source, source__len, CHAR); __DUP(source, source__len, CHAR);
Strings_Delete((void*)dest, dest__len, pos, pos + Strings_Length(source, source__len)); Strings_Delete((void*)dest, dest__len, pos, pos + Strings_Length(source, source__len));
@ -118,7 +118,7 @@ void Strings_Replace (CHAR *source, LONGINT source__len, INT16 pos, CHAR *dest,
__DEL(source); __DEL(source);
} }
void Strings_Extract (CHAR *source, LONGINT source__len, INT16 pos, INT16 n, CHAR *dest, LONGINT dest__len) void Strings_Extract (CHAR *source, ADDRESS source__len, INT16 pos, INT16 n, CHAR *dest, ADDRESS dest__len)
{ {
INT16 len, destLen, i; INT16 len, destLen, i;
__DUP(source, source__len, CHAR); __DUP(source, source__len, CHAR);
@ -143,7 +143,7 @@ void Strings_Extract (CHAR *source, LONGINT source__len, INT16 pos, INT16 n, CHA
__DEL(source); __DEL(source);
} }
INT16 Strings_Pos (CHAR *pattern, LONGINT pattern__len, CHAR *s, LONGINT s__len, INT16 pos) INT16 Strings_Pos (CHAR *pattern, ADDRESS pattern__len, CHAR *s, ADDRESS s__len, INT16 pos)
{ {
INT16 n1, n2, i, j; INT16 n1, n2, i, j;
__DUP(pattern, pattern__len, CHAR); __DUP(pattern, pattern__len, CHAR);
@ -175,7 +175,7 @@ INT16 Strings_Pos (CHAR *pattern, LONGINT pattern__len, CHAR *s, LONGINT s__len,
return -1; return -1;
} }
void Strings_Cap (CHAR *s, LONGINT s__len) void Strings_Cap (CHAR *s, ADDRESS s__len)
{ {
INT16 i; INT16 i;
i = 0; i = 0;
@ -191,9 +191,9 @@ static struct Match__7 {
struct Match__7 *lnk; struct Match__7 *lnk;
} *Match__7_s; } *Match__7_s;
static BOOLEAN M__8 (CHAR *name, LONGINT name__len, CHAR *mask, LONGINT mask__len, INT16 n, INT16 m); static BOOLEAN M__8 (CHAR *name, ADDRESS name__len, CHAR *mask, ADDRESS mask__len, INT16 n, INT16 m);
static BOOLEAN M__8 (CHAR *name, LONGINT name__len, CHAR *mask, LONGINT mask__len, INT16 n, INT16 m) static BOOLEAN M__8 (CHAR *name, ADDRESS name__len, CHAR *mask, ADDRESS mask__len, INT16 n, INT16 m)
{ {
while ((((n >= 0 && m >= 0)) && mask[__X(m, mask__len)] != '*')) { while ((((n >= 0 && m >= 0)) && mask[__X(m, mask__len)] != '*')) {
if (name[__X(n, name__len)] != mask[__X(m, mask__len)]) { if (name[__X(n, name__len)] != mask[__X(m, mask__len)]) {
@ -220,7 +220,7 @@ static BOOLEAN M__8 (CHAR *name, LONGINT name__len, CHAR *mask, LONGINT mask__le
return 0; return 0;
} }
BOOLEAN Strings_Match (CHAR *string, LONGINT string__len, CHAR *pattern, LONGINT pattern__len) BOOLEAN Strings_Match (CHAR *string, ADDRESS string__len, CHAR *pattern, ADDRESS pattern__len)
{ {
struct Match__7 _s; struct Match__7 _s;
BOOLEAN __retval; BOOLEAN __retval;

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Strings__h #ifndef Strings__h
#define Strings__h #define Strings__h
@ -8,15 +8,15 @@
import void Strings_Append (CHAR *extra, LONGINT extra__len, CHAR *dest, LONGINT dest__len); import void Strings_Append (CHAR *extra, ADDRESS extra__len, CHAR *dest, ADDRESS dest__len);
import void Strings_Cap (CHAR *s, LONGINT s__len); import void Strings_Cap (CHAR *s, ADDRESS s__len);
import void Strings_Delete (CHAR *s, LONGINT s__len, INT16 pos, INT16 n); import void Strings_Delete (CHAR *s, ADDRESS s__len, INT16 pos, INT16 n);
import void Strings_Extract (CHAR *source, LONGINT source__len, INT16 pos, INT16 n, CHAR *dest, LONGINT dest__len); import void Strings_Extract (CHAR *source, ADDRESS source__len, INT16 pos, INT16 n, CHAR *dest, ADDRESS dest__len);
import void Strings_Insert (CHAR *source, LONGINT source__len, INT16 pos, CHAR *dest, LONGINT dest__len); import void Strings_Insert (CHAR *source, ADDRESS source__len, INT16 pos, CHAR *dest, ADDRESS dest__len);
import INT16 Strings_Length (CHAR *s, LONGINT s__len); import INT16 Strings_Length (CHAR *s, ADDRESS s__len);
import BOOLEAN Strings_Match (CHAR *string, LONGINT string__len, CHAR *pattern, LONGINT pattern__len); import BOOLEAN Strings_Match (CHAR *string, ADDRESS string__len, CHAR *pattern, ADDRESS pattern__len);
import INT16 Strings_Pos (CHAR *pattern, LONGINT pattern__len, CHAR *s, LONGINT s__len, INT16 pos); import INT16 Strings_Pos (CHAR *pattern, ADDRESS pattern__len, CHAR *s, ADDRESS s__len, INT16 pos);
import void Strings_Replace (CHAR *source, LONGINT source__len, INT16 pos, CHAR *dest, LONGINT dest__len); import void Strings_Replace (CHAR *source, ADDRESS source__len, INT16 pos, CHAR *dest, ADDRESS dest__len);
import void *Strings__init(void); import void *Strings__init(void);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -187,20 +187,20 @@ export void Texts_Append (Texts_Text T, Texts_Buffer B);
export void Texts_ChangeLooks (Texts_Text T, INT32 beg, INT32 end, UINT32 sel, Texts_FontsFont fnt, INT8 col, INT8 voff); export void Texts_ChangeLooks (Texts_Text T, INT32 beg, INT32 end, UINT32 sel, Texts_FontsFont fnt, INT8 col, INT8 voff);
static Texts_Elem Texts_CloneElem (Texts_Elem e); static Texts_Elem Texts_CloneElem (Texts_Elem e);
static Texts_Piece Texts_ClonePiece (Texts_Piece p); static Texts_Piece Texts_ClonePiece (Texts_Piece p);
export void Texts_Close (Texts_Text T, CHAR *name, LONGINT name__len); export void Texts_Close (Texts_Text T, CHAR *name, ADDRESS name__len);
export void Texts_Copy (Texts_Buffer SB, Texts_Buffer DB); export void Texts_Copy (Texts_Buffer SB, Texts_Buffer DB);
export void Texts_CopyElem (Texts_Elem SE, Texts_Elem DE); export void Texts_CopyElem (Texts_Elem SE, Texts_Elem DE);
export void Texts_Delete (Texts_Text T, INT32 beg, INT32 end); export void Texts_Delete (Texts_Text T, INT32 beg, INT32 end);
export Texts_Text Texts_ElemBase (Texts_Elem E); 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, ADDRESS name__len);
static void Texts_HandleAlien (Texts_Elem E, Texts_ElemMsg *msg, ADDRESS *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, ADDRESS *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, ADDRESS *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, ADDRESS name__len);
export void Texts_OpenBuf (Texts_Buffer B); export void Texts_OpenBuf (Texts_Buffer B);
export void Texts_OpenReader (Texts_Reader *R, ADDRESS *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, ADDRESS *S__typ, Texts_Text T, INT32 pos); export void Texts_OpenScanner (Texts_Scanner *S, ADDRESS *S__typ, Texts_Text T, INT32 pos);
@ -229,10 +229,10 @@ export void Texts_WriteLongRealHex (Texts_Writer *W, ADDRESS *W__typ, LONGREAL x
export void Texts_WriteReal (Texts_Writer *W, ADDRESS *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, ADDRESS *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, ADDRESS *W__typ, REAL x); export void Texts_WriteRealHex (Texts_Writer *W, ADDRESS *W__typ, REAL x);
export void Texts_WriteString (Texts_Writer *W, ADDRESS *W__typ, CHAR *s, LONGINT s__len); export void Texts_WriteString (Texts_Writer *W, ADDRESS *W__typ, CHAR *s, ADDRESS s__len);
static Texts_FontsFont Texts_FontsThis (CHAR *name, LONGINT name__len) static Texts_FontsFont Texts_FontsThis (CHAR *name, ADDRESS name__len)
{ {
Texts_FontsFont F = NIL; Texts_FontsFont F = NIL;
__NEW(F, Texts_FontDesc); __NEW(F, Texts_FontDesc);
@ -1027,7 +1027,7 @@ 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, ADDRESS *W__typ, CHAR *s, LONGINT s__len) void Texts_WriteString (Texts_Writer *W, ADDRESS *W__typ, CHAR *s, ADDRESS s__len)
{ {
INT16 i; INT16 i;
__DUP(s, s__len, CHAR); __DUP(s, s__len, CHAR);
@ -1539,7 +1539,7 @@ void Texts_Load (Files_Rider *r, ADDRESS *r__typ, Texts_Text T)
Texts_Load0(&*r, r__typ, T); Texts_Load0(&*r, r__typ, T);
} }
void Texts_Open (Texts_Text T, CHAR *name, LONGINT name__len) void Texts_Open (Texts_Text T, CHAR *name, ADDRESS name__len)
{ {
Files_File f = NIL; Files_File f = NIL;
Files_Rider r; Files_Rider r;
@ -1755,7 +1755,7 @@ void Texts_Store (Files_Rider *r, ADDRESS *r__typ, Texts_Text T)
Store__39_s = _s.lnk; Store__39_s = _s.lnk;
} }
void Texts_Close (Texts_Text T, CHAR *name, LONGINT name__len) void Texts_Close (Texts_Text T, CHAR *name, ADDRESS name__len)
{ {
Files_File f = NIL; Files_File f = NIL;
Files_Rider r; Files_Rider r;

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Texts__h #ifndef Texts__h
#define Texts__h #define Texts__h
@ -130,7 +130,7 @@ 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, UINT32 sel, Texts_FontsFont fnt, INT8 col, INT8 voff); import void Texts_ChangeLooks (Texts_Text T, INT32 beg, INT32 end, UINT32 sel, Texts_FontsFont fnt, INT8 col, INT8 voff);
import void Texts_Close (Texts_Text T, CHAR *name, LONGINT name__len); import void Texts_Close (Texts_Text T, CHAR *name, ADDRESS name__len);
import void Texts_Copy (Texts_Buffer SB, Texts_Buffer DB); import void Texts_Copy (Texts_Buffer SB, Texts_Buffer DB);
import void Texts_CopyElem (Texts_Elem SE, Texts_Elem DE); import void Texts_CopyElem (Texts_Elem SE, Texts_Elem DE);
import void Texts_Delete (Texts_Text T, INT32 beg, INT32 end); import void Texts_Delete (Texts_Text T, INT32 beg, INT32 end);
@ -138,7 +138,7 @@ 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, ADDRESS *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, ADDRESS name__len);
import void Texts_OpenBuf (Texts_Buffer B); import void Texts_OpenBuf (Texts_Buffer B);
import void Texts_OpenReader (Texts_Reader *R, ADDRESS *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, ADDRESS *S__typ, Texts_Text T, INT32 pos); import void Texts_OpenScanner (Texts_Scanner *S, ADDRESS *S__typ, Texts_Text T, INT32 pos);
@ -165,7 +165,7 @@ import void Texts_WriteLongRealHex (Texts_Writer *W, ADDRESS *W__typ, LONGREAL x
import void Texts_WriteReal (Texts_Writer *W, ADDRESS *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, ADDRESS *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, ADDRESS *W__typ, REAL x); import void Texts_WriteRealHex (Texts_Writer *W, ADDRESS *W__typ, REAL x);
import void Texts_WriteString (Texts_Writer *W, ADDRESS *W__typ, CHAR *s, LONGINT s__len); import void Texts_WriteString (Texts_Writer *W, ADDRESS *W__typ, CHAR *s, ADDRESS s__len);
import void *Texts__init(void); import void *Texts__init(void);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -27,23 +27,23 @@ export void VT100_DECTCEMl (void);
export void VT100_DSR (INT16 n); export void VT100_DSR (INT16 n);
export void VT100_ED (INT16 n); export void VT100_ED (INT16 n);
export void VT100_EL (INT16 n); export void VT100_EL (INT16 n);
static void VT100_EscSeq (INT16 n, CHAR *letter, LONGINT letter__len); static void VT100_EscSeq (INT16 n, CHAR *letter, ADDRESS letter__len);
static void VT100_EscSeq0 (CHAR *letter, LONGINT letter__len); static void VT100_EscSeq0 (CHAR *letter, ADDRESS letter__len);
static void VT100_EscSeq2 (INT16 n, INT16 m, CHAR *letter, LONGINT letter__len); static void VT100_EscSeq2 (INT16 n, INT16 m, CHAR *letter, ADDRESS letter__len);
static void VT100_EscSeqSwapped (INT16 n, CHAR *letter, LONGINT letter__len); static void VT100_EscSeqSwapped (INT16 n, CHAR *letter, ADDRESS letter__len);
export void VT100_HVP (INT16 n, INT16 m); export void VT100_HVP (INT16 n, INT16 m);
export void VT100_IntToStr (INT32 int_, CHAR *str, LONGINT str__len); export void VT100_IntToStr (INT32 int_, CHAR *str, ADDRESS str__len);
export void VT100_RCP (void); export void VT100_RCP (void);
static void VT100_Reverse0 (CHAR *str, LONGINT str__len, INT16 start, INT16 end); static void VT100_Reverse0 (CHAR *str, ADDRESS str__len, INT16 start, INT16 end);
export void VT100_SCP (void); export void VT100_SCP (void);
export void VT100_SD (INT16 n); export void VT100_SD (INT16 n);
export void VT100_SGR (INT16 n); export void VT100_SGR (INT16 n);
export void VT100_SGR2 (INT16 n, INT16 m); export void VT100_SGR2 (INT16 n, INT16 m);
export void VT100_SU (INT16 n); export void VT100_SU (INT16 n);
export void VT100_SetAttr (CHAR *attr, LONGINT attr__len); export void VT100_SetAttr (CHAR *attr, ADDRESS attr__len);
static void VT100_Reverse0 (CHAR *str, LONGINT str__len, INT16 start, INT16 end) static void VT100_Reverse0 (CHAR *str, ADDRESS str__len, INT16 start, INT16 end)
{ {
CHAR h; CHAR h;
while (start < end) { while (start < end) {
@ -55,7 +55,7 @@ static void VT100_Reverse0 (CHAR *str, LONGINT str__len, INT16 start, INT16 end)
} }
} }
void VT100_IntToStr (INT32 int_, CHAR *str, LONGINT str__len) void VT100_IntToStr (INT32 int_, CHAR *str, ADDRESS str__len)
{ {
CHAR b[21]; CHAR b[21];
INT16 s, e; INT16 s, e;
@ -84,7 +84,7 @@ void VT100_IntToStr (INT32 int_, CHAR *str, LONGINT str__len)
__COPY(b, str, str__len); __COPY(b, str, str__len);
} }
static void VT100_EscSeq0 (CHAR *letter, LONGINT letter__len) static void VT100_EscSeq0 (CHAR *letter, ADDRESS letter__len)
{ {
CHAR cmd[9]; CHAR cmd[9];
__DUP(letter, letter__len, CHAR); __DUP(letter, letter__len, CHAR);
@ -94,7 +94,7 @@ static void VT100_EscSeq0 (CHAR *letter, LONGINT letter__len)
__DEL(letter); __DEL(letter);
} }
static void VT100_EscSeq (INT16 n, CHAR *letter, LONGINT letter__len) static void VT100_EscSeq (INT16 n, CHAR *letter, ADDRESS letter__len)
{ {
CHAR nstr[2]; CHAR nstr[2];
CHAR cmd[7]; CHAR cmd[7];
@ -107,7 +107,7 @@ static void VT100_EscSeq (INT16 n, CHAR *letter, LONGINT letter__len)
__DEL(letter); __DEL(letter);
} }
static void VT100_EscSeqSwapped (INT16 n, CHAR *letter, LONGINT letter__len) static void VT100_EscSeqSwapped (INT16 n, CHAR *letter, ADDRESS letter__len)
{ {
CHAR nstr[2]; CHAR nstr[2];
CHAR cmd[7]; CHAR cmd[7];
@ -120,7 +120,7 @@ static void VT100_EscSeqSwapped (INT16 n, CHAR *letter, LONGINT letter__len)
__DEL(letter); __DEL(letter);
} }
static void VT100_EscSeq2 (INT16 n, INT16 m, CHAR *letter, LONGINT letter__len) static void VT100_EscSeq2 (INT16 n, INT16 m, CHAR *letter, ADDRESS letter__len)
{ {
CHAR nstr[5], mstr[5]; CHAR nstr[5], mstr[5];
CHAR cmd[12]; CHAR cmd[12];
@ -236,7 +236,7 @@ void VT100_DECTCEMh (void)
VT100_EscSeq0((CHAR*)"\?25h", 5); VT100_EscSeq0((CHAR*)"\?25h", 5);
} }
void VT100_SetAttr (CHAR *attr, LONGINT attr__len) void VT100_SetAttr (CHAR *attr, ADDRESS attr__len)
{ {
CHAR tmpstr[16]; CHAR tmpstr[16];
__DUP(attr, attr__len, CHAR); __DUP(attr, attr__len, CHAR);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef VT100__h #ifndef VT100__h
#define VT100__h #define VT100__h
@ -23,14 +23,14 @@ import void VT100_DSR (INT16 n);
import void VT100_ED (INT16 n); import void VT100_ED (INT16 n);
import void VT100_EL (INT16 n); import void VT100_EL (INT16 n);
import void VT100_HVP (INT16 n, INT16 m); import void VT100_HVP (INT16 n, INT16 m);
import void VT100_IntToStr (INT32 int_, CHAR *str, LONGINT str__len); import void VT100_IntToStr (INT32 int_, CHAR *str, ADDRESS str__len);
import void VT100_RCP (void); import void VT100_RCP (void);
import void VT100_SCP (void); import void VT100_SCP (void);
import void VT100_SD (INT16 n); import void VT100_SD (INT16 n);
import void VT100_SGR (INT16 n); import void VT100_SGR (INT16 n);
import void VT100_SGR2 (INT16 n, INT16 m); import void VT100_SGR2 (INT16 n, INT16 m);
import void VT100_SU (INT16 n); import void VT100_SU (INT16 n);
import void VT100_SetAttr (CHAR *attr, LONGINT attr__len); import void VT100_SetAttr (CHAR *attr, ADDRESS attr__len);
import void *VT100__init(void); import void *VT100__init(void);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -17,13 +17,13 @@
static CHAR extTools_CFLAGS[1023]; static CHAR extTools_CFLAGS[1023];
export void extTools_Assemble (CHAR *moduleName, LONGINT moduleName__len); export void extTools_Assemble (CHAR *moduleName, ADDRESS moduleName__len);
static void extTools_InitialiseCompilerCommand (CHAR *s, LONGINT s__len); static void extTools_InitialiseCompilerCommand (CHAR *s, ADDRESS s__len);
export void extTools_LinkMain (CHAR *moduleName, LONGINT moduleName__len, BOOLEAN statically, CHAR *additionalopts, LONGINT additionalopts__len); export void extTools_LinkMain (CHAR *moduleName, ADDRESS moduleName__len, BOOLEAN statically, CHAR *additionalopts, ADDRESS additionalopts__len);
static void extTools_execute (CHAR *title, LONGINT title__len, CHAR *cmd, LONGINT cmd__len); static void extTools_execute (CHAR *title, ADDRESS title__len, CHAR *cmd, ADDRESS cmd__len);
static void extTools_execute (CHAR *title, LONGINT title__len, CHAR *cmd, LONGINT cmd__len) static void extTools_execute (CHAR *title, ADDRESS title__len, CHAR *cmd, ADDRESS cmd__len)
{ {
INT16 r, status, exitcode; INT16 r, status, exitcode;
__DUP(title, title__len, CHAR); __DUP(title, title__len, CHAR);
@ -63,7 +63,7 @@ static void extTools_execute (CHAR *title, LONGINT title__len, CHAR *cmd, LONGIN
__DEL(cmd); __DEL(cmd);
} }
static void extTools_InitialiseCompilerCommand (CHAR *s, LONGINT s__len) static void extTools_InitialiseCompilerCommand (CHAR *s, ADDRESS s__len)
{ {
__COPY("gcc -g", s, s__len); __COPY("gcc -g", s, s__len);
Strings_Append((CHAR*)" -I \"", 6, (void*)s, s__len); Strings_Append((CHAR*)" -I \"", 6, (void*)s, s__len);
@ -74,7 +74,7 @@ static void extTools_InitialiseCompilerCommand (CHAR *s, LONGINT s__len)
Strings_Append((CHAR*)" ", 2, (void*)s, s__len); Strings_Append((CHAR*)" ", 2, (void*)s, s__len);
} }
void extTools_Assemble (CHAR *moduleName, LONGINT moduleName__len) void extTools_Assemble (CHAR *moduleName, ADDRESS moduleName__len)
{ {
CHAR cmd[1023]; CHAR cmd[1023];
__DUP(moduleName, moduleName__len, CHAR); __DUP(moduleName, moduleName__len, CHAR);
@ -86,7 +86,7 @@ void extTools_Assemble (CHAR *moduleName, LONGINT moduleName__len)
__DEL(moduleName); __DEL(moduleName);
} }
void extTools_LinkMain (CHAR *moduleName, LONGINT moduleName__len, BOOLEAN statically, CHAR *additionalopts, LONGINT additionalopts__len) void extTools_LinkMain (CHAR *moduleName, ADDRESS moduleName__len, BOOLEAN statically, CHAR *additionalopts, ADDRESS additionalopts__len)
{ {
CHAR cmd[1023]; CHAR cmd[1023];
__DUP(additionalopts, additionalopts__len, CHAR); __DUP(additionalopts, additionalopts__len, CHAR);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef extTools__h #ifndef extTools__h
#define extTools__h #define extTools__h
@ -8,8 +8,8 @@
import void extTools_Assemble (CHAR *moduleName, LONGINT moduleName__len); import void extTools_Assemble (CHAR *moduleName, ADDRESS moduleName__len);
import void extTools_LinkMain (CHAR *moduleName, LONGINT moduleName__len, BOOLEAN statically, CHAR *additionalopts, LONGINT additionalopts__len); import void extTools_LinkMain (CHAR *moduleName, ADDRESS moduleName__len, BOOLEAN statically, CHAR *additionalopts, ADDRESS additionalopts__len);
import void *extTools__init(void); import void *extTools__init(void);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspamS */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspamS */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

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

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

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Configuration__h #ifndef Configuration__h
#define Configuration__h #define Configuration__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -52,7 +52,7 @@ static Files_File Files_files;
static INT16 Files_tempno; static INT16 Files_tempno;
static CHAR Files_HOME[1024]; static CHAR Files_HOME[1024];
static struct { static struct {
LONGINT len[1]; ADDRESS len[1];
CHAR data[1]; CHAR data[1];
} *Files_SearchPath; } *Files_SearchPath;
@ -62,56 +62,56 @@ export ADDRESS *Files_Rider__typ;
export Files_File Files_Base (Files_Rider *r, ADDRESS *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, ADDRESS path__len, INT16 *res);
export void Files_Close (Files_File f); export void Files_Close (Files_File f);
static void Files_CloseOSFile (Files_File f); static void Files_CloseOSFile (Files_File f);
static void Files_Create (Files_File f); static void Files_Create (Files_File f);
export void Files_Delete (CHAR *name, LONGINT name__len, INT16 *res); export void Files_Delete (CHAR *name, ADDRESS name__len, INT16 *res);
static void Files_Err (CHAR *s, LONGINT s__len, Files_File f, INT16 errcode); static void Files_Err (CHAR *s, ADDRESS s__len, Files_File f, INT16 errcode);
static void Files_Finalize (SYSTEM_PTR o); static void Files_Finalize (SYSTEM_PTR o);
static void Files_FlipBytes (SYSTEM_BYTE *src, LONGINT src__len, SYSTEM_BYTE *dest, LONGINT dest__len); static void Files_FlipBytes (SYSTEM_BYTE *src, ADDRESS src__len, SYSTEM_BYTE *dest, ADDRESS dest__len);
static void Files_Flush (Files_Buffer buf); static void Files_Flush (Files_Buffer buf);
export void Files_GetDate (Files_File f, INT32 *t, INT32 *d); export void Files_GetDate (Files_File f, INT32 *t, INT32 *d);
export void Files_GetName (Files_File f, CHAR *name, LONGINT name__len); export void Files_GetName (Files_File f, CHAR *name, ADDRESS name__len);
static void Files_GetTempName (CHAR *finalName, LONGINT finalName__len, CHAR *name, LONGINT name__len); static void Files_GetTempName (CHAR *finalName, ADDRESS finalName__len, CHAR *name, ADDRESS name__len);
static BOOLEAN Files_HasDir (CHAR *name, LONGINT name__len); static BOOLEAN Files_HasDir (CHAR *name, ADDRESS name__len);
export INT32 Files_Length (Files_File f); 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, ADDRESS dir__len, CHAR *name, ADDRESS name__len, CHAR *dest, ADDRESS dest__len);
export Files_File Files_New (CHAR *name, LONGINT name__len); export Files_File Files_New (CHAR *name, ADDRESS name__len);
export Files_File Files_Old (CHAR *name, LONGINT name__len); export Files_File Files_Old (CHAR *name, ADDRESS name__len);
export INT32 Files_Pos (Files_Rider *r, ADDRESS *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, ADDRESS *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, ADDRESS *R__typ, BOOLEAN *x); export void Files_ReadBool (Files_Rider *R, ADDRESS *R__typ, BOOLEAN *x);
export void Files_ReadBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, LONGINT x__len, INT32 n); export void Files_ReadBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, ADDRESS x__len, INT32 n);
export void Files_ReadInt (Files_Rider *R, ADDRESS *R__typ, INT16 *x); export void Files_ReadInt (Files_Rider *R, ADDRESS *R__typ, INT16 *x);
export void Files_ReadLInt (Files_Rider *R, ADDRESS *R__typ, INT32 *x); export void Files_ReadLInt (Files_Rider *R, ADDRESS *R__typ, INT32 *x);
export void Files_ReadLReal (Files_Rider *R, ADDRESS *R__typ, LONGREAL *x); export void Files_ReadLReal (Files_Rider *R, ADDRESS *R__typ, LONGREAL *x);
export void Files_ReadLine (Files_Rider *R, ADDRESS *R__typ, CHAR *x, LONGINT x__len); export void Files_ReadLine (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS x__len);
export void Files_ReadNum (Files_Rider *R, ADDRESS *R__typ, SYSTEM_BYTE *x, LONGINT x__len); export void Files_ReadNum (Files_Rider *R, ADDRESS *R__typ, SYSTEM_BYTE *x, ADDRESS x__len);
export void Files_ReadReal (Files_Rider *R, ADDRESS *R__typ, REAL *x); export void Files_ReadReal (Files_Rider *R, ADDRESS *R__typ, REAL *x);
export void Files_ReadSet (Files_Rider *R, ADDRESS *R__typ, UINT32 *x); export void Files_ReadSet (Files_Rider *R, ADDRESS *R__typ, UINT32 *x);
export void Files_ReadString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, LONGINT x__len); export void Files_ReadString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS 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, ADDRESS old__len, CHAR *new, ADDRESS new__len, INT16 *res);
static void Files_ScanPath (INT16 *pos, CHAR *dir, LONGINT dir__len); static void Files_ScanPath (INT16 *pos, CHAR *dir, ADDRESS dir__len);
export void Files_Set (Files_Rider *r, ADDRESS *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, ADDRESS path__len);
export void Files_Write (Files_Rider *r, ADDRESS *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, ADDRESS *R__typ, BOOLEAN x); export void Files_WriteBool (Files_Rider *R, ADDRESS *R__typ, BOOLEAN x);
export void Files_WriteBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, LONGINT x__len, INT32 n); export void Files_WriteBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, ADDRESS x__len, INT32 n);
export void Files_WriteInt (Files_Rider *R, ADDRESS *R__typ, INT16 x); export void Files_WriteInt (Files_Rider *R, ADDRESS *R__typ, INT16 x);
export void Files_WriteLInt (Files_Rider *R, ADDRESS *R__typ, INT32 x); export void Files_WriteLInt (Files_Rider *R, ADDRESS *R__typ, INT32 x);
export void Files_WriteLReal (Files_Rider *R, ADDRESS *R__typ, LONGREAL x); export void Files_WriteLReal (Files_Rider *R, ADDRESS *R__typ, LONGREAL x);
export void Files_WriteNum (Files_Rider *R, ADDRESS *R__typ, INT64 x); export void Files_WriteNum (Files_Rider *R, ADDRESS *R__typ, INT64 x);
export void Files_WriteReal (Files_Rider *R, ADDRESS *R__typ, REAL x); export void Files_WriteReal (Files_Rider *R, ADDRESS *R__typ, REAL x);
export void Files_WriteSet (Files_Rider *R, ADDRESS *R__typ, UINT32 x); export void Files_WriteSet (Files_Rider *R, ADDRESS *R__typ, UINT32 x);
export void Files_WriteString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, LONGINT x__len); export void Files_WriteString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS x__len);
#define Files_IdxTrap() __HALT(-1) #define Files_IdxTrap() __HALT(-1)
#define Files_ToAdr(x) (ADDRESS)x #define Files_ToAdr(x) (ADDRESS)x
static void Files_Err (CHAR *s, LONGINT s__len, Files_File f, INT16 errcode) static void Files_Err (CHAR *s, ADDRESS s__len, Files_File f, INT16 errcode)
{ {
__DUP(s, s__len, CHAR); __DUP(s, s__len, CHAR);
Out_Ln(); Out_Ln();
@ -138,7 +138,7 @@ static void Files_Err (CHAR *s, LONGINT s__len, Files_File f, INT16 errcode)
__DEL(s); __DEL(s);
} }
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, ADDRESS dir__len, CHAR *name, ADDRESS name__len, CHAR *dest, ADDRESS dest__len)
{ {
INT16 i, j; INT16 i, j;
__DUP(dir, dir__len, CHAR); __DUP(dir, dir__len, CHAR);
@ -163,7 +163,7 @@ static void Files_MakeFileName (CHAR *dir, LONGINT dir__len, CHAR *name, LONGINT
__DEL(name); __DEL(name);
} }
static void Files_GetTempName (CHAR *finalName, LONGINT finalName__len, CHAR *name, LONGINT name__len) static void Files_GetTempName (CHAR *finalName, ADDRESS finalName__len, CHAR *name, ADDRESS name__len)
{ {
INT32 n, i, j; INT32 n, i, j;
__DUP(finalName, finalName__len, CHAR); __DUP(finalName, finalName__len, CHAR);
@ -316,7 +316,7 @@ INT32 Files_Length (Files_File f)
return f->len; return f->len;
} }
Files_File Files_New (CHAR *name, LONGINT name__len) Files_File Files_New (CHAR *name, ADDRESS name__len)
{ {
Files_File f = NIL; Files_File f = NIL;
__DUP(name, name__len, CHAR); __DUP(name, name__len, CHAR);
@ -332,7 +332,7 @@ Files_File Files_New (CHAR *name, LONGINT name__len)
return f; return f;
} }
static void Files_ScanPath (INT16 *pos, CHAR *dir, LONGINT dir__len) static void Files_ScanPath (INT16 *pos, CHAR *dir, ADDRESS dir__len)
{ {
INT16 i; INT16 i;
CHAR ch; CHAR ch;
@ -375,7 +375,7 @@ static void Files_ScanPath (INT16 *pos, CHAR *dir, LONGINT dir__len)
dir[i] = 0x00; dir[i] = 0x00;
} }
static BOOLEAN Files_HasDir (CHAR *name, LONGINT name__len) static BOOLEAN Files_HasDir (CHAR *name, ADDRESS name__len)
{ {
INT16 i; INT16 i;
CHAR ch; CHAR ch;
@ -415,7 +415,7 @@ static Files_File Files_CacheEntry (Platform_FileIdentity identity)
return NIL; return NIL;
} }
Files_File Files_Old (CHAR *name, LONGINT name__len) Files_File Files_Old (CHAR *name, ADDRESS name__len)
{ {
Files_File f = NIL; Files_File f = NIL;
INT32 fd; INT32 fd;
@ -618,7 +618,7 @@ void Files_Read (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x)
} }
} }
void Files_ReadBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, LONGINT x__len, INT32 n) void Files_ReadBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, ADDRESS x__len, INT32 n)
{ {
INT32 xpos, min, restInBuf, offset; INT32 xpos, min, restInBuf, offset;
Files_Buffer buf = NIL; Files_Buffer buf = NIL;
@ -683,7 +683,7 @@ void Files_Write (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE x)
(*r).res = 0; (*r).res = 0;
} }
void Files_WriteBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, LONGINT x__len, INT32 n) void Files_WriteBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, ADDRESS x__len, INT32 n)
{ {
INT32 xpos, min, restInBuf, offset; INT32 xpos, min, restInBuf, offset;
Files_Buffer buf = NIL; Files_Buffer buf = NIL;
@ -722,14 +722,14 @@ void Files_WriteBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, LONGINT
(*r).res = 0; (*r).res = 0;
} }
void Files_Delete (CHAR *name, LONGINT name__len, INT16 *res) void Files_Delete (CHAR *name, ADDRESS name__len, INT16 *res)
{ {
__DUP(name, name__len, CHAR); __DUP(name, name__len, CHAR);
*res = Platform_Unlink((void*)name, name__len); *res = Platform_Unlink((void*)name, name__len);
__DEL(name); __DEL(name);
} }
void Files_Rename (CHAR *old, LONGINT old__len, CHAR *new, LONGINT new__len, INT16 *res) void Files_Rename (CHAR *old, ADDRESS old__len, CHAR *new, ADDRESS new__len, INT16 *res)
{ {
INT32 fdold, fdnew, n; INT32 fdold, fdnew, n;
INT16 error, ignore; INT16 error, ignore;
@ -812,14 +812,14 @@ void Files_Register (Files_File f)
} }
} }
void Files_ChangeDirectory (CHAR *path, LONGINT path__len, INT16 *res) void Files_ChangeDirectory (CHAR *path, ADDRESS path__len, INT16 *res)
{ {
__DUP(path, path__len, CHAR); __DUP(path, path__len, CHAR);
*res = Platform_Chdir((void*)path, path__len); *res = Platform_Chdir((void*)path, path__len);
__DEL(path); __DEL(path);
} }
static void Files_FlipBytes (SYSTEM_BYTE *src, LONGINT src__len, SYSTEM_BYTE *dest, LONGINT dest__len) static void Files_FlipBytes (SYSTEM_BYTE *src, ADDRESS src__len, SYSTEM_BYTE *dest, ADDRESS dest__len)
{ {
INT32 i, j; INT32 i, j;
if (!Platform_LittleEndian) { if (!Platform_LittleEndian) {
@ -877,7 +877,7 @@ void Files_ReadLReal (Files_Rider *R, ADDRESS *R__typ, LONGREAL *x)
Files_FlipBytes((void*)b, 8, (void*)&*x, 8); Files_FlipBytes((void*)b, 8, (void*)&*x, 8);
} }
void Files_ReadString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, LONGINT x__len) void Files_ReadString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS x__len)
{ {
INT16 i; INT16 i;
CHAR ch; CHAR ch;
@ -889,7 +889,7 @@ void Files_ReadString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, LONGINT x__len)
} while (!(ch == 0x00)); } while (!(ch == 0x00));
} }
void Files_ReadLine (Files_Rider *R, ADDRESS *R__typ, CHAR *x, LONGINT x__len) void Files_ReadLine (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS x__len)
{ {
INT16 i; INT16 i;
i = 0; i = 0;
@ -906,7 +906,7 @@ void Files_ReadLine (Files_Rider *R, ADDRESS *R__typ, CHAR *x, LONGINT x__len)
x[i] = 0x00; x[i] = 0x00;
} }
void Files_ReadNum (Files_Rider *R, ADDRESS *R__typ, SYSTEM_BYTE *x, LONGINT x__len) void Files_ReadNum (Files_Rider *R, ADDRESS *R__typ, SYSTEM_BYTE *x, ADDRESS x__len)
{ {
INT8 s, b; INT8 s, b;
INT64 q; INT64 q;
@ -972,7 +972,7 @@ void Files_WriteLReal (Files_Rider *R, ADDRESS *R__typ, LONGREAL x)
Files_WriteBytes(&*R, R__typ, (void*)b, 8, 8); Files_WriteBytes(&*R, R__typ, (void*)b, 8, 8);
} }
void Files_WriteString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, LONGINT x__len) void Files_WriteString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS x__len)
{ {
INT16 i; INT16 i;
i = 0; i = 0;
@ -991,7 +991,7 @@ void Files_WriteNum (Files_Rider *R, ADDRESS *R__typ, INT64 x)
Files_Write(&*R, R__typ, (CHAR)__MASK(x, -128)); Files_Write(&*R, R__typ, (CHAR)__MASK(x, -128));
} }
void Files_GetName (Files_File f, CHAR *name, LONGINT name__len) void Files_GetName (Files_File f, CHAR *name, ADDRESS name__len)
{ {
__COPY(f->workName, name, name__len); __COPY(f->workName, name, name__len);
} }
@ -1009,7 +1009,7 @@ static void Files_Finalize (SYSTEM_PTR o)
} }
} }
void Files_SetSearchPath (CHAR *path, LONGINT path__len) void Files_SetSearchPath (CHAR *path, ADDRESS path__len)
{ {
__DUP(path, path__len, CHAR); __DUP(path, path__len, CHAR);
if (Strings_Length(path, path__len) != 0) { if (Strings_Length(path, path__len) != 0) {

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */
#ifndef Files__h #ifndef Files__h
#define Files__h #define Files__h
@ -28,41 +28,41 @@ import ADDRESS *Files_FileDesc__typ;
import ADDRESS *Files_Rider__typ; import ADDRESS *Files_Rider__typ;
import Files_File Files_Base (Files_Rider *r, ADDRESS *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, ADDRESS 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, ADDRESS name__len, INT16 *res);
import void Files_GetDate (Files_File f, INT32 *t, INT32 *d); import void Files_GetDate (Files_File f, INT32 *t, INT32 *d);
import void Files_GetName (Files_File f, CHAR *name, LONGINT name__len); import void Files_GetName (Files_File f, CHAR *name, ADDRESS 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, ADDRESS name__len);
import Files_File Files_Old (CHAR *name, LONGINT name__len); import Files_File Files_Old (CHAR *name, ADDRESS name__len);
import INT32 Files_Pos (Files_Rider *r, ADDRESS *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, ADDRESS *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, ADDRESS *R__typ, BOOLEAN *x); import void Files_ReadBool (Files_Rider *R, ADDRESS *R__typ, BOOLEAN *x);
import void Files_ReadBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, LONGINT x__len, INT32 n); import void Files_ReadBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, ADDRESS x__len, INT32 n);
import void Files_ReadInt (Files_Rider *R, ADDRESS *R__typ, INT16 *x); import void Files_ReadInt (Files_Rider *R, ADDRESS *R__typ, INT16 *x);
import void Files_ReadLInt (Files_Rider *R, ADDRESS *R__typ, INT32 *x); import void Files_ReadLInt (Files_Rider *R, ADDRESS *R__typ, INT32 *x);
import void Files_ReadLReal (Files_Rider *R, ADDRESS *R__typ, LONGREAL *x); import void Files_ReadLReal (Files_Rider *R, ADDRESS *R__typ, LONGREAL *x);
import void Files_ReadLine (Files_Rider *R, ADDRESS *R__typ, CHAR *x, LONGINT x__len); import void Files_ReadLine (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS x__len);
import void Files_ReadNum (Files_Rider *R, ADDRESS *R__typ, SYSTEM_BYTE *x, LONGINT x__len); import void Files_ReadNum (Files_Rider *R, ADDRESS *R__typ, SYSTEM_BYTE *x, ADDRESS x__len);
import void Files_ReadReal (Files_Rider *R, ADDRESS *R__typ, REAL *x); import void Files_ReadReal (Files_Rider *R, ADDRESS *R__typ, REAL *x);
import void Files_ReadSet (Files_Rider *R, ADDRESS *R__typ, UINT32 *x); import void Files_ReadSet (Files_Rider *R, ADDRESS *R__typ, UINT32 *x);
import void Files_ReadString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, LONGINT x__len); import void Files_ReadString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS 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, ADDRESS old__len, CHAR *new, ADDRESS new__len, INT16 *res);
import void Files_Set (Files_Rider *r, ADDRESS *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, ADDRESS path__len);
import void Files_Write (Files_Rider *r, ADDRESS *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, ADDRESS *R__typ, BOOLEAN x); import void Files_WriteBool (Files_Rider *R, ADDRESS *R__typ, BOOLEAN x);
import void Files_WriteBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, LONGINT x__len, INT32 n); import void Files_WriteBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, ADDRESS x__len, INT32 n);
import void Files_WriteInt (Files_Rider *R, ADDRESS *R__typ, INT16 x); import void Files_WriteInt (Files_Rider *R, ADDRESS *R__typ, INT16 x);
import void Files_WriteLInt (Files_Rider *R, ADDRESS *R__typ, INT32 x); import void Files_WriteLInt (Files_Rider *R, ADDRESS *R__typ, INT32 x);
import void Files_WriteLReal (Files_Rider *R, ADDRESS *R__typ, LONGREAL x); import void Files_WriteLReal (Files_Rider *R, ADDRESS *R__typ, LONGREAL x);
import void Files_WriteNum (Files_Rider *R, ADDRESS *R__typ, INT64 x); import void Files_WriteNum (Files_Rider *R, ADDRESS *R__typ, INT64 x);
import void Files_WriteReal (Files_Rider *R, ADDRESS *R__typ, REAL x); import void Files_WriteReal (Files_Rider *R, ADDRESS *R__typ, REAL x);
import void Files_WriteSet (Files_Rider *R, ADDRESS *R__typ, UINT32 x); import void Files_WriteSet (Files_Rider *R, ADDRESS *R__typ, UINT32 x);
import void Files_WriteString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, LONGINT x__len); import void Files_WriteString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS x__len);
import void *Files__init(void); import void *Files__init(void);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. tsSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. tsSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -85,14 +85,14 @@ static void Heap_ExtendHeap (INT32 blksz);
export void Heap_FINALL (void); export void Heap_FINALL (void);
static void Heap_Finalize (void); static void Heap_Finalize (void);
export void Heap_GC (BOOLEAN markStack); export void Heap_GC (BOOLEAN markStack);
static void Heap_HeapSort (INT32 n, INT32 *a, LONGINT a__len); static void Heap_HeapSort (INT32 n, INT32 *a, ADDRESS a__len);
export void Heap_INCREF (Heap_Module m); export void Heap_INCREF (Heap_Module m);
export void Heap_InitHeap (void); export void Heap_InitHeap (void);
export void Heap_Lock (void); export void Heap_Lock (void);
static void Heap_Mark (INT32 q); static void Heap_Mark (INT32 q);
static void Heap_MarkCandidates (INT32 n, INT32 *cand, LONGINT cand__len); static void Heap_MarkCandidates (INT32 n, INT32 *cand, ADDRESS cand__len);
static void Heap_MarkP (SYSTEM_PTR p); static void Heap_MarkP (SYSTEM_PTR p);
static void Heap_MarkStack (INT32 n, INT32 *cand, LONGINT cand__len); static void Heap_MarkStack (INT32 n, INT32 *cand, ADDRESS cand__len);
export SYSTEM_PTR Heap_NEWBLK (INT32 size); export SYSTEM_PTR Heap_NEWBLK (INT32 size);
export SYSTEM_PTR Heap_NEWREC (INT32 tag); export SYSTEM_PTR Heap_NEWREC (INT32 tag);
static INT32 Heap_NewChunk (INT32 blksz); static INT32 Heap_NewChunk (INT32 blksz);
@ -101,7 +101,7 @@ export SYSTEM_PTR Heap_REGMOD (Heap_ModuleName name, Heap_EnumProc enumPtrs);
export void Heap_REGTYP (Heap_Module m, INT32 typ); export void Heap_REGTYP (Heap_Module m, INT32 typ);
export void Heap_RegisterFinalizer (SYSTEM_PTR obj, Heap_Finalizer finalize); export void Heap_RegisterFinalizer (SYSTEM_PTR obj, Heap_Finalizer finalize);
static void Heap_Scan (void); static void Heap_Scan (void);
static void Heap_Sift (INT32 l, INT32 r, INT32 *a, LONGINT a__len); static void Heap_Sift (INT32 l, INT32 r, INT32 *a, ADDRESS a__len);
export void Heap_Unlock (void); export void Heap_Unlock (void);
extern void *Heap__init(); extern void *Heap__init();
@ -445,7 +445,7 @@ static void Heap_Scan (void)
} }
} }
static void Heap_Sift (INT32 l, INT32 r, INT32 *a, LONGINT a__len) static void Heap_Sift (INT32 l, INT32 r, INT32 *a, ADDRESS a__len)
{ {
INT32 i, j, x; INT32 i, j, x;
j = l; j = l;
@ -464,7 +464,7 @@ static void Heap_Sift (INT32 l, INT32 r, INT32 *a, LONGINT a__len)
a[i] = x; a[i] = x;
} }
static void Heap_HeapSort (INT32 n, INT32 *a, LONGINT a__len) static void Heap_HeapSort (INT32 n, INT32 *a, ADDRESS a__len)
{ {
INT32 l, r, x; INT32 l, r, x;
l = __ASHR(n, 1); l = __ASHR(n, 1);
@ -482,7 +482,7 @@ static void Heap_HeapSort (INT32 n, INT32 *a, LONGINT a__len)
} }
} }
static void Heap_MarkCandidates (INT32 n, INT32 *cand, LONGINT cand__len) static void Heap_MarkCandidates (INT32 n, INT32 *cand, ADDRESS cand__len)
{ {
INT32 chnk, adr, tag, next, lim, lim1, i, ptr, size; INT32 chnk, adr, tag, next, lim, lim1, i, ptr, size;
chnk = Heap_heap; chnk = Heap_heap;
@ -571,7 +571,7 @@ void Heap_FINALL (void)
} }
} }
static void Heap_MarkStack (INT32 n, INT32 *cand, LONGINT cand__len) static void Heap_MarkStack (INT32 n, INT32 *cand, ADDRESS cand__len)
{ {
SYSTEM_PTR frame; SYSTEM_PTR frame;
INT32 inc, nofcand, sp, p, stack0; INT32 inc, nofcand, sp, p, stack0;

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. tsSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. tsSF */
#ifndef Heap__h #ifndef Heap__h
#define Heap__h #define Heap__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -47,21 +47,21 @@ export Modules_ModuleName Modules_imported, Modules_importing;
export ADDRESS *Modules_ModuleDesc__typ; export ADDRESS *Modules_ModuleDesc__typ;
export ADDRESS *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, ADDRESS a__len, CHAR *b, ADDRESS b__len);
export void Modules_AssertFail (INT32 code); export void Modules_AssertFail (INT32 code);
static void Modules_DisplayHaltCode (INT32 code); static void Modules_DisplayHaltCode (INT32 code);
export void Modules_Free (CHAR *name, LONGINT name__len, BOOLEAN all); export void Modules_Free (CHAR *name, ADDRESS name__len, BOOLEAN all);
export void Modules_Halt (INT32 code); export void Modules_Halt (INT32 code);
export Modules_Command Modules_ThisCommand (Modules_Module mod, CHAR *name, LONGINT name__len); export Modules_Command Modules_ThisCommand (Modules_Module mod, CHAR *name, ADDRESS name__len);
export Modules_Module Modules_ThisMod (CHAR *name, LONGINT name__len); export Modules_Module Modules_ThisMod (CHAR *name, ADDRESS name__len);
static void Modules_errch (CHAR c); static void Modules_errch (CHAR c);
static void Modules_errint (INT32 l); static void Modules_errint (INT32 l);
static void Modules_errstring (CHAR *s, LONGINT s__len); static void Modules_errstring (CHAR *s, ADDRESS s__len);
#define Modules_modules() (Modules_Module)Heap_modules #define Modules_modules() (Modules_Module)Heap_modules
#define Modules_setmodules(m) Heap_modules = m #define Modules_setmodules(m) Heap_modules = m
static void Modules_Append (CHAR *a, LONGINT a__len, CHAR *b, LONGINT b__len) static void Modules_Append (CHAR *a, ADDRESS a__len, CHAR *b, ADDRESS b__len)
{ {
INT16 i, j; INT16 i, j;
__DUP(b, b__len, CHAR); __DUP(b, b__len, CHAR);
@ -79,7 +79,7 @@ static void Modules_Append (CHAR *a, LONGINT a__len, CHAR *b, LONGINT b__len)
__DEL(b); __DEL(b);
} }
Modules_Module Modules_ThisMod (CHAR *name, LONGINT name__len) Modules_Module Modules_ThisMod (CHAR *name, ADDRESS name__len)
{ {
Modules_Module m = NIL; Modules_Module m = NIL;
CHAR bodyname[64]; CHAR bodyname[64];
@ -103,7 +103,7 @@ Modules_Module Modules_ThisMod (CHAR *name, LONGINT name__len)
return m; return m;
} }
Modules_Command Modules_ThisCommand (Modules_Module mod, CHAR *name, LONGINT name__len) Modules_Command Modules_ThisCommand (Modules_Module mod, CHAR *name, ADDRESS name__len)
{ {
Modules_Cmd c = NIL; Modules_Cmd c = NIL;
__DUP(name, name__len, CHAR); __DUP(name, name__len, CHAR);
@ -130,7 +130,7 @@ Modules_Command Modules_ThisCommand (Modules_Module mod, CHAR *name, LONGINT nam
__RETCHK; __RETCHK;
} }
void Modules_Free (CHAR *name, LONGINT name__len, BOOLEAN all) void Modules_Free (CHAR *name, ADDRESS name__len, BOOLEAN all)
{ {
Modules_Module m = NIL, p = NIL; Modules_Module m = NIL, p = NIL;
__DUP(name, name__len, CHAR); __DUP(name, name__len, CHAR);
@ -168,7 +168,7 @@ static void Modules_errch (CHAR c)
e = Platform_Write(1, (ADDRESS)&c, 1); e = Platform_Write(1, (ADDRESS)&c, 1);
} }
static void Modules_errstring (CHAR *s, LONGINT s__len) static void Modules_errstring (CHAR *s, ADDRESS s__len)
{ {
INT32 i; INT32 i;
__DUP(s, s__len, CHAR); __DUP(s, s__len, CHAR);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Modules__h #ifndef Modules__h
#define Modules__h #define Modules__h
@ -44,10 +44,10 @@ import ADDRESS *Modules_ModuleDesc__typ;
import ADDRESS *Modules_CmdDesc__typ; import ADDRESS *Modules_CmdDesc__typ;
import void Modules_AssertFail (INT32 code); import void Modules_AssertFail (INT32 code);
import void Modules_Free (CHAR *name, LONGINT name__len, BOOLEAN all); import void Modules_Free (CHAR *name, ADDRESS name__len, BOOLEAN all);
import void Modules_Halt (INT32 code); import void Modules_Halt (INT32 code);
import Modules_Command Modules_ThisCommand (Modules_Module mod, CHAR *name, LONGINT name__len); import Modules_Command Modules_ThisCommand (Modules_Module mod, CHAR *name, ADDRESS name__len);
import Modules_Module Modules_ThisMod (CHAR *name, LONGINT name__len); import Modules_Module Modules_ThisMod (CHAR *name, ADDRESS name__len);
import void *Modules__init(void); import void *Modules__init(void);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPB__h #ifndef OPB__h
#define OPB__h #define OPB__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -56,7 +56,7 @@ static void OPC_GenHeaderMsg (void);
export void OPC_Halt (INT32 n); export void OPC_Halt (INT32 n);
export void OPC_Ident (OPT_Object obj); export void OPC_Ident (OPT_Object obj);
static void OPC_IdentList (OPT_Object obj, INT16 vis); static void OPC_IdentList (OPT_Object obj, INT16 vis);
static void OPC_Include (CHAR *name, LONGINT name__len); static void OPC_Include (CHAR *name, ADDRESS name__len);
static void OPC_IncludeImports (OPT_Object obj, INT16 vis); static void OPC_IncludeImports (OPT_Object obj, INT16 vis);
export void OPC_Increment (BOOLEAN decrement); export void OPC_Increment (BOOLEAN decrement);
export void OPC_Indent (INT16 count); export void OPC_Indent (INT16 count);
@ -68,11 +68,11 @@ static void OPC_InitTProcs (OPT_Object typ, OPT_Object obj);
export void OPC_IntLiteral (INT64 n, INT32 size); export void OPC_IntLiteral (INT64 n, INT32 size);
export void OPC_Len (OPT_Object obj, OPT_Struct array, INT64 dim); export void OPC_Len (OPT_Object obj, OPT_Struct array, INT64 dim);
static void OPC_LenList (OPT_Object par, BOOLEAN ansiDefine, BOOLEAN showParamName); static void OPC_LenList (OPT_Object par, BOOLEAN ansiDefine, BOOLEAN showParamName);
static INT16 OPC_Length (CHAR *s, LONGINT s__len); static INT16 OPC_Length (CHAR *s, ADDRESS s__len);
export BOOLEAN OPC_NeedsRetval (OPT_Object proc); export BOOLEAN OPC_NeedsRetval (OPT_Object proc);
export INT32 OPC_NofPtrs (OPT_Struct typ); export INT32 OPC_NofPtrs (OPT_Struct typ);
static INT16 OPC_PerfectHash (CHAR *s, LONGINT s__len); static INT16 OPC_PerfectHash (CHAR *s, ADDRESS s__len);
static BOOLEAN OPC_Prefixed (OPT_ConstExt x, CHAR *y, LONGINT y__len); static BOOLEAN OPC_Prefixed (OPT_ConstExt x, CHAR *y, ADDRESS y__len);
static void OPC_ProcHeader (OPT_Object proc, BOOLEAN define); static void OPC_ProcHeader (OPT_Object proc, BOOLEAN define);
static void OPC_ProcPredefs (OPT_Object obj, INT8 vis); static void OPC_ProcPredefs (OPT_Object obj, INT8 vis);
static void OPC_PutBase (OPT_Struct typ); static void OPC_PutBase (OPT_Struct typ);
@ -80,8 +80,8 @@ static void OPC_PutPtrOffsets (OPT_Struct typ, INT32 adr, INT32 *cnt);
static void OPC_RegCmds (OPT_Object obj); static void OPC_RegCmds (OPT_Object obj);
export void OPC_SetInclude (BOOLEAN exclude); export void OPC_SetInclude (BOOLEAN exclude);
static void OPC_Stars (OPT_Struct typ, BOOLEAN *openClause); static void OPC_Stars (OPT_Struct typ, BOOLEAN *openClause);
static void OPC_Str1 (CHAR *s, LONGINT s__len, INT32 x); static void OPC_Str1 (CHAR *s, ADDRESS s__len, INT32 x);
static void OPC_StringLiteral (CHAR *s, LONGINT s__len, INT32 l); static void OPC_StringLiteral (CHAR *s, ADDRESS s__len, INT32 l);
export void OPC_TDescDecl (OPT_Struct typ); export void OPC_TDescDecl (OPT_Struct typ);
export void OPC_TypeDefs (OPT_Object obj, INT16 vis); export void OPC_TypeDefs (OPT_Object obj, INT16 vis);
export void OPC_TypeOf (OPT_Object ap); export void OPC_TypeOf (OPT_Object ap);
@ -137,7 +137,7 @@ void OPC_EndBlk0 (void)
OPM_Write('}'); OPM_Write('}');
} }
static void OPC_Str1 (CHAR *s, LONGINT s__len, INT32 x) static void OPC_Str1 (CHAR *s, ADDRESS s__len, INT32 x)
{ {
CHAR ch; CHAR ch;
INT16 i; INT16 i;
@ -156,7 +156,7 @@ static void OPC_Str1 (CHAR *s, LONGINT s__len, INT32 x)
__DEL(s); __DEL(s);
} }
static INT16 OPC_Length (CHAR *s, LONGINT s__len) static INT16 OPC_Length (CHAR *s, ADDRESS s__len)
{ {
INT16 i; INT16 i;
i = 0; i = 0;
@ -166,7 +166,7 @@ static INT16 OPC_Length (CHAR *s, LONGINT s__len)
return i; return i;
} }
static INT16 OPC_PerfectHash (CHAR *s, LONGINT s__len) static INT16 OPC_PerfectHash (CHAR *s, ADDRESS s__len)
{ {
INT16 i, h; INT16 i, h;
i = 0; i = 0;
@ -364,7 +364,7 @@ static void OPC_DeclareBase (OPT_Object dcl)
OPM_WriteString((CHAR*)"struct ", 8); OPM_WriteString((CHAR*)"struct ", 8);
OPC_BegBlk(); OPC_BegBlk();
OPC_BegStat(); OPC_BegStat();
OPC_Str1((CHAR*)"LONGINT len[#]", 15, nofdims); OPC_Str1((CHAR*)"ADDRESS len[#]", 15, nofdims);
OPC_EndStat(); OPC_EndStat();
OPC_BegStat(); OPC_BegStat();
__NEW(obj, OPT_ObjDesc); __NEW(obj, OPT_ObjDesc);
@ -511,7 +511,7 @@ static void OPC_LenList (OPT_Object par, BOOLEAN ansiDefine, BOOLEAN showParamNa
typ = par->typ->BaseTyp; typ = par->typ->BaseTyp;
while (typ->comp == 3) { while (typ->comp == 3) {
if (ansiDefine) { if (ansiDefine) {
OPM_WriteString((CHAR*)", LONGINT ", 11); OPM_WriteString((CHAR*)", ADDRESS ", 11);
} else { } else {
OPM_WriteString((CHAR*)", ", 3); OPM_WriteString((CHAR*)", ", 3);
} }
@ -720,7 +720,7 @@ static void OPC_DefineType (OPT_Struct str)
} }
} }
static BOOLEAN OPC_Prefixed (OPT_ConstExt x, CHAR *y, LONGINT y__len) static BOOLEAN OPC_Prefixed (OPT_ConstExt x, CHAR *y, ADDRESS y__len)
{ {
INT16 i; INT16 i;
__DUP(y, y__len, CHAR); __DUP(y, y__len, CHAR);
@ -969,7 +969,7 @@ static void OPC_IdentList (OPT_Object obj, INT16 vis)
OPC_EndStat(); OPC_EndStat();
OPC_BegStat(); OPC_BegStat();
base = OPT_linttyp; base = OPT_linttyp;
OPM_WriteString((CHAR*)"LONGINT ", 9); OPM_WriteString((CHAR*)"ADDRESS ", 9);
OPC_LenList(obj, 0, 1); OPC_LenList(obj, 0, 1);
} else if ((obj->mode == 2 && obj->typ->comp == 4)) { } else if ((obj->mode == 2 && obj->typ->comp == 4)) {
OPC_EndStat(); OPC_EndStat();
@ -1008,7 +1008,7 @@ static void OPC_AnsiParamList (OPT_Object obj, BOOLEAN showParamNames)
__COPY(name, obj->name, 256); __COPY(name, obj->name, 256);
} }
if (obj->typ->comp == 3) { if (obj->typ->comp == 3) {
OPM_WriteString((CHAR*)", LONGINT ", 11); OPM_WriteString((CHAR*)", ADDRESS ", 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*)", ADDRESS *", 12); OPM_WriteString((CHAR*)", ADDRESS *", 12);
@ -1062,7 +1062,7 @@ static void OPC_ProcPredefs (OPT_Object obj, INT8 vis)
} }
} }
static void OPC_Include (CHAR *name, LONGINT name__len) static void OPC_Include (CHAR *name, ADDRESS name__len)
{ {
__DUP(name, name__len, CHAR); __DUP(name, name__len, CHAR);
OPM_WriteString((CHAR*)"#include ", 10); OPM_WriteString((CHAR*)"#include ", 10);
@ -1744,7 +1744,7 @@ static void OPC_CharacterLiteral (INT64 c)
} }
} }
static void OPC_StringLiteral (CHAR *s, LONGINT s__len, INT32 l) static void OPC_StringLiteral (CHAR *s, ADDRESS s__len, INT32 l)
{ {
INT32 i; INT32 i;
INT16 c; INT16 c;
@ -1912,9 +1912,9 @@ static struct InitKeywords__46 {
struct InitKeywords__46 *lnk; struct InitKeywords__46 *lnk;
} *InitKeywords__46_s; } *InitKeywords__46_s;
static void Enter__47 (CHAR *s, LONGINT s__len); static void Enter__47 (CHAR *s, ADDRESS s__len);
static void Enter__47 (CHAR *s, LONGINT s__len) static void Enter__47 (CHAR *s, ADDRESS s__len)
{ {
INT16 h; INT16 h;
__DUP(s, s__len, CHAR); __DUP(s, s__len, CHAR);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPC__h #ifndef OPC__h
#define OPC__h #define OPC__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -53,26 +53,26 @@ export void OPM_FPrintLReal (INT32 *fp, LONGREAL val);
export void OPM_FPrintReal (INT32 *fp, REAL val); export void OPM_FPrintReal (INT32 *fp, REAL val);
export void OPM_FPrintSet (INT32 *fp, UINT64 val); export void OPM_FPrintSet (INT32 *fp, UINT64 val);
static void OPM_FindLine (Files_File f, Files_Rider *r, ADDRESS *r__typ, INT64 pos); static void OPM_FindLine (Files_File f, Files_Rider *r, ADDRESS *r__typ, INT64 pos);
static void OPM_FingerprintBytes (INT32 *fp, SYSTEM_BYTE *bytes, LONGINT bytes__len); static void OPM_FingerprintBytes (INT32 *fp, SYSTEM_BYTE *bytes, ADDRESS bytes__len);
export void OPM_Get (CHAR *ch); export void OPM_Get (CHAR *ch);
export void OPM_Init (BOOLEAN *done, CHAR *mname, LONGINT mname__len); export void OPM_Init (BOOLEAN *done, CHAR *mname, ADDRESS mname__len);
export void OPM_InitOptions (void); export void OPM_InitOptions (void);
export INT16 OPM_Integer (INT64 n); export INT16 OPM_Integer (INT64 n);
static void OPM_LogErrMsg (INT16 n); static void OPM_LogErrMsg (INT16 n);
export void OPM_LogVT100 (CHAR *vt100code, LONGINT vt100code__len); export void OPM_LogVT100 (CHAR *vt100code, ADDRESS vt100code__len);
export void OPM_LogW (CHAR ch); export void OPM_LogW (CHAR ch);
export void OPM_LogWLn (void); export void OPM_LogWLn (void);
export void OPM_LogWNum (INT64 i, INT64 len); export void OPM_LogWNum (INT64 i, INT64 len);
export void OPM_LogWStr (CHAR *s, LONGINT s__len); export void OPM_LogWStr (CHAR *s, ADDRESS s__len);
export INT32 OPM_Longint (INT64 n); export INT32 OPM_Longint (INT64 n);
static void OPM_MakeFileName (CHAR *name, LONGINT name__len, CHAR *FName, LONGINT FName__len, CHAR *ext, LONGINT ext__len); static void OPM_MakeFileName (CHAR *name, ADDRESS name__len, CHAR *FName, ADDRESS FName__len, CHAR *ext, ADDRESS ext__len);
export void OPM_Mark (INT16 n, INT32 pos); export void OPM_Mark (INT16 n, INT32 pos);
export void OPM_NewSym (CHAR *modName, LONGINT modName__len); export void OPM_NewSym (CHAR *modName, ADDRESS modName__len);
export void OPM_OldSym (CHAR *modName, LONGINT modName__len, BOOLEAN *done); export void OPM_OldSym (CHAR *modName, ADDRESS modName__len, BOOLEAN *done);
export void OPM_OpenFiles (CHAR *moduleName, LONGINT moduleName__len); export void OPM_OpenFiles (CHAR *moduleName, ADDRESS moduleName__len);
export BOOLEAN OPM_OpenPar (void); export BOOLEAN OPM_OpenPar (void);
export void OPM_RegisterNewSym (void); export void OPM_RegisterNewSym (void);
static void OPM_ScanOptions (CHAR *s, LONGINT s__len); static void OPM_ScanOptions (CHAR *s, ADDRESS s__len);
static void OPM_ShowLine (INT64 pos); static void OPM_ShowLine (INT64 pos);
export INT64 OPM_SignedMaximum (INT32 bytecount); export INT64 OPM_SignedMaximum (INT32 bytecount);
export INT64 OPM_SignedMinimum (INT32 bytecount); export INT64 OPM_SignedMinimum (INT32 bytecount);
@ -93,8 +93,8 @@ export void OPM_WriteHex (INT64 i);
export void OPM_WriteInt (INT64 i); export void OPM_WriteInt (INT64 i);
export void OPM_WriteLn (void); export void OPM_WriteLn (void);
export void OPM_WriteReal (LONGREAL r, CHAR suffx); export void OPM_WriteReal (LONGREAL r, CHAR suffx);
export void OPM_WriteString (CHAR *s, LONGINT s__len); export void OPM_WriteString (CHAR *s, ADDRESS s__len);
export void OPM_WriteStringVar (CHAR *s, LONGINT s__len); export void OPM_WriteStringVar (CHAR *s, ADDRESS s__len);
export BOOLEAN OPM_eofSF (void); export BOOLEAN OPM_eofSF (void);
export void OPM_err (INT16 n); export void OPM_err (INT16 n);
@ -105,7 +105,7 @@ void OPM_LogW (CHAR ch)
Out_Char(ch); Out_Char(ch);
} }
void OPM_LogWStr (CHAR *s, LONGINT s__len) void OPM_LogWStr (CHAR *s, ADDRESS s__len)
{ {
__DUP(s, s__len, CHAR); __DUP(s, s__len, CHAR);
Out_String(s, s__len); Out_String(s, s__len);
@ -122,7 +122,7 @@ void OPM_LogWLn (void)
Out_Ln(); Out_Ln();
} }
void OPM_LogVT100 (CHAR *vt100code, LONGINT vt100code__len) void OPM_LogVT100 (CHAR *vt100code, ADDRESS vt100code__len)
{ {
__DUP(vt100code, vt100code__len, CHAR); __DUP(vt100code, vt100code__len, CHAR);
if ((Out_IsConsole && !__IN(16, OPM_Options, 32))) { if ((Out_IsConsole && !__IN(16, OPM_Options, 32))) {
@ -154,7 +154,7 @@ INT16 OPM_Integer (INT64 n)
return __VAL(INT16, n); return __VAL(INT16, n);
} }
static void OPM_ScanOptions (CHAR *s, LONGINT s__len) static void OPM_ScanOptions (CHAR *s, ADDRESS s__len)
{ {
INT16 i; INT16 i;
__DUP(s, s__len, CHAR); __DUP(s, s__len, CHAR);
@ -465,7 +465,7 @@ void OPM_InitOptions (void)
Files_SetSearchPath(searchpath, 1024); Files_SetSearchPath(searchpath, 1024);
} }
void OPM_Init (BOOLEAN *done, CHAR *mname, LONGINT mname__len) void OPM_Init (BOOLEAN *done, CHAR *mname, ADDRESS mname__len)
{ {
Texts_Text T = NIL; Texts_Text T = NIL;
INT32 beg, end, time; INT32 beg, end, time;
@ -514,7 +514,7 @@ void OPM_Get (CHAR *ch)
} }
} }
static void OPM_MakeFileName (CHAR *name, LONGINT name__len, CHAR *FName, LONGINT FName__len, CHAR *ext, LONGINT ext__len) static void OPM_MakeFileName (CHAR *name, ADDRESS name__len, CHAR *FName, ADDRESS FName__len, CHAR *ext, ADDRESS ext__len)
{ {
INT16 i, j; INT16 i, j;
CHAR ch; CHAR ch;
@ -700,7 +700,7 @@ void OPM_err (INT16 n)
OPM_Mark(n, OPM_errpos); OPM_Mark(n, OPM_errpos);
} }
static void OPM_FingerprintBytes (INT32 *fp, SYSTEM_BYTE *bytes, LONGINT bytes__len) static void OPM_FingerprintBytes (INT32 *fp, SYSTEM_BYTE *bytes, ADDRESS bytes__len)
{ {
INT16 i; INT16 i;
INT32 l; INT32 l;
@ -772,7 +772,7 @@ void OPM_CloseOldSym (void)
Files_Close(Files_Base(&OPM_oldSF, Files_Rider__typ)); Files_Close(Files_Base(&OPM_oldSF, Files_Rider__typ));
} }
void OPM_OldSym (CHAR *modName, LONGINT modName__len, BOOLEAN *done) void OPM_OldSym (CHAR *modName, ADDRESS modName__len, BOOLEAN *done)
{ {
CHAR tag, ver; CHAR tag, ver;
OPM_FileName fileName; OPM_FileName fileName;
@ -832,7 +832,7 @@ void OPM_DeleteNewSym (void)
{ {
} }
void OPM_NewSym (CHAR *modName, LONGINT modName__len) void OPM_NewSym (CHAR *modName, ADDRESS modName__len)
{ {
OPM_FileName fileName; OPM_FileName fileName;
OPM_MakeFileName((void*)modName, modName__len, (void*)fileName, 32, (CHAR*)".sym", 5); OPM_MakeFileName((void*)modName, modName__len, (void*)fileName, 32, (CHAR*)".sym", 5);
@ -851,7 +851,7 @@ void OPM_Write (CHAR ch)
Files_Write(&OPM_R[__X(OPM_currFile, 3)], Files_Rider__typ, ch); Files_Write(&OPM_R[__X(OPM_currFile, 3)], Files_Rider__typ, ch);
} }
void OPM_WriteString (CHAR *s, LONGINT s__len) void OPM_WriteString (CHAR *s, ADDRESS s__len)
{ {
INT16 i; INT16 i;
i = 0; i = 0;
@ -861,7 +861,7 @@ void OPM_WriteString (CHAR *s, LONGINT s__len)
Files_WriteBytes(&OPM_R[__X(OPM_currFile, 3)], Files_Rider__typ, (void*)s, s__len * 1, i); Files_WriteBytes(&OPM_R[__X(OPM_currFile, 3)], Files_Rider__typ, (void*)s, s__len * 1, i);
} }
void OPM_WriteStringVar (CHAR *s, LONGINT s__len) void OPM_WriteStringVar (CHAR *s, ADDRESS s__len)
{ {
INT16 i; INT16 i;
i = 0; i = 0;
@ -986,7 +986,7 @@ static void OPM_Append (Files_Rider *R, ADDRESS *R__typ, Files_File F)
} }
} }
void OPM_OpenFiles (CHAR *moduleName, LONGINT moduleName__len) void OPM_OpenFiles (CHAR *moduleName, ADDRESS moduleName__len)
{ {
CHAR FName[32]; CHAR FName[32];
__COPY(moduleName, OPM_modName, 32); __COPY(moduleName, OPM_modName, 32);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPM__h #ifndef OPM__h
#define OPM__h #define OPM__h
@ -28,19 +28,19 @@ import void OPM_FPrintLReal (INT32 *fp, LONGREAL val);
import void OPM_FPrintReal (INT32 *fp, REAL val); import void OPM_FPrintReal (INT32 *fp, REAL val);
import void OPM_FPrintSet (INT32 *fp, UINT64 val); import void OPM_FPrintSet (INT32 *fp, UINT64 val);
import void OPM_Get (CHAR *ch); import void OPM_Get (CHAR *ch);
import void OPM_Init (BOOLEAN *done, CHAR *mname, LONGINT mname__len); import void OPM_Init (BOOLEAN *done, CHAR *mname, ADDRESS mname__len);
import void OPM_InitOptions (void); import void OPM_InitOptions (void);
import INT16 OPM_Integer (INT64 n); import INT16 OPM_Integer (INT64 n);
import void OPM_LogVT100 (CHAR *vt100code, LONGINT vt100code__len); import void OPM_LogVT100 (CHAR *vt100code, ADDRESS vt100code__len);
import void OPM_LogW (CHAR ch); import void OPM_LogW (CHAR ch);
import void OPM_LogWLn (void); import void OPM_LogWLn (void);
import void OPM_LogWNum (INT64 i, INT64 len); import void OPM_LogWNum (INT64 i, INT64 len);
import void OPM_LogWStr (CHAR *s, LONGINT s__len); import void OPM_LogWStr (CHAR *s, ADDRESS s__len);
import INT32 OPM_Longint (INT64 n); import INT32 OPM_Longint (INT64 n);
import void OPM_Mark (INT16 n, INT32 pos); import void OPM_Mark (INT16 n, INT32 pos);
import void OPM_NewSym (CHAR *modName, LONGINT modName__len); import void OPM_NewSym (CHAR *modName, ADDRESS modName__len);
import void OPM_OldSym (CHAR *modName, LONGINT modName__len, BOOLEAN *done); import void OPM_OldSym (CHAR *modName, ADDRESS modName__len, BOOLEAN *done);
import void OPM_OpenFiles (CHAR *moduleName, LONGINT moduleName__len); import void OPM_OpenFiles (CHAR *moduleName, ADDRESS moduleName__len);
import BOOLEAN OPM_OpenPar (void); import BOOLEAN OPM_OpenPar (void);
import void OPM_RegisterNewSym (void); import void OPM_RegisterNewSym (void);
import INT64 OPM_SignedMaximum (INT32 bytecount); import INT64 OPM_SignedMaximum (INT32 bytecount);
@ -61,8 +61,8 @@ import void OPM_WriteHex (INT64 i);
import void OPM_WriteInt (INT64 i); import void OPM_WriteInt (INT64 i);
import void OPM_WriteLn (void); import void OPM_WriteLn (void);
import void OPM_WriteReal (LONGREAL r, CHAR suffx); import void OPM_WriteReal (LONGREAL r, CHAR suffx);
import void OPM_WriteString (CHAR *s, LONGINT s__len); import void OPM_WriteString (CHAR *s, ADDRESS s__len);
import void OPM_WriteStringVar (CHAR *s, LONGINT s__len); import void OPM_WriteStringVar (CHAR *s, ADDRESS s__len);
import BOOLEAN OPM_eofSF (void); import BOOLEAN OPM_eofSF (void);
import void OPM_err (INT16 n); import void OPM_err (INT16 n);
import void *OPM__init(void); import void *OPM__init(void);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#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/11/24]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */
#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/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -120,7 +120,7 @@ static void OPT_EnterTyp (OPS_Name name, INT8 form, INT16 size, OPT_Struct *res)
static void OPT_EnterTypeAlias (OPS_Name name, OPT_Object *res); static void OPT_EnterTypeAlias (OPS_Name name, OPT_Object *res);
export void OPT_Export (BOOLEAN *ext, BOOLEAN *new); export void OPT_Export (BOOLEAN *ext, BOOLEAN *new);
export void OPT_FPrintErr (OPT_Object obj, INT16 errcode); export void OPT_FPrintErr (OPT_Object obj, INT16 errcode);
static void OPT_FPrintName (INT32 *fp, CHAR *name, LONGINT name__len); static void OPT_FPrintName (INT32 *fp, CHAR *name, ADDRESS name__len);
export void OPT_FPrintObj (OPT_Object obj); export void OPT_FPrintObj (OPT_Object obj);
static void OPT_FPrintSign (INT32 *fp, OPT_Struct result, OPT_Object par); static void OPT_FPrintSign (INT32 *fp, OPT_Struct result, OPT_Object par);
export void OPT_FPrintStr (OPT_Struct typ); export void OPT_FPrintStr (OPT_Struct typ);
@ -132,7 +132,7 @@ export void OPT_Import (OPS_Name aliasName, OPS_Name name, BOOLEAN *done);
static void OPT_InConstant (INT32 f, OPT_Const conval); static void OPT_InConstant (INT32 f, OPT_Const conval);
static OPT_Object OPT_InFld (void); static OPT_Object OPT_InFld (void);
static void OPT_InMod (INT8 *mno); static void OPT_InMod (INT8 *mno);
static void OPT_InName (CHAR *name, LONGINT name__len); static void OPT_InName (CHAR *name, ADDRESS name__len);
static OPT_Object OPT_InObj (INT8 mno); static OPT_Object OPT_InObj (INT8 mno);
static void OPT_InSign (INT8 mno, OPT_Struct *res, OPT_Object *par); static void OPT_InSign (INT8 mno, OPT_Struct *res, OPT_Object *par);
static void OPT_InStruct (OPT_Struct *typ); static void OPT_InStruct (OPT_Struct *typ);
@ -155,7 +155,7 @@ static void OPT_OutConstant (OPT_Object obj);
static void OPT_OutFlds (OPT_Object fld, INT32 adr, BOOLEAN visible); static void OPT_OutFlds (OPT_Object fld, INT32 adr, BOOLEAN visible);
static void OPT_OutHdFld (OPT_Struct typ, OPT_Object fld, INT32 adr); static void OPT_OutHdFld (OPT_Struct typ, OPT_Object fld, INT32 adr);
static void OPT_OutMod (INT16 mno); static void OPT_OutMod (INT16 mno);
static void OPT_OutName (CHAR *name, LONGINT name__len); static void OPT_OutName (CHAR *name, ADDRESS name__len);
static void OPT_OutObj (OPT_Object obj); static void OPT_OutObj (OPT_Object obj);
static void OPT_OutSign (OPT_Struct result, OPT_Object par); static void OPT_OutSign (OPT_Struct result, OPT_Object par);
static void OPT_OutStr (OPT_Struct typ); static void OPT_OutStr (OPT_Struct typ);
@ -576,7 +576,7 @@ void OPT_Insert (OPS_Name name, OPT_Object *obj)
*obj = ob1; *obj = ob1;
} }
static void OPT_FPrintName (INT32 *fp, CHAR *name, LONGINT name__len) static void OPT_FPrintName (INT32 *fp, CHAR *name, ADDRESS name__len)
{ {
INT16 i; INT16 i;
CHAR ch; CHAR ch;
@ -957,7 +957,7 @@ void OPT_InsertImport (OPT_Object obj, OPT_Object *root, OPT_Object *old)
} }
} }
static void OPT_InName (CHAR *name, LONGINT name__len) static void OPT_InName (CHAR *name, ADDRESS name__len)
{ {
INT16 i; INT16 i;
CHAR ch; CHAR ch;
@ -1483,7 +1483,7 @@ void OPT_Import (OPS_Name aliasName, OPS_Name name, BOOLEAN *done)
} }
} }
static void OPT_OutName (CHAR *name, LONGINT name__len) static void OPT_OutName (CHAR *name, ADDRESS name__len)
{ {
INT16 i; INT16 i;
CHAR ch; CHAR ch;

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPT__h #ifndef OPT__h
#define OPT__h #define OPT__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPV__h #ifndef OPV__h
#define OPV__h #define OPV__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -17,16 +17,16 @@ static INT16 Out_in;
export void Out_Char (CHAR ch); export void Out_Char (CHAR ch);
export void Out_Flush (void); export void Out_Flush (void);
export void Out_Int (INT64 x, INT64 n); export void Out_Int (INT64 x, INT64 n);
static INT32 Out_Length (CHAR *s, LONGINT s__len); static INT32 Out_Length (CHAR *s, ADDRESS s__len);
export void Out_Ln (void); export void Out_Ln (void);
export void Out_LongReal (LONGREAL x, INT16 n); export void Out_LongReal (LONGREAL x, INT16 n);
export void Out_Open (void); export void Out_Open (void);
export void Out_Real (REAL x, INT16 n); export void Out_Real (REAL x, INT16 n);
static void Out_RealP (LONGREAL x, INT16 n, BOOLEAN long_); static void Out_RealP (LONGREAL x, INT16 n, BOOLEAN long_);
export void Out_String (CHAR *str, LONGINT str__len); export void Out_String (CHAR *str, ADDRESS str__len);
export LONGREAL Out_Ten (INT16 e); export LONGREAL Out_Ten (INT16 e);
static void Out_digit (INT64 n, CHAR *s, LONGINT s__len, INT16 *i); static void Out_digit (INT64 n, CHAR *s, ADDRESS s__len, INT16 *i);
static void Out_prepend (CHAR *t, LONGINT t__len, CHAR *s, LONGINT s__len, INT16 *i); static void Out_prepend (CHAR *t, ADDRESS t__len, CHAR *s, ADDRESS s__len, INT16 *i);
#define Out_Entier64(x) (INT64)(x) #define Out_Entier64(x) (INT64)(x)
@ -55,7 +55,7 @@ void Out_Char (CHAR ch)
} }
} }
static INT32 Out_Length (CHAR *s, LONGINT s__len) static INT32 Out_Length (CHAR *s, ADDRESS s__len)
{ {
INT32 l; INT32 l;
l = 0; l = 0;
@ -65,7 +65,7 @@ static INT32 Out_Length (CHAR *s, LONGINT s__len)
return l; return l;
} }
void Out_String (CHAR *str, LONGINT str__len) void Out_String (CHAR *str, ADDRESS str__len)
{ {
INT32 l; INT32 l;
INT16 error; INT16 error;
@ -125,13 +125,13 @@ void Out_Ln (void)
Out_Flush(); Out_Flush();
} }
static void Out_digit (INT64 n, CHAR *s, LONGINT s__len, INT16 *i) static void Out_digit (INT64 n, CHAR *s, ADDRESS s__len, INT16 *i)
{ {
*i -= 1; *i -= 1;
s[__X(*i, s__len)] = (CHAR)(__MOD(n, 10) + 48); s[__X(*i, s__len)] = (CHAR)(__MOD(n, 10) + 48);
} }
static void Out_prepend (CHAR *t, LONGINT t__len, CHAR *s, LONGINT s__len, INT16 *i) static void Out_prepend (CHAR *t, ADDRESS t__len, CHAR *s, ADDRESS s__len, INT16 *i)
{ {
INT16 j; INT16 j;
INT32 l; INT32 l;

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Out__h #ifndef Out__h
#define Out__h #define Out__h
@ -16,7 +16,7 @@ import void Out_Ln (void);
import void Out_LongReal (LONGREAL x, INT16 n); import void Out_LongReal (LONGREAL x, INT16 n);
import void Out_Open (void); import void Out_Open (void);
import void Out_Real (REAL x, INT16 n); import void Out_Real (REAL x, INT16 n);
import void Out_String (CHAR *str, LONGINT str__len); import void Out_String (CHAR *str, ADDRESS str__len);
import LONGREAL Out_Ten (INT16 e); import LONGREAL Out_Ten (INT16 e);
import void *Out__init(void); import void *Out__init(void);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -45,35 +45,35 @@ export CHAR Platform_NL[3];
export ADDRESS *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, ADDRESS s__len);
export INT16 Platform_Chdir (CHAR *n, LONGINT n__len); export INT16 Platform_Chdir (CHAR *n, ADDRESS n__len);
export INT16 Platform_Close (INT32 h); export INT16 Platform_Close (INT32 h);
export BOOLEAN Platform_ConnectionFailed (INT16 e); export BOOLEAN Platform_ConnectionFailed (INT16 e);
export void Platform_Delay (INT32 ms); export void Platform_Delay (INT32 ms);
export BOOLEAN Platform_DifferentFilesystems (INT16 e); export BOOLEAN Platform_DifferentFilesystems (INT16 e);
export INT16 Platform_Error (void); export INT16 Platform_Error (void);
export void Platform_Exit (INT32 code); export void Platform_Exit (INT32 code);
export void Platform_GetArg (INT16 n, CHAR *val, LONGINT val__len); export void Platform_GetArg (INT16 n, CHAR *val, ADDRESS val__len);
export void Platform_GetClock (INT32 *t, INT32 *d); export void Platform_GetClock (INT32 *t, INT32 *d);
export void Platform_GetEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val__len); export void Platform_GetEnv (CHAR *var, ADDRESS var__len, CHAR *val, ADDRESS val__len);
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 INT16 Platform_Identify (INT32 h, Platform_FileIdentity *identity, ADDRESS *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, ADDRESS *identity__typ); export INT16 Platform_IdentifyByName (CHAR *n, ADDRESS n__len, Platform_FileIdentity *identity, ADDRESS *identity__typ);
export BOOLEAN Platform_Inaccessible (INT16 e); export BOOLEAN Platform_Inaccessible (INT16 e);
export void Platform_Init (INT32 argc, INT32 argvadr); export void Platform_Init (INT32 argc, INT32 argvadr);
export BOOLEAN Platform_Interrupted (INT16 e); export BOOLEAN Platform_Interrupted (INT16 e);
export BOOLEAN Platform_IsConsole (INT32 h); export BOOLEAN Platform_IsConsole (INT32 h);
export void Platform_MTimeAsClock (Platform_FileIdentity i, INT32 *t, INT32 *d); export void Platform_MTimeAsClock (Platform_FileIdentity i, INT32 *t, INT32 *d);
export INT16 Platform_New (CHAR *n, LONGINT n__len, INT32 *h); export INT16 Platform_New (CHAR *n, ADDRESS n__len, INT32 *h);
export BOOLEAN Platform_NoSuchDirectory (INT16 e); export BOOLEAN Platform_NoSuchDirectory (INT16 e);
export INT32 Platform_OSAllocate (INT32 size); export INT32 Platform_OSAllocate (INT32 size);
export void Platform_OSFree (INT32 address); export void Platform_OSFree (INT32 address);
export INT16 Platform_OldRO (CHAR *n, LONGINT n__len, INT32 *h); export INT16 Platform_OldRO (CHAR *n, ADDRESS n__len, INT32 *h);
export INT16 Platform_OldRW (CHAR *n, LONGINT n__len, INT32 *h); export INT16 Platform_OldRW (CHAR *n, ADDRESS n__len, INT32 *h);
export INT16 Platform_Read (INT32 h, INT32 p, INT32 l, INT32 *n); export INT16 Platform_Read (INT32 h, INT32 p, INT32 l, INT32 *n);
export INT16 Platform_ReadBuf (INT32 h, SYSTEM_BYTE *b, LONGINT b__len, INT32 *n); export INT16 Platform_ReadBuf (INT32 h, SYSTEM_BYTE *b, ADDRESS b__len, INT32 *n);
export INT16 Platform_Rename (CHAR *o, LONGINT o__len, CHAR *n, LONGINT n__len); export INT16 Platform_Rename (CHAR *o, ADDRESS o__len, CHAR *n, ADDRESS 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);
export INT16 Platform_Seek (INT32 h, INT32 offset, INT16 whence); export INT16 Platform_Seek (INT32 h, INT32 offset, INT16 whence);
@ -83,16 +83,16 @@ export void Platform_SetMTime (Platform_FileIdentity *target, ADDRESS *target__t
export void Platform_SetQuitHandler (Platform_SignalHandler handler); export void Platform_SetQuitHandler (Platform_SignalHandler handler);
export INT16 Platform_Size (INT32 h, INT32 *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, ADDRESS cmd__len);
static void Platform_TestLittleEndian (void); static void Platform_TestLittleEndian (void);
export INT32 Platform_Time (void); export INT32 Platform_Time (void);
export BOOLEAN Platform_TimedOut (INT16 e); export BOOLEAN Platform_TimedOut (INT16 e);
export BOOLEAN Platform_TooManyFiles (INT16 e); export BOOLEAN Platform_TooManyFiles (INT16 e);
export INT16 Platform_Truncate (INT32 h, INT32 l); export INT16 Platform_Truncate (INT32 h, INT32 l);
export INT16 Platform_Unlink (CHAR *n, LONGINT n__len); export INT16 Platform_Unlink (CHAR *n, ADDRESS n__len);
export INT16 Platform_Write (INT32 h, INT32 p, INT32 l); export INT16 Platform_Write (INT32 h, INT32 p, INT32 l);
static void Platform_YMDHMStoClock (INT32 ye, INT32 mo, INT32 da, INT32 ho, INT32 mi, INT32 se, INT32 *t, INT32 *d); static void Platform_YMDHMStoClock (INT32 ye, INT32 mo, INT32 da, INT32 ho, INT32 mi, INT32 se, INT32 *t, INT32 *d);
export BOOLEAN Platform_getEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val__len); export BOOLEAN Platform_getEnv (CHAR *var, ADDRESS var__len, CHAR *val, ADDRESS val__len);
#include <errno.h> #include <errno.h>
#include <errno.h> #include <errno.h>
@ -223,7 +223,7 @@ void Platform_Init (INT32 argc, INT32 argvadr)
Platform_HeapInitHeap(); Platform_HeapInitHeap();
} }
BOOLEAN Platform_getEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val__len) BOOLEAN Platform_getEnv (CHAR *var, ADDRESS var__len, CHAR *val, ADDRESS val__len)
{ {
Platform_EnvPtr p = NIL; Platform_EnvPtr p = NIL;
__DUP(var, var__len, CHAR); __DUP(var, var__len, CHAR);
@ -235,7 +235,7 @@ BOOLEAN Platform_getEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val__le
return p != NIL; return p != NIL;
} }
void Platform_GetEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val__len) void Platform_GetEnv (CHAR *var, ADDRESS var__len, CHAR *val, ADDRESS val__len)
{ {
__DUP(var, var__len, CHAR); __DUP(var, var__len, CHAR);
if (!Platform_getEnv(var, var__len, (void*)val, val__len)) { if (!Platform_getEnv(var, var__len, (void*)val, val__len)) {
@ -244,7 +244,7 @@ void Platform_GetEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val__len)
__DEL(var); __DEL(var);
} }
void Platform_GetArg (INT16 n, CHAR *val, LONGINT val__len) void Platform_GetArg (INT16 n, CHAR *val, ADDRESS val__len)
{ {
Platform_ArgVec av = NIL; Platform_ArgVec av = NIL;
if (n < Platform_ArgCount) { if (n < Platform_ArgCount) {
@ -279,7 +279,7 @@ void Platform_GetIntArg (INT16 n, INT32 *val)
} }
} }
INT16 Platform_ArgPos (CHAR *s, LONGINT s__len) INT16 Platform_ArgPos (CHAR *s, ADDRESS s__len)
{ {
INT16 i; INT16 i;
CHAR arg[256]; CHAR arg[256];
@ -345,7 +345,7 @@ void Platform_Delay (INT32 ms)
Platform_nanosleep(s, ns); Platform_nanosleep(s, ns);
} }
INT16 Platform_System (CHAR *cmd, LONGINT cmd__len) INT16 Platform_System (CHAR *cmd, ADDRESS cmd__len)
{ {
__DUP(cmd, cmd__len, CHAR); __DUP(cmd, cmd__len, CHAR);
__DEL(cmd); __DEL(cmd);
@ -357,7 +357,7 @@ INT16 Platform_Error (void)
return Platform_err(); return Platform_err();
} }
INT16 Platform_OldRO (CHAR *n, LONGINT n__len, INT32 *h) INT16 Platform_OldRO (CHAR *n, ADDRESS n__len, INT32 *h)
{ {
INT16 fd; INT16 fd;
fd = Platform_openro(n, n__len); fd = Platform_openro(n, n__len);
@ -370,7 +370,7 @@ INT16 Platform_OldRO (CHAR *n, LONGINT n__len, INT32 *h)
__RETCHK; __RETCHK;
} }
INT16 Platform_OldRW (CHAR *n, LONGINT n__len, INT32 *h) INT16 Platform_OldRW (CHAR *n, ADDRESS n__len, INT32 *h)
{ {
INT16 fd; INT16 fd;
fd = Platform_openrw(n, n__len); fd = Platform_openrw(n, n__len);
@ -383,7 +383,7 @@ INT16 Platform_OldRW (CHAR *n, LONGINT n__len, INT32 *h)
__RETCHK; __RETCHK;
} }
INT16 Platform_New (CHAR *n, LONGINT n__len, INT32 *h) INT16 Platform_New (CHAR *n, ADDRESS n__len, INT32 *h)
{ {
INT16 fd; INT16 fd;
fd = Platform_opennew(n, n__len); fd = Platform_opennew(n, n__len);
@ -423,7 +423,7 @@ INT16 Platform_Identify (INT32 h, Platform_FileIdentity *identity, ADDRESS *iden
return 0; return 0;
} }
INT16 Platform_IdentifyByName (CHAR *n, LONGINT n__len, Platform_FileIdentity *identity, ADDRESS *identity__typ) INT16 Platform_IdentifyByName (CHAR *n, ADDRESS n__len, Platform_FileIdentity *identity, ADDRESS *identity__typ)
{ {
__DUP(n, n__len, CHAR); __DUP(n, n__len, CHAR);
Platform_structstats(); Platform_structstats();
@ -481,7 +481,7 @@ INT16 Platform_Read (INT32 h, INT32 p, INT32 l, INT32 *n)
__RETCHK; __RETCHK;
} }
INT16 Platform_ReadBuf (INT32 h, SYSTEM_BYTE *b, LONGINT b__len, INT32 *n) INT16 Platform_ReadBuf (INT32 h, SYSTEM_BYTE *b, ADDRESS b__len, INT32 *n)
{ {
*n = Platform_readfile(h, (ADDRESS)b, b__len); *n = Platform_readfile(h, (ADDRESS)b, b__len);
if (*n < 0) { if (*n < 0) {
@ -535,7 +535,7 @@ INT16 Platform_Truncate (INT32 h, INT32 l)
__RETCHK; __RETCHK;
} }
INT16 Platform_Unlink (CHAR *n, LONGINT n__len) INT16 Platform_Unlink (CHAR *n, ADDRESS n__len)
{ {
if (Platform_unlink(n, n__len) < 0) { if (Platform_unlink(n, n__len) < 0) {
return Platform_err(); return Platform_err();
@ -545,7 +545,7 @@ INT16 Platform_Unlink (CHAR *n, LONGINT n__len)
__RETCHK; __RETCHK;
} }
INT16 Platform_Chdir (CHAR *n, LONGINT n__len) INT16 Platform_Chdir (CHAR *n, ADDRESS n__len)
{ {
INT16 r; INT16 r;
if ((Platform_chdir(n, n__len) >= 0 && Platform_getcwd((void*)Platform_CWD, 256) != NIL)) { if ((Platform_chdir(n, n__len) >= 0 && Platform_getcwd((void*)Platform_CWD, 256) != NIL)) {
@ -556,7 +556,7 @@ INT16 Platform_Chdir (CHAR *n, LONGINT n__len)
__RETCHK; __RETCHK;
} }
INT16 Platform_Rename (CHAR *o, LONGINT o__len, CHAR *n, LONGINT n__len) INT16 Platform_Rename (CHAR *o, ADDRESS o__len, CHAR *n, ADDRESS n__len)
{ {
if (Platform_rename(o, o__len, n, n__len) < 0) { if (Platform_rename(o, o__len, n, n__len) < 0) {
return Platform_err(); return Platform_err();

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Platform__h #ifndef Platform__h
#define Platform__h #define Platform__h
@ -27,35 +27,35 @@ import CHAR Platform_NL[3];
import ADDRESS *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, ADDRESS s__len);
import INT16 Platform_Chdir (CHAR *n, LONGINT n__len); import INT16 Platform_Chdir (CHAR *n, ADDRESS n__len);
import INT16 Platform_Close (INT32 h); import INT16 Platform_Close (INT32 h);
import BOOLEAN Platform_ConnectionFailed (INT16 e); import BOOLEAN Platform_ConnectionFailed (INT16 e);
import void Platform_Delay (INT32 ms); import void Platform_Delay (INT32 ms);
import BOOLEAN Platform_DifferentFilesystems (INT16 e); import BOOLEAN Platform_DifferentFilesystems (INT16 e);
import INT16 Platform_Error (void); import INT16 Platform_Error (void);
import void Platform_Exit (INT32 code); import void Platform_Exit (INT32 code);
import void Platform_GetArg (INT16 n, CHAR *val, LONGINT val__len); import void Platform_GetArg (INT16 n, CHAR *val, ADDRESS val__len);
import void Platform_GetClock (INT32 *t, INT32 *d); import void Platform_GetClock (INT32 *t, INT32 *d);
import void Platform_GetEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val__len); import void Platform_GetEnv (CHAR *var, ADDRESS var__len, CHAR *val, ADDRESS val__len);
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 INT16 Platform_Identify (INT32 h, Platform_FileIdentity *identity, ADDRESS *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, ADDRESS *identity__typ); import INT16 Platform_IdentifyByName (CHAR *n, ADDRESS n__len, Platform_FileIdentity *identity, ADDRESS *identity__typ);
import BOOLEAN Platform_Inaccessible (INT16 e); import BOOLEAN Platform_Inaccessible (INT16 e);
import void Platform_Init (INT32 argc, INT32 argvadr); import void Platform_Init (INT32 argc, INT32 argvadr);
import BOOLEAN Platform_Interrupted (INT16 e); import BOOLEAN Platform_Interrupted (INT16 e);
import BOOLEAN Platform_IsConsole (INT32 h); import BOOLEAN Platform_IsConsole (INT32 h);
import void Platform_MTimeAsClock (Platform_FileIdentity i, INT32 *t, INT32 *d); import void Platform_MTimeAsClock (Platform_FileIdentity i, INT32 *t, INT32 *d);
import INT16 Platform_New (CHAR *n, LONGINT n__len, INT32 *h); import INT16 Platform_New (CHAR *n, ADDRESS n__len, INT32 *h);
import BOOLEAN Platform_NoSuchDirectory (INT16 e); import BOOLEAN Platform_NoSuchDirectory (INT16 e);
import INT32 Platform_OSAllocate (INT32 size); import INT32 Platform_OSAllocate (INT32 size);
import void Platform_OSFree (INT32 address); import void Platform_OSFree (INT32 address);
import INT16 Platform_OldRO (CHAR *n, LONGINT n__len, INT32 *h); import INT16 Platform_OldRO (CHAR *n, ADDRESS n__len, INT32 *h);
import INT16 Platform_OldRW (CHAR *n, LONGINT n__len, INT32 *h); import INT16 Platform_OldRW (CHAR *n, ADDRESS n__len, INT32 *h);
import INT16 Platform_Read (INT32 h, INT32 p, INT32 l, INT32 *n); import INT16 Platform_Read (INT32 h, INT32 p, INT32 l, INT32 *n);
import INT16 Platform_ReadBuf (INT32 h, SYSTEM_BYTE *b, LONGINT b__len, INT32 *n); import INT16 Platform_ReadBuf (INT32 h, SYSTEM_BYTE *b, ADDRESS b__len, INT32 *n);
import INT16 Platform_Rename (CHAR *o, LONGINT o__len, CHAR *n, LONGINT n__len); import INT16 Platform_Rename (CHAR *o, ADDRESS o__len, CHAR *n, ADDRESS 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);
import INT16 Platform_Seek (INT32 h, INT32 offset, INT16 whence); import INT16 Platform_Seek (INT32 h, INT32 offset, INT16 whence);
@ -65,14 +65,14 @@ import void Platform_SetMTime (Platform_FileIdentity *target, ADDRESS *target__t
import void Platform_SetQuitHandler (Platform_SignalHandler handler); import void Platform_SetQuitHandler (Platform_SignalHandler handler);
import INT16 Platform_Size (INT32 h, INT32 *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, ADDRESS cmd__len);
import INT32 Platform_Time (void); import INT32 Platform_Time (void);
import BOOLEAN Platform_TimedOut (INT16 e); import BOOLEAN Platform_TimedOut (INT16 e);
import BOOLEAN Platform_TooManyFiles (INT16 e); import BOOLEAN Platform_TooManyFiles (INT16 e);
import INT16 Platform_Truncate (INT32 h, INT32 l); import INT16 Platform_Truncate (INT32 h, INT32 l);
import INT16 Platform_Unlink (CHAR *n, LONGINT n__len); import INT16 Platform_Unlink (CHAR *n, ADDRESS n__len);
import INT16 Platform_Write (INT32 h, INT32 p, INT32 l); import INT16 Platform_Write (INT32 h, INT32 p, INT32 l);
import BOOLEAN Platform_getEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val__len); import BOOLEAN Platform_getEnv (CHAR *var, ADDRESS var__len, CHAR *val, ADDRESS val__len);
import void *Platform__init(void); import void *Platform__init(void);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -10,11 +10,11 @@
static void Reals_BytesToHex (SYSTEM_BYTE *b, LONGINT b__len, SYSTEM_BYTE *d, LONGINT d__len); static void Reals_BytesToHex (SYSTEM_BYTE *b, ADDRESS b__len, SYSTEM_BYTE *d, ADDRESS d__len);
export void Reals_Convert (REAL x, INT16 n, CHAR *d, LONGINT d__len); export void Reals_Convert (REAL x, INT16 n, CHAR *d, ADDRESS d__len);
export void Reals_ConvertH (REAL y, CHAR *d, LONGINT d__len); export void Reals_ConvertH (REAL y, CHAR *d, ADDRESS d__len);
export void Reals_ConvertHL (LONGREAL x, CHAR *d, LONGINT d__len); export void Reals_ConvertHL (LONGREAL x, CHAR *d, ADDRESS d__len);
export void Reals_ConvertL (LONGREAL x, INT16 n, CHAR *d, LONGINT d__len); export void Reals_ConvertL (LONGREAL x, INT16 n, CHAR *d, ADDRESS d__len);
export INT16 Reals_Expo (REAL x); export INT16 Reals_Expo (REAL x);
export INT16 Reals_ExpoL (LONGREAL x); export INT16 Reals_ExpoL (LONGREAL x);
export void Reals_SetExpo (REAL *x, INT16 ex); export void Reals_SetExpo (REAL *x, INT16 ex);
@ -79,7 +79,7 @@ INT16 Reals_ExpoL (LONGREAL x)
return __MASK(__ASHR(i, 4), -2048); return __MASK(__ASHR(i, 4), -2048);
} }
void Reals_ConvertL (LONGREAL x, INT16 n, CHAR *d, LONGINT d__len) void Reals_ConvertL (LONGREAL x, INT16 n, CHAR *d, ADDRESS d__len)
{ {
INT32 i, j, k; INT32 i, j, k;
if (x < (LONGREAL)0) { if (x < (LONGREAL)0) {
@ -107,7 +107,7 @@ void Reals_ConvertL (LONGREAL x, INT16 n, CHAR *d, LONGINT d__len)
} }
} }
void Reals_Convert (REAL x, INT16 n, CHAR *d, LONGINT d__len) void Reals_Convert (REAL x, INT16 n, CHAR *d, ADDRESS d__len)
{ {
Reals_ConvertL(x, n, (void*)d, d__len); Reals_ConvertL(x, n, (void*)d, d__len);
} }
@ -122,7 +122,7 @@ static CHAR Reals_ToHex (INT16 i)
__RETCHK; __RETCHK;
} }
static void Reals_BytesToHex (SYSTEM_BYTE *b, LONGINT b__len, SYSTEM_BYTE *d, LONGINT d__len) static void Reals_BytesToHex (SYSTEM_BYTE *b, ADDRESS b__len, SYSTEM_BYTE *d, ADDRESS d__len)
{ {
INT16 i; INT16 i;
INT32 l; INT32 l;
@ -137,12 +137,12 @@ static void Reals_BytesToHex (SYSTEM_BYTE *b, LONGINT b__len, SYSTEM_BYTE *d, LO
} }
} }
void Reals_ConvertH (REAL y, CHAR *d, LONGINT d__len) void Reals_ConvertH (REAL y, CHAR *d, ADDRESS d__len)
{ {
Reals_BytesToHex((void*)&y, 4, (void*)d, d__len * 1); Reals_BytesToHex((void*)&y, 4, (void*)d, d__len * 1);
} }
void Reals_ConvertHL (LONGREAL x, CHAR *d, LONGINT d__len) void Reals_ConvertHL (LONGREAL x, CHAR *d, ADDRESS d__len)
{ {
Reals_BytesToHex((void*)&x, 8, (void*)d, d__len * 1); Reals_BytesToHex((void*)&x, 8, (void*)d, d__len * 1);
} }

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Reals__h #ifndef Reals__h
#define Reals__h #define Reals__h
@ -8,10 +8,10 @@
import void Reals_Convert (REAL x, INT16 n, CHAR *d, LONGINT d__len); import void Reals_Convert (REAL x, INT16 n, CHAR *d, ADDRESS d__len);
import void Reals_ConvertH (REAL y, CHAR *d, LONGINT d__len); import void Reals_ConvertH (REAL y, CHAR *d, ADDRESS d__len);
import void Reals_ConvertHL (LONGREAL x, CHAR *d, LONGINT d__len); import void Reals_ConvertHL (LONGREAL x, CHAR *d, ADDRESS d__len);
import void Reals_ConvertL (LONGREAL x, INT16 n, CHAR *d, LONGINT d__len); import void Reals_ConvertL (LONGREAL x, INT16 n, CHAR *d, ADDRESS d__len);
import INT16 Reals_Expo (REAL x); import INT16 Reals_Expo (REAL x);
import INT16 Reals_ExpoL (LONGREAL x); import INT16 Reals_ExpoL (LONGREAL x);
import void Reals_SetExpo (REAL *x, INT16 ex); import void Reals_SetExpo (REAL *x, INT16 ex);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -10,18 +10,18 @@
export void Strings_Append (CHAR *extra, LONGINT extra__len, CHAR *dest, LONGINT dest__len); export void Strings_Append (CHAR *extra, ADDRESS extra__len, CHAR *dest, ADDRESS dest__len);
export void Strings_Cap (CHAR *s, LONGINT s__len); export void Strings_Cap (CHAR *s, ADDRESS s__len);
export void Strings_Delete (CHAR *s, LONGINT s__len, INT16 pos, INT16 n); export void Strings_Delete (CHAR *s, ADDRESS s__len, INT16 pos, INT16 n);
export void Strings_Extract (CHAR *source, LONGINT source__len, INT16 pos, INT16 n, CHAR *dest, LONGINT dest__len); export void Strings_Extract (CHAR *source, ADDRESS source__len, INT16 pos, INT16 n, CHAR *dest, ADDRESS dest__len);
export void Strings_Insert (CHAR *source, LONGINT source__len, INT16 pos, CHAR *dest, LONGINT dest__len); export void Strings_Insert (CHAR *source, ADDRESS source__len, INT16 pos, CHAR *dest, ADDRESS dest__len);
export INT16 Strings_Length (CHAR *s, LONGINT s__len); export INT16 Strings_Length (CHAR *s, ADDRESS s__len);
export BOOLEAN Strings_Match (CHAR *string, LONGINT string__len, CHAR *pattern, LONGINT pattern__len); export BOOLEAN Strings_Match (CHAR *string, ADDRESS string__len, CHAR *pattern, ADDRESS pattern__len);
export INT16 Strings_Pos (CHAR *pattern, LONGINT pattern__len, CHAR *s, LONGINT s__len, INT16 pos); export INT16 Strings_Pos (CHAR *pattern, ADDRESS pattern__len, CHAR *s, ADDRESS s__len, INT16 pos);
export void Strings_Replace (CHAR *source, LONGINT source__len, INT16 pos, CHAR *dest, LONGINT dest__len); export void Strings_Replace (CHAR *source, ADDRESS source__len, INT16 pos, CHAR *dest, ADDRESS dest__len);
INT16 Strings_Length (CHAR *s, LONGINT s__len) INT16 Strings_Length (CHAR *s, ADDRESS s__len)
{ {
INT32 i; INT32 i;
__DUP(s, s__len, CHAR); __DUP(s, s__len, CHAR);
@ -39,7 +39,7 @@ INT16 Strings_Length (CHAR *s, LONGINT s__len)
__RETCHK; __RETCHK;
} }
void Strings_Append (CHAR *extra, LONGINT extra__len, CHAR *dest, LONGINT dest__len) void Strings_Append (CHAR *extra, ADDRESS extra__len, CHAR *dest, ADDRESS dest__len)
{ {
INT16 n1, n2, i; INT16 n1, n2, i;
__DUP(extra, extra__len, CHAR); __DUP(extra, extra__len, CHAR);
@ -56,7 +56,7 @@ void Strings_Append (CHAR *extra, LONGINT extra__len, CHAR *dest, LONGINT dest__
__DEL(extra); __DEL(extra);
} }
void Strings_Insert (CHAR *source, LONGINT source__len, INT16 pos, CHAR *dest, LONGINT dest__len) void Strings_Insert (CHAR *source, ADDRESS source__len, INT16 pos, CHAR *dest, ADDRESS dest__len)
{ {
INT16 n1, n2, i; INT16 n1, n2, i;
__DUP(source, source__len, CHAR); __DUP(source, source__len, CHAR);
@ -87,7 +87,7 @@ void Strings_Insert (CHAR *source, LONGINT source__len, INT16 pos, CHAR *dest, L
__DEL(source); __DEL(source);
} }
void Strings_Delete (CHAR *s, LONGINT s__len, INT16 pos, INT16 n) void Strings_Delete (CHAR *s, ADDRESS s__len, INT16 pos, INT16 n)
{ {
INT16 len, i; INT16 len, i;
len = Strings_Length(s, s__len); len = Strings_Length(s, s__len);
@ -110,7 +110,7 @@ void Strings_Delete (CHAR *s, LONGINT s__len, INT16 pos, INT16 n)
} }
} }
void Strings_Replace (CHAR *source, LONGINT source__len, INT16 pos, CHAR *dest, LONGINT dest__len) void Strings_Replace (CHAR *source, ADDRESS source__len, INT16 pos, CHAR *dest, ADDRESS dest__len)
{ {
__DUP(source, source__len, CHAR); __DUP(source, source__len, CHAR);
Strings_Delete((void*)dest, dest__len, pos, pos + Strings_Length(source, source__len)); Strings_Delete((void*)dest, dest__len, pos, pos + Strings_Length(source, source__len));
@ -118,7 +118,7 @@ void Strings_Replace (CHAR *source, LONGINT source__len, INT16 pos, CHAR *dest,
__DEL(source); __DEL(source);
} }
void Strings_Extract (CHAR *source, LONGINT source__len, INT16 pos, INT16 n, CHAR *dest, LONGINT dest__len) void Strings_Extract (CHAR *source, ADDRESS source__len, INT16 pos, INT16 n, CHAR *dest, ADDRESS dest__len)
{ {
INT16 len, destLen, i; INT16 len, destLen, i;
__DUP(source, source__len, CHAR); __DUP(source, source__len, CHAR);
@ -143,7 +143,7 @@ void Strings_Extract (CHAR *source, LONGINT source__len, INT16 pos, INT16 n, CHA
__DEL(source); __DEL(source);
} }
INT16 Strings_Pos (CHAR *pattern, LONGINT pattern__len, CHAR *s, LONGINT s__len, INT16 pos) INT16 Strings_Pos (CHAR *pattern, ADDRESS pattern__len, CHAR *s, ADDRESS s__len, INT16 pos)
{ {
INT16 n1, n2, i, j; INT16 n1, n2, i, j;
__DUP(pattern, pattern__len, CHAR); __DUP(pattern, pattern__len, CHAR);
@ -175,7 +175,7 @@ INT16 Strings_Pos (CHAR *pattern, LONGINT pattern__len, CHAR *s, LONGINT s__len,
return -1; return -1;
} }
void Strings_Cap (CHAR *s, LONGINT s__len) void Strings_Cap (CHAR *s, ADDRESS s__len)
{ {
INT16 i; INT16 i;
i = 0; i = 0;
@ -191,9 +191,9 @@ static struct Match__7 {
struct Match__7 *lnk; struct Match__7 *lnk;
} *Match__7_s; } *Match__7_s;
static BOOLEAN M__8 (CHAR *name, LONGINT name__len, CHAR *mask, LONGINT mask__len, INT16 n, INT16 m); static BOOLEAN M__8 (CHAR *name, ADDRESS name__len, CHAR *mask, ADDRESS mask__len, INT16 n, INT16 m);
static BOOLEAN M__8 (CHAR *name, LONGINT name__len, CHAR *mask, LONGINT mask__len, INT16 n, INT16 m) static BOOLEAN M__8 (CHAR *name, ADDRESS name__len, CHAR *mask, ADDRESS mask__len, INT16 n, INT16 m)
{ {
while ((((n >= 0 && m >= 0)) && mask[__X(m, mask__len)] != '*')) { while ((((n >= 0 && m >= 0)) && mask[__X(m, mask__len)] != '*')) {
if (name[__X(n, name__len)] != mask[__X(m, mask__len)]) { if (name[__X(n, name__len)] != mask[__X(m, mask__len)]) {
@ -220,7 +220,7 @@ static BOOLEAN M__8 (CHAR *name, LONGINT name__len, CHAR *mask, LONGINT mask__le
return 0; return 0;
} }
BOOLEAN Strings_Match (CHAR *string, LONGINT string__len, CHAR *pattern, LONGINT pattern__len) BOOLEAN Strings_Match (CHAR *string, ADDRESS string__len, CHAR *pattern, ADDRESS pattern__len)
{ {
struct Match__7 _s; struct Match__7 _s;
BOOLEAN __retval; BOOLEAN __retval;

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Strings__h #ifndef Strings__h
#define Strings__h #define Strings__h
@ -8,15 +8,15 @@
import void Strings_Append (CHAR *extra, LONGINT extra__len, CHAR *dest, LONGINT dest__len); import void Strings_Append (CHAR *extra, ADDRESS extra__len, CHAR *dest, ADDRESS dest__len);
import void Strings_Cap (CHAR *s, LONGINT s__len); import void Strings_Cap (CHAR *s, ADDRESS s__len);
import void Strings_Delete (CHAR *s, LONGINT s__len, INT16 pos, INT16 n); import void Strings_Delete (CHAR *s, ADDRESS s__len, INT16 pos, INT16 n);
import void Strings_Extract (CHAR *source, LONGINT source__len, INT16 pos, INT16 n, CHAR *dest, LONGINT dest__len); import void Strings_Extract (CHAR *source, ADDRESS source__len, INT16 pos, INT16 n, CHAR *dest, ADDRESS dest__len);
import void Strings_Insert (CHAR *source, LONGINT source__len, INT16 pos, CHAR *dest, LONGINT dest__len); import void Strings_Insert (CHAR *source, ADDRESS source__len, INT16 pos, CHAR *dest, ADDRESS dest__len);
import INT16 Strings_Length (CHAR *s, LONGINT s__len); import INT16 Strings_Length (CHAR *s, ADDRESS s__len);
import BOOLEAN Strings_Match (CHAR *string, LONGINT string__len, CHAR *pattern, LONGINT pattern__len); import BOOLEAN Strings_Match (CHAR *string, ADDRESS string__len, CHAR *pattern, ADDRESS pattern__len);
import INT16 Strings_Pos (CHAR *pattern, LONGINT pattern__len, CHAR *s, LONGINT s__len, INT16 pos); import INT16 Strings_Pos (CHAR *pattern, ADDRESS pattern__len, CHAR *s, ADDRESS s__len, INT16 pos);
import void Strings_Replace (CHAR *source, LONGINT source__len, INT16 pos, CHAR *dest, LONGINT dest__len); import void Strings_Replace (CHAR *source, ADDRESS source__len, INT16 pos, CHAR *dest, ADDRESS dest__len);
import void *Strings__init(void); import void *Strings__init(void);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -187,20 +187,20 @@ export void Texts_Append (Texts_Text T, Texts_Buffer B);
export void Texts_ChangeLooks (Texts_Text T, INT32 beg, INT32 end, UINT32 sel, Texts_FontsFont fnt, INT8 col, INT8 voff); export void Texts_ChangeLooks (Texts_Text T, INT32 beg, INT32 end, UINT32 sel, Texts_FontsFont fnt, INT8 col, INT8 voff);
static Texts_Elem Texts_CloneElem (Texts_Elem e); static Texts_Elem Texts_CloneElem (Texts_Elem e);
static Texts_Piece Texts_ClonePiece (Texts_Piece p); static Texts_Piece Texts_ClonePiece (Texts_Piece p);
export void Texts_Close (Texts_Text T, CHAR *name, LONGINT name__len); export void Texts_Close (Texts_Text T, CHAR *name, ADDRESS name__len);
export void Texts_Copy (Texts_Buffer SB, Texts_Buffer DB); export void Texts_Copy (Texts_Buffer SB, Texts_Buffer DB);
export void Texts_CopyElem (Texts_Elem SE, Texts_Elem DE); export void Texts_CopyElem (Texts_Elem SE, Texts_Elem DE);
export void Texts_Delete (Texts_Text T, INT32 beg, INT32 end); export void Texts_Delete (Texts_Text T, INT32 beg, INT32 end);
export Texts_Text Texts_ElemBase (Texts_Elem E); 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, ADDRESS name__len);
static void Texts_HandleAlien (Texts_Elem E, Texts_ElemMsg *msg, ADDRESS *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, ADDRESS *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, ADDRESS *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, ADDRESS name__len);
export void Texts_OpenBuf (Texts_Buffer B); export void Texts_OpenBuf (Texts_Buffer B);
export void Texts_OpenReader (Texts_Reader *R, ADDRESS *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, ADDRESS *S__typ, Texts_Text T, INT32 pos); export void Texts_OpenScanner (Texts_Scanner *S, ADDRESS *S__typ, Texts_Text T, INT32 pos);
@ -229,10 +229,10 @@ export void Texts_WriteLongRealHex (Texts_Writer *W, ADDRESS *W__typ, LONGREAL x
export void Texts_WriteReal (Texts_Writer *W, ADDRESS *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, ADDRESS *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, ADDRESS *W__typ, REAL x); export void Texts_WriteRealHex (Texts_Writer *W, ADDRESS *W__typ, REAL x);
export void Texts_WriteString (Texts_Writer *W, ADDRESS *W__typ, CHAR *s, LONGINT s__len); export void Texts_WriteString (Texts_Writer *W, ADDRESS *W__typ, CHAR *s, ADDRESS s__len);
static Texts_FontsFont Texts_FontsThis (CHAR *name, LONGINT name__len) static Texts_FontsFont Texts_FontsThis (CHAR *name, ADDRESS name__len)
{ {
Texts_FontsFont F = NIL; Texts_FontsFont F = NIL;
__NEW(F, Texts_FontDesc); __NEW(F, Texts_FontDesc);
@ -1027,7 +1027,7 @@ 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, ADDRESS *W__typ, CHAR *s, LONGINT s__len) void Texts_WriteString (Texts_Writer *W, ADDRESS *W__typ, CHAR *s, ADDRESS s__len)
{ {
INT16 i; INT16 i;
__DUP(s, s__len, CHAR); __DUP(s, s__len, CHAR);
@ -1539,7 +1539,7 @@ void Texts_Load (Files_Rider *r, ADDRESS *r__typ, Texts_Text T)
Texts_Load0(&*r, r__typ, T); Texts_Load0(&*r, r__typ, T);
} }
void Texts_Open (Texts_Text T, CHAR *name, LONGINT name__len) void Texts_Open (Texts_Text T, CHAR *name, ADDRESS name__len)
{ {
Files_File f = NIL; Files_File f = NIL;
Files_Rider r; Files_Rider r;
@ -1755,7 +1755,7 @@ void Texts_Store (Files_Rider *r, ADDRESS *r__typ, Texts_Text T)
Store__39_s = _s.lnk; Store__39_s = _s.lnk;
} }
void Texts_Close (Texts_Text T, CHAR *name, LONGINT name__len) void Texts_Close (Texts_Text T, CHAR *name, ADDRESS name__len)
{ {
Files_File f = NIL; Files_File f = NIL;
Files_Rider r; Files_Rider r;

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Texts__h #ifndef Texts__h
#define Texts__h #define Texts__h
@ -131,7 +131,7 @@ 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, UINT32 sel, Texts_FontsFont fnt, INT8 col, INT8 voff); import void Texts_ChangeLooks (Texts_Text T, INT32 beg, INT32 end, UINT32 sel, Texts_FontsFont fnt, INT8 col, INT8 voff);
import void Texts_Close (Texts_Text T, CHAR *name, LONGINT name__len); import void Texts_Close (Texts_Text T, CHAR *name, ADDRESS name__len);
import void Texts_Copy (Texts_Buffer SB, Texts_Buffer DB); import void Texts_Copy (Texts_Buffer SB, Texts_Buffer DB);
import void Texts_CopyElem (Texts_Elem SE, Texts_Elem DE); import void Texts_CopyElem (Texts_Elem SE, Texts_Elem DE);
import void Texts_Delete (Texts_Text T, INT32 beg, INT32 end); import void Texts_Delete (Texts_Text T, INT32 beg, INT32 end);
@ -139,7 +139,7 @@ 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, ADDRESS *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, ADDRESS name__len);
import void Texts_OpenBuf (Texts_Buffer B); import void Texts_OpenBuf (Texts_Buffer B);
import void Texts_OpenReader (Texts_Reader *R, ADDRESS *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, ADDRESS *S__typ, Texts_Text T, INT32 pos); import void Texts_OpenScanner (Texts_Scanner *S, ADDRESS *S__typ, Texts_Text T, INT32 pos);
@ -166,7 +166,7 @@ import void Texts_WriteLongRealHex (Texts_Writer *W, ADDRESS *W__typ, LONGREAL x
import void Texts_WriteReal (Texts_Writer *W, ADDRESS *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, ADDRESS *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, ADDRESS *W__typ, REAL x); import void Texts_WriteRealHex (Texts_Writer *W, ADDRESS *W__typ, REAL x);
import void Texts_WriteString (Texts_Writer *W, ADDRESS *W__typ, CHAR *s, LONGINT s__len); import void Texts_WriteString (Texts_Writer *W, ADDRESS *W__typ, CHAR *s, ADDRESS s__len);
import void *Texts__init(void); import void *Texts__init(void);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -27,23 +27,23 @@ export void VT100_DECTCEMl (void);
export void VT100_DSR (INT16 n); export void VT100_DSR (INT16 n);
export void VT100_ED (INT16 n); export void VT100_ED (INT16 n);
export void VT100_EL (INT16 n); export void VT100_EL (INT16 n);
static void VT100_EscSeq (INT16 n, CHAR *letter, LONGINT letter__len); static void VT100_EscSeq (INT16 n, CHAR *letter, ADDRESS letter__len);
static void VT100_EscSeq0 (CHAR *letter, LONGINT letter__len); static void VT100_EscSeq0 (CHAR *letter, ADDRESS letter__len);
static void VT100_EscSeq2 (INT16 n, INT16 m, CHAR *letter, LONGINT letter__len); static void VT100_EscSeq2 (INT16 n, INT16 m, CHAR *letter, ADDRESS letter__len);
static void VT100_EscSeqSwapped (INT16 n, CHAR *letter, LONGINT letter__len); static void VT100_EscSeqSwapped (INT16 n, CHAR *letter, ADDRESS letter__len);
export void VT100_HVP (INT16 n, INT16 m); export void VT100_HVP (INT16 n, INT16 m);
export void VT100_IntToStr (INT32 int_, CHAR *str, LONGINT str__len); export void VT100_IntToStr (INT32 int_, CHAR *str, ADDRESS str__len);
export void VT100_RCP (void); export void VT100_RCP (void);
static void VT100_Reverse0 (CHAR *str, LONGINT str__len, INT16 start, INT16 end); static void VT100_Reverse0 (CHAR *str, ADDRESS str__len, INT16 start, INT16 end);
export void VT100_SCP (void); export void VT100_SCP (void);
export void VT100_SD (INT16 n); export void VT100_SD (INT16 n);
export void VT100_SGR (INT16 n); export void VT100_SGR (INT16 n);
export void VT100_SGR2 (INT16 n, INT16 m); export void VT100_SGR2 (INT16 n, INT16 m);
export void VT100_SU (INT16 n); export void VT100_SU (INT16 n);
export void VT100_SetAttr (CHAR *attr, LONGINT attr__len); export void VT100_SetAttr (CHAR *attr, ADDRESS attr__len);
static void VT100_Reverse0 (CHAR *str, LONGINT str__len, INT16 start, INT16 end) static void VT100_Reverse0 (CHAR *str, ADDRESS str__len, INT16 start, INT16 end)
{ {
CHAR h; CHAR h;
while (start < end) { while (start < end) {
@ -55,7 +55,7 @@ static void VT100_Reverse0 (CHAR *str, LONGINT str__len, INT16 start, INT16 end)
} }
} }
void VT100_IntToStr (INT32 int_, CHAR *str, LONGINT str__len) void VT100_IntToStr (INT32 int_, CHAR *str, ADDRESS str__len)
{ {
CHAR b[21]; CHAR b[21];
INT16 s, e; INT16 s, e;
@ -84,7 +84,7 @@ void VT100_IntToStr (INT32 int_, CHAR *str, LONGINT str__len)
__COPY(b, str, str__len); __COPY(b, str, str__len);
} }
static void VT100_EscSeq0 (CHAR *letter, LONGINT letter__len) static void VT100_EscSeq0 (CHAR *letter, ADDRESS letter__len)
{ {
CHAR cmd[9]; CHAR cmd[9];
__DUP(letter, letter__len, CHAR); __DUP(letter, letter__len, CHAR);
@ -94,7 +94,7 @@ static void VT100_EscSeq0 (CHAR *letter, LONGINT letter__len)
__DEL(letter); __DEL(letter);
} }
static void VT100_EscSeq (INT16 n, CHAR *letter, LONGINT letter__len) static void VT100_EscSeq (INT16 n, CHAR *letter, ADDRESS letter__len)
{ {
CHAR nstr[2]; CHAR nstr[2];
CHAR cmd[7]; CHAR cmd[7];
@ -107,7 +107,7 @@ static void VT100_EscSeq (INT16 n, CHAR *letter, LONGINT letter__len)
__DEL(letter); __DEL(letter);
} }
static void VT100_EscSeqSwapped (INT16 n, CHAR *letter, LONGINT letter__len) static void VT100_EscSeqSwapped (INT16 n, CHAR *letter, ADDRESS letter__len)
{ {
CHAR nstr[2]; CHAR nstr[2];
CHAR cmd[7]; CHAR cmd[7];
@ -120,7 +120,7 @@ static void VT100_EscSeqSwapped (INT16 n, CHAR *letter, LONGINT letter__len)
__DEL(letter); __DEL(letter);
} }
static void VT100_EscSeq2 (INT16 n, INT16 m, CHAR *letter, LONGINT letter__len) static void VT100_EscSeq2 (INT16 n, INT16 m, CHAR *letter, ADDRESS letter__len)
{ {
CHAR nstr[5], mstr[5]; CHAR nstr[5], mstr[5];
CHAR cmd[12]; CHAR cmd[12];
@ -236,7 +236,7 @@ void VT100_DECTCEMh (void)
VT100_EscSeq0((CHAR*)"\?25h", 5); VT100_EscSeq0((CHAR*)"\?25h", 5);
} }
void VT100_SetAttr (CHAR *attr, LONGINT attr__len) void VT100_SetAttr (CHAR *attr, ADDRESS attr__len)
{ {
CHAR tmpstr[16]; CHAR tmpstr[16];
__DUP(attr, attr__len, CHAR); __DUP(attr, attr__len, CHAR);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef VT100__h #ifndef VT100__h
#define VT100__h #define VT100__h
@ -23,14 +23,14 @@ import void VT100_DSR (INT16 n);
import void VT100_ED (INT16 n); import void VT100_ED (INT16 n);
import void VT100_EL (INT16 n); import void VT100_EL (INT16 n);
import void VT100_HVP (INT16 n, INT16 m); import void VT100_HVP (INT16 n, INT16 m);
import void VT100_IntToStr (INT32 int_, CHAR *str, LONGINT str__len); import void VT100_IntToStr (INT32 int_, CHAR *str, ADDRESS str__len);
import void VT100_RCP (void); import void VT100_RCP (void);
import void VT100_SCP (void); import void VT100_SCP (void);
import void VT100_SD (INT16 n); import void VT100_SD (INT16 n);
import void VT100_SGR (INT16 n); import void VT100_SGR (INT16 n);
import void VT100_SGR2 (INT16 n, INT16 m); import void VT100_SGR2 (INT16 n, INT16 m);
import void VT100_SU (INT16 n); import void VT100_SU (INT16 n);
import void VT100_SetAttr (CHAR *attr, LONGINT attr__len); import void VT100_SetAttr (CHAR *attr, ADDRESS attr__len);
import void *VT100__init(void); import void *VT100__init(void);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -17,13 +17,13 @@
static CHAR extTools_CFLAGS[1023]; static CHAR extTools_CFLAGS[1023];
export void extTools_Assemble (CHAR *moduleName, LONGINT moduleName__len); export void extTools_Assemble (CHAR *moduleName, ADDRESS moduleName__len);
static void extTools_InitialiseCompilerCommand (CHAR *s, LONGINT s__len); static void extTools_InitialiseCompilerCommand (CHAR *s, ADDRESS s__len);
export void extTools_LinkMain (CHAR *moduleName, LONGINT moduleName__len, BOOLEAN statically, CHAR *additionalopts, LONGINT additionalopts__len); export void extTools_LinkMain (CHAR *moduleName, ADDRESS moduleName__len, BOOLEAN statically, CHAR *additionalopts, ADDRESS additionalopts__len);
static void extTools_execute (CHAR *title, LONGINT title__len, CHAR *cmd, LONGINT cmd__len); static void extTools_execute (CHAR *title, ADDRESS title__len, CHAR *cmd, ADDRESS cmd__len);
static void extTools_execute (CHAR *title, LONGINT title__len, CHAR *cmd, LONGINT cmd__len) static void extTools_execute (CHAR *title, ADDRESS title__len, CHAR *cmd, ADDRESS cmd__len)
{ {
INT16 r, status, exitcode; INT16 r, status, exitcode;
__DUP(title, title__len, CHAR); __DUP(title, title__len, CHAR);
@ -63,7 +63,7 @@ static void extTools_execute (CHAR *title, LONGINT title__len, CHAR *cmd, LONGIN
__DEL(cmd); __DEL(cmd);
} }
static void extTools_InitialiseCompilerCommand (CHAR *s, LONGINT s__len) static void extTools_InitialiseCompilerCommand (CHAR *s, ADDRESS s__len)
{ {
__COPY("gcc -g", s, s__len); __COPY("gcc -g", s, s__len);
Strings_Append((CHAR*)" -I \"", 6, (void*)s, s__len); Strings_Append((CHAR*)" -I \"", 6, (void*)s, s__len);
@ -74,7 +74,7 @@ static void extTools_InitialiseCompilerCommand (CHAR *s, LONGINT s__len)
Strings_Append((CHAR*)" ", 2, (void*)s, s__len); Strings_Append((CHAR*)" ", 2, (void*)s, s__len);
} }
void extTools_Assemble (CHAR *moduleName, LONGINT moduleName__len) void extTools_Assemble (CHAR *moduleName, ADDRESS moduleName__len)
{ {
CHAR cmd[1023]; CHAR cmd[1023];
__DUP(moduleName, moduleName__len, CHAR); __DUP(moduleName, moduleName__len, CHAR);
@ -86,7 +86,7 @@ void extTools_Assemble (CHAR *moduleName, LONGINT moduleName__len)
__DEL(moduleName); __DEL(moduleName);
} }
void extTools_LinkMain (CHAR *moduleName, LONGINT moduleName__len, BOOLEAN statically, CHAR *additionalopts, LONGINT additionalopts__len) void extTools_LinkMain (CHAR *moduleName, ADDRESS moduleName__len, BOOLEAN statically, CHAR *additionalopts, ADDRESS additionalopts__len)
{ {
CHAR cmd[1023]; CHAR cmd[1023];
__DUP(additionalopts, additionalopts__len, CHAR); __DUP(additionalopts, additionalopts__len, CHAR);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef extTools__h #ifndef extTools__h
#define extTools__h #define extTools__h
@ -8,8 +8,8 @@
import void extTools_Assemble (CHAR *moduleName, LONGINT moduleName__len); import void extTools_Assemble (CHAR *moduleName, ADDRESS moduleName__len);
import void extTools_LinkMain (CHAR *moduleName, LONGINT moduleName__len, BOOLEAN statically, CHAR *additionalopts, LONGINT additionalopts__len); import void extTools_LinkMain (CHAR *moduleName, ADDRESS moduleName__len, BOOLEAN statically, CHAR *additionalopts, ADDRESS additionalopts__len);
import void *extTools__init(void); import void *extTools__init(void);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspamS */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspamS */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

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

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

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Configuration__h #ifndef Configuration__h
#define Configuration__h #define Configuration__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -52,7 +52,7 @@ static Files_File Files_files;
static INT16 Files_tempno; static INT16 Files_tempno;
static CHAR Files_HOME[1024]; static CHAR Files_HOME[1024];
static struct { static struct {
LONGINT len[1]; ADDRESS len[1];
CHAR data[1]; CHAR data[1];
} *Files_SearchPath; } *Files_SearchPath;
@ -62,56 +62,56 @@ export ADDRESS *Files_Rider__typ;
export Files_File Files_Base (Files_Rider *r, ADDRESS *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, ADDRESS path__len, INT16 *res);
export void Files_Close (Files_File f); export void Files_Close (Files_File f);
static void Files_CloseOSFile (Files_File f); static void Files_CloseOSFile (Files_File f);
static void Files_Create (Files_File f); static void Files_Create (Files_File f);
export void Files_Delete (CHAR *name, LONGINT name__len, INT16 *res); export void Files_Delete (CHAR *name, ADDRESS name__len, INT16 *res);
static void Files_Err (CHAR *s, LONGINT s__len, Files_File f, INT16 errcode); static void Files_Err (CHAR *s, ADDRESS s__len, Files_File f, INT16 errcode);
static void Files_Finalize (SYSTEM_PTR o); static void Files_Finalize (SYSTEM_PTR o);
static void Files_FlipBytes (SYSTEM_BYTE *src, LONGINT src__len, SYSTEM_BYTE *dest, LONGINT dest__len); static void Files_FlipBytes (SYSTEM_BYTE *src, ADDRESS src__len, SYSTEM_BYTE *dest, ADDRESS dest__len);
static void Files_Flush (Files_Buffer buf); static void Files_Flush (Files_Buffer buf);
export void Files_GetDate (Files_File f, INT32 *t, INT32 *d); export void Files_GetDate (Files_File f, INT32 *t, INT32 *d);
export void Files_GetName (Files_File f, CHAR *name, LONGINT name__len); export void Files_GetName (Files_File f, CHAR *name, ADDRESS name__len);
static void Files_GetTempName (CHAR *finalName, LONGINT finalName__len, CHAR *name, LONGINT name__len); static void Files_GetTempName (CHAR *finalName, ADDRESS finalName__len, CHAR *name, ADDRESS name__len);
static BOOLEAN Files_HasDir (CHAR *name, LONGINT name__len); static BOOLEAN Files_HasDir (CHAR *name, ADDRESS name__len);
export INT32 Files_Length (Files_File f); 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, ADDRESS dir__len, CHAR *name, ADDRESS name__len, CHAR *dest, ADDRESS dest__len);
export Files_File Files_New (CHAR *name, LONGINT name__len); export Files_File Files_New (CHAR *name, ADDRESS name__len);
export Files_File Files_Old (CHAR *name, LONGINT name__len); export Files_File Files_Old (CHAR *name, ADDRESS name__len);
export INT32 Files_Pos (Files_Rider *r, ADDRESS *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, ADDRESS *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, ADDRESS *R__typ, BOOLEAN *x); export void Files_ReadBool (Files_Rider *R, ADDRESS *R__typ, BOOLEAN *x);
export void Files_ReadBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, LONGINT x__len, INT32 n); export void Files_ReadBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, ADDRESS x__len, INT32 n);
export void Files_ReadInt (Files_Rider *R, ADDRESS *R__typ, INT16 *x); export void Files_ReadInt (Files_Rider *R, ADDRESS *R__typ, INT16 *x);
export void Files_ReadLInt (Files_Rider *R, ADDRESS *R__typ, INT32 *x); export void Files_ReadLInt (Files_Rider *R, ADDRESS *R__typ, INT32 *x);
export void Files_ReadLReal (Files_Rider *R, ADDRESS *R__typ, LONGREAL *x); export void Files_ReadLReal (Files_Rider *R, ADDRESS *R__typ, LONGREAL *x);
export void Files_ReadLine (Files_Rider *R, ADDRESS *R__typ, CHAR *x, LONGINT x__len); export void Files_ReadLine (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS x__len);
export void Files_ReadNum (Files_Rider *R, ADDRESS *R__typ, SYSTEM_BYTE *x, LONGINT x__len); export void Files_ReadNum (Files_Rider *R, ADDRESS *R__typ, SYSTEM_BYTE *x, ADDRESS x__len);
export void Files_ReadReal (Files_Rider *R, ADDRESS *R__typ, REAL *x); export void Files_ReadReal (Files_Rider *R, ADDRESS *R__typ, REAL *x);
export void Files_ReadSet (Files_Rider *R, ADDRESS *R__typ, UINT32 *x); export void Files_ReadSet (Files_Rider *R, ADDRESS *R__typ, UINT32 *x);
export void Files_ReadString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, LONGINT x__len); export void Files_ReadString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS 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, ADDRESS old__len, CHAR *new, ADDRESS new__len, INT16 *res);
static void Files_ScanPath (INT16 *pos, CHAR *dir, LONGINT dir__len); static void Files_ScanPath (INT16 *pos, CHAR *dir, ADDRESS dir__len);
export void Files_Set (Files_Rider *r, ADDRESS *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, ADDRESS path__len);
export void Files_Write (Files_Rider *r, ADDRESS *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, ADDRESS *R__typ, BOOLEAN x); export void Files_WriteBool (Files_Rider *R, ADDRESS *R__typ, BOOLEAN x);
export void Files_WriteBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, LONGINT x__len, INT32 n); export void Files_WriteBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, ADDRESS x__len, INT32 n);
export void Files_WriteInt (Files_Rider *R, ADDRESS *R__typ, INT16 x); export void Files_WriteInt (Files_Rider *R, ADDRESS *R__typ, INT16 x);
export void Files_WriteLInt (Files_Rider *R, ADDRESS *R__typ, INT32 x); export void Files_WriteLInt (Files_Rider *R, ADDRESS *R__typ, INT32 x);
export void Files_WriteLReal (Files_Rider *R, ADDRESS *R__typ, LONGREAL x); export void Files_WriteLReal (Files_Rider *R, ADDRESS *R__typ, LONGREAL x);
export void Files_WriteNum (Files_Rider *R, ADDRESS *R__typ, INT64 x); export void Files_WriteNum (Files_Rider *R, ADDRESS *R__typ, INT64 x);
export void Files_WriteReal (Files_Rider *R, ADDRESS *R__typ, REAL x); export void Files_WriteReal (Files_Rider *R, ADDRESS *R__typ, REAL x);
export void Files_WriteSet (Files_Rider *R, ADDRESS *R__typ, UINT32 x); export void Files_WriteSet (Files_Rider *R, ADDRESS *R__typ, UINT32 x);
export void Files_WriteString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, LONGINT x__len); export void Files_WriteString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS x__len);
#define Files_IdxTrap() __HALT(-1) #define Files_IdxTrap() __HALT(-1)
#define Files_ToAdr(x) (ADDRESS)x #define Files_ToAdr(x) (ADDRESS)x
static void Files_Err (CHAR *s, LONGINT s__len, Files_File f, INT16 errcode) static void Files_Err (CHAR *s, ADDRESS s__len, Files_File f, INT16 errcode)
{ {
__DUP(s, s__len, CHAR); __DUP(s, s__len, CHAR);
Out_Ln(); Out_Ln();
@ -138,7 +138,7 @@ static void Files_Err (CHAR *s, LONGINT s__len, Files_File f, INT16 errcode)
__DEL(s); __DEL(s);
} }
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, ADDRESS dir__len, CHAR *name, ADDRESS name__len, CHAR *dest, ADDRESS dest__len)
{ {
INT16 i, j; INT16 i, j;
__DUP(dir, dir__len, CHAR); __DUP(dir, dir__len, CHAR);
@ -163,7 +163,7 @@ static void Files_MakeFileName (CHAR *dir, LONGINT dir__len, CHAR *name, LONGINT
__DEL(name); __DEL(name);
} }
static void Files_GetTempName (CHAR *finalName, LONGINT finalName__len, CHAR *name, LONGINT name__len) static void Files_GetTempName (CHAR *finalName, ADDRESS finalName__len, CHAR *name, ADDRESS name__len)
{ {
INT32 n, i, j; INT32 n, i, j;
__DUP(finalName, finalName__len, CHAR); __DUP(finalName, finalName__len, CHAR);
@ -316,7 +316,7 @@ INT32 Files_Length (Files_File f)
return f->len; return f->len;
} }
Files_File Files_New (CHAR *name, LONGINT name__len) Files_File Files_New (CHAR *name, ADDRESS name__len)
{ {
Files_File f = NIL; Files_File f = NIL;
__DUP(name, name__len, CHAR); __DUP(name, name__len, CHAR);
@ -332,7 +332,7 @@ Files_File Files_New (CHAR *name, LONGINT name__len)
return f; return f;
} }
static void Files_ScanPath (INT16 *pos, CHAR *dir, LONGINT dir__len) static void Files_ScanPath (INT16 *pos, CHAR *dir, ADDRESS dir__len)
{ {
INT16 i; INT16 i;
CHAR ch; CHAR ch;
@ -375,7 +375,7 @@ static void Files_ScanPath (INT16 *pos, CHAR *dir, LONGINT dir__len)
dir[i] = 0x00; dir[i] = 0x00;
} }
static BOOLEAN Files_HasDir (CHAR *name, LONGINT name__len) static BOOLEAN Files_HasDir (CHAR *name, ADDRESS name__len)
{ {
INT16 i; INT16 i;
CHAR ch; CHAR ch;
@ -415,7 +415,7 @@ static Files_File Files_CacheEntry (Platform_FileIdentity identity)
return NIL; return NIL;
} }
Files_File Files_Old (CHAR *name, LONGINT name__len) Files_File Files_Old (CHAR *name, ADDRESS name__len)
{ {
Files_File f = NIL; Files_File f = NIL;
INT32 fd; INT32 fd;
@ -618,7 +618,7 @@ void Files_Read (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x)
} }
} }
void Files_ReadBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, LONGINT x__len, INT32 n) void Files_ReadBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, ADDRESS x__len, INT32 n)
{ {
INT32 xpos, min, restInBuf, offset; INT32 xpos, min, restInBuf, offset;
Files_Buffer buf = NIL; Files_Buffer buf = NIL;
@ -683,7 +683,7 @@ void Files_Write (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE x)
(*r).res = 0; (*r).res = 0;
} }
void Files_WriteBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, LONGINT x__len, INT32 n) void Files_WriteBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, ADDRESS x__len, INT32 n)
{ {
INT32 xpos, min, restInBuf, offset; INT32 xpos, min, restInBuf, offset;
Files_Buffer buf = NIL; Files_Buffer buf = NIL;
@ -722,14 +722,14 @@ void Files_WriteBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, LONGINT
(*r).res = 0; (*r).res = 0;
} }
void Files_Delete (CHAR *name, LONGINT name__len, INT16 *res) void Files_Delete (CHAR *name, ADDRESS name__len, INT16 *res)
{ {
__DUP(name, name__len, CHAR); __DUP(name, name__len, CHAR);
*res = Platform_Unlink((void*)name, name__len); *res = Platform_Unlink((void*)name, name__len);
__DEL(name); __DEL(name);
} }
void Files_Rename (CHAR *old, LONGINT old__len, CHAR *new, LONGINT new__len, INT16 *res) void Files_Rename (CHAR *old, ADDRESS old__len, CHAR *new, ADDRESS new__len, INT16 *res)
{ {
INT32 fdold, fdnew, n; INT32 fdold, fdnew, n;
INT16 error, ignore; INT16 error, ignore;
@ -812,14 +812,14 @@ void Files_Register (Files_File f)
} }
} }
void Files_ChangeDirectory (CHAR *path, LONGINT path__len, INT16 *res) void Files_ChangeDirectory (CHAR *path, ADDRESS path__len, INT16 *res)
{ {
__DUP(path, path__len, CHAR); __DUP(path, path__len, CHAR);
*res = Platform_Chdir((void*)path, path__len); *res = Platform_Chdir((void*)path, path__len);
__DEL(path); __DEL(path);
} }
static void Files_FlipBytes (SYSTEM_BYTE *src, LONGINT src__len, SYSTEM_BYTE *dest, LONGINT dest__len) static void Files_FlipBytes (SYSTEM_BYTE *src, ADDRESS src__len, SYSTEM_BYTE *dest, ADDRESS dest__len)
{ {
INT32 i, j; INT32 i, j;
if (!Platform_LittleEndian) { if (!Platform_LittleEndian) {
@ -877,7 +877,7 @@ void Files_ReadLReal (Files_Rider *R, ADDRESS *R__typ, LONGREAL *x)
Files_FlipBytes((void*)b, 8, (void*)&*x, 8); Files_FlipBytes((void*)b, 8, (void*)&*x, 8);
} }
void Files_ReadString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, LONGINT x__len) void Files_ReadString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS x__len)
{ {
INT16 i; INT16 i;
CHAR ch; CHAR ch;
@ -889,7 +889,7 @@ void Files_ReadString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, LONGINT x__len)
} while (!(ch == 0x00)); } while (!(ch == 0x00));
} }
void Files_ReadLine (Files_Rider *R, ADDRESS *R__typ, CHAR *x, LONGINT x__len) void Files_ReadLine (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS x__len)
{ {
INT16 i; INT16 i;
i = 0; i = 0;
@ -906,7 +906,7 @@ void Files_ReadLine (Files_Rider *R, ADDRESS *R__typ, CHAR *x, LONGINT x__len)
x[i] = 0x00; x[i] = 0x00;
} }
void Files_ReadNum (Files_Rider *R, ADDRESS *R__typ, SYSTEM_BYTE *x, LONGINT x__len) void Files_ReadNum (Files_Rider *R, ADDRESS *R__typ, SYSTEM_BYTE *x, ADDRESS x__len)
{ {
INT8 s, b; INT8 s, b;
INT64 q; INT64 q;
@ -972,7 +972,7 @@ void Files_WriteLReal (Files_Rider *R, ADDRESS *R__typ, LONGREAL x)
Files_WriteBytes(&*R, R__typ, (void*)b, 8, 8); Files_WriteBytes(&*R, R__typ, (void*)b, 8, 8);
} }
void Files_WriteString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, LONGINT x__len) void Files_WriteString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS x__len)
{ {
INT16 i; INT16 i;
i = 0; i = 0;
@ -991,7 +991,7 @@ void Files_WriteNum (Files_Rider *R, ADDRESS *R__typ, INT64 x)
Files_Write(&*R, R__typ, (CHAR)__MASK(x, -128)); Files_Write(&*R, R__typ, (CHAR)__MASK(x, -128));
} }
void Files_GetName (Files_File f, CHAR *name, LONGINT name__len) void Files_GetName (Files_File f, CHAR *name, ADDRESS name__len)
{ {
__COPY(f->workName, name, name__len); __COPY(f->workName, name, name__len);
} }
@ -1009,7 +1009,7 @@ static void Files_Finalize (SYSTEM_PTR o)
} }
} }
void Files_SetSearchPath (CHAR *path, LONGINT path__len) void Files_SetSearchPath (CHAR *path, ADDRESS path__len)
{ {
__DUP(path, path__len, CHAR); __DUP(path, path__len, CHAR);
if (Strings_Length(path, path__len) != 0) { if (Strings_Length(path, path__len) != 0) {

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */
#ifndef Files__h #ifndef Files__h
#define Files__h #define Files__h
@ -30,41 +30,41 @@ import ADDRESS *Files_FileDesc__typ;
import ADDRESS *Files_Rider__typ; import ADDRESS *Files_Rider__typ;
import Files_File Files_Base (Files_Rider *r, ADDRESS *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, ADDRESS 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, ADDRESS name__len, INT16 *res);
import void Files_GetDate (Files_File f, INT32 *t, INT32 *d); import void Files_GetDate (Files_File f, INT32 *t, INT32 *d);
import void Files_GetName (Files_File f, CHAR *name, LONGINT name__len); import void Files_GetName (Files_File f, CHAR *name, ADDRESS 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, ADDRESS name__len);
import Files_File Files_Old (CHAR *name, LONGINT name__len); import Files_File Files_Old (CHAR *name, ADDRESS name__len);
import INT32 Files_Pos (Files_Rider *r, ADDRESS *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, ADDRESS *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, ADDRESS *R__typ, BOOLEAN *x); import void Files_ReadBool (Files_Rider *R, ADDRESS *R__typ, BOOLEAN *x);
import void Files_ReadBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, LONGINT x__len, INT32 n); import void Files_ReadBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, ADDRESS x__len, INT32 n);
import void Files_ReadInt (Files_Rider *R, ADDRESS *R__typ, INT16 *x); import void Files_ReadInt (Files_Rider *R, ADDRESS *R__typ, INT16 *x);
import void Files_ReadLInt (Files_Rider *R, ADDRESS *R__typ, INT32 *x); import void Files_ReadLInt (Files_Rider *R, ADDRESS *R__typ, INT32 *x);
import void Files_ReadLReal (Files_Rider *R, ADDRESS *R__typ, LONGREAL *x); import void Files_ReadLReal (Files_Rider *R, ADDRESS *R__typ, LONGREAL *x);
import void Files_ReadLine (Files_Rider *R, ADDRESS *R__typ, CHAR *x, LONGINT x__len); import void Files_ReadLine (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS x__len);
import void Files_ReadNum (Files_Rider *R, ADDRESS *R__typ, SYSTEM_BYTE *x, LONGINT x__len); import void Files_ReadNum (Files_Rider *R, ADDRESS *R__typ, SYSTEM_BYTE *x, ADDRESS x__len);
import void Files_ReadReal (Files_Rider *R, ADDRESS *R__typ, REAL *x); import void Files_ReadReal (Files_Rider *R, ADDRESS *R__typ, REAL *x);
import void Files_ReadSet (Files_Rider *R, ADDRESS *R__typ, UINT32 *x); import void Files_ReadSet (Files_Rider *R, ADDRESS *R__typ, UINT32 *x);
import void Files_ReadString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, LONGINT x__len); import void Files_ReadString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS 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, ADDRESS old__len, CHAR *new, ADDRESS new__len, INT16 *res);
import void Files_Set (Files_Rider *r, ADDRESS *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, ADDRESS path__len);
import void Files_Write (Files_Rider *r, ADDRESS *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, ADDRESS *R__typ, BOOLEAN x); import void Files_WriteBool (Files_Rider *R, ADDRESS *R__typ, BOOLEAN x);
import void Files_WriteBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, LONGINT x__len, INT32 n); import void Files_WriteBytes (Files_Rider *r, ADDRESS *r__typ, SYSTEM_BYTE *x, ADDRESS x__len, INT32 n);
import void Files_WriteInt (Files_Rider *R, ADDRESS *R__typ, INT16 x); import void Files_WriteInt (Files_Rider *R, ADDRESS *R__typ, INT16 x);
import void Files_WriteLInt (Files_Rider *R, ADDRESS *R__typ, INT32 x); import void Files_WriteLInt (Files_Rider *R, ADDRESS *R__typ, INT32 x);
import void Files_WriteLReal (Files_Rider *R, ADDRESS *R__typ, LONGREAL x); import void Files_WriteLReal (Files_Rider *R, ADDRESS *R__typ, LONGREAL x);
import void Files_WriteNum (Files_Rider *R, ADDRESS *R__typ, INT64 x); import void Files_WriteNum (Files_Rider *R, ADDRESS *R__typ, INT64 x);
import void Files_WriteReal (Files_Rider *R, ADDRESS *R__typ, REAL x); import void Files_WriteReal (Files_Rider *R, ADDRESS *R__typ, REAL x);
import void Files_WriteSet (Files_Rider *R, ADDRESS *R__typ, UINT32 x); import void Files_WriteSet (Files_Rider *R, ADDRESS *R__typ, UINT32 x);
import void Files_WriteString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, LONGINT x__len); import void Files_WriteString (Files_Rider *R, ADDRESS *R__typ, CHAR *x, ADDRESS x__len);
import void *Files__init(void); import void *Files__init(void);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. tsSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. tsSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -85,14 +85,14 @@ static void Heap_ExtendHeap (INT64 blksz);
export void Heap_FINALL (void); export void Heap_FINALL (void);
static void Heap_Finalize (void); static void Heap_Finalize (void);
export void Heap_GC (BOOLEAN markStack); export void Heap_GC (BOOLEAN markStack);
static void Heap_HeapSort (INT64 n, INT64 *a, LONGINT a__len); static void Heap_HeapSort (INT64 n, INT64 *a, ADDRESS a__len);
export void Heap_INCREF (Heap_Module m); export void Heap_INCREF (Heap_Module m);
export void Heap_InitHeap (void); export void Heap_InitHeap (void);
export void Heap_Lock (void); export void Heap_Lock (void);
static void Heap_Mark (INT64 q); static void Heap_Mark (INT64 q);
static void Heap_MarkCandidates (INT64 n, INT64 *cand, LONGINT cand__len); static void Heap_MarkCandidates (INT64 n, INT64 *cand, ADDRESS cand__len);
static void Heap_MarkP (SYSTEM_PTR p); static void Heap_MarkP (SYSTEM_PTR p);
static void Heap_MarkStack (INT64 n, INT64 *cand, LONGINT cand__len); static void Heap_MarkStack (INT64 n, INT64 *cand, ADDRESS cand__len);
export SYSTEM_PTR Heap_NEWBLK (INT64 size); export SYSTEM_PTR Heap_NEWBLK (INT64 size);
export SYSTEM_PTR Heap_NEWREC (INT64 tag); export SYSTEM_PTR Heap_NEWREC (INT64 tag);
static INT64 Heap_NewChunk (INT64 blksz); static INT64 Heap_NewChunk (INT64 blksz);
@ -101,7 +101,7 @@ export SYSTEM_PTR Heap_REGMOD (Heap_ModuleName name, Heap_EnumProc enumPtrs);
export void Heap_REGTYP (Heap_Module m, INT64 typ); export void Heap_REGTYP (Heap_Module m, INT64 typ);
export void Heap_RegisterFinalizer (SYSTEM_PTR obj, Heap_Finalizer finalize); export void Heap_RegisterFinalizer (SYSTEM_PTR obj, Heap_Finalizer finalize);
static void Heap_Scan (void); static void Heap_Scan (void);
static void Heap_Sift (INT64 l, INT64 r, INT64 *a, LONGINT a__len); static void Heap_Sift (INT64 l, INT64 r, INT64 *a, ADDRESS a__len);
export void Heap_Unlock (void); export void Heap_Unlock (void);
extern void *Heap__init(); extern void *Heap__init();
@ -445,7 +445,7 @@ static void Heap_Scan (void)
} }
} }
static void Heap_Sift (INT64 l, INT64 r, INT64 *a, LONGINT a__len) static void Heap_Sift (INT64 l, INT64 r, INT64 *a, ADDRESS a__len)
{ {
INT64 i, j, x; INT64 i, j, x;
j = l; j = l;
@ -464,7 +464,7 @@ static void Heap_Sift (INT64 l, INT64 r, INT64 *a, LONGINT a__len)
a[i] = x; a[i] = x;
} }
static void Heap_HeapSort (INT64 n, INT64 *a, LONGINT a__len) static void Heap_HeapSort (INT64 n, INT64 *a, ADDRESS a__len)
{ {
INT64 l, r, x; INT64 l, r, x;
l = __ASHR(n, 1); l = __ASHR(n, 1);
@ -482,7 +482,7 @@ static void Heap_HeapSort (INT64 n, INT64 *a, LONGINT a__len)
} }
} }
static void Heap_MarkCandidates (INT64 n, INT64 *cand, LONGINT cand__len) static void Heap_MarkCandidates (INT64 n, INT64 *cand, ADDRESS cand__len)
{ {
INT64 chnk, adr, tag, next, lim, lim1, i, ptr, size; INT64 chnk, adr, tag, next, lim, lim1, i, ptr, size;
chnk = Heap_heap; chnk = Heap_heap;
@ -571,7 +571,7 @@ void Heap_FINALL (void)
} }
} }
static void Heap_MarkStack (INT64 n, INT64 *cand, LONGINT cand__len) static void Heap_MarkStack (INT64 n, INT64 *cand, ADDRESS cand__len)
{ {
SYSTEM_PTR frame; SYSTEM_PTR frame;
INT64 inc, nofcand, sp, p, stack0; INT64 inc, nofcand, sp, p, stack0;

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. tsSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. tsSF */
#ifndef Heap__h #ifndef Heap__h
#define Heap__h #define Heap__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -47,21 +47,21 @@ export Modules_ModuleName Modules_imported, Modules_importing;
export ADDRESS *Modules_ModuleDesc__typ; export ADDRESS *Modules_ModuleDesc__typ;
export ADDRESS *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, ADDRESS a__len, CHAR *b, ADDRESS b__len);
export void Modules_AssertFail (INT32 code); export void Modules_AssertFail (INT32 code);
static void Modules_DisplayHaltCode (INT32 code); static void Modules_DisplayHaltCode (INT32 code);
export void Modules_Free (CHAR *name, LONGINT name__len, BOOLEAN all); export void Modules_Free (CHAR *name, ADDRESS name__len, BOOLEAN all);
export void Modules_Halt (INT32 code); export void Modules_Halt (INT32 code);
export Modules_Command Modules_ThisCommand (Modules_Module mod, CHAR *name, LONGINT name__len); export Modules_Command Modules_ThisCommand (Modules_Module mod, CHAR *name, ADDRESS name__len);
export Modules_Module Modules_ThisMod (CHAR *name, LONGINT name__len); export Modules_Module Modules_ThisMod (CHAR *name, ADDRESS name__len);
static void Modules_errch (CHAR c); static void Modules_errch (CHAR c);
static void Modules_errint (INT32 l); static void Modules_errint (INT32 l);
static void Modules_errstring (CHAR *s, LONGINT s__len); static void Modules_errstring (CHAR *s, ADDRESS s__len);
#define Modules_modules() (Modules_Module)Heap_modules #define Modules_modules() (Modules_Module)Heap_modules
#define Modules_setmodules(m) Heap_modules = m #define Modules_setmodules(m) Heap_modules = m
static void Modules_Append (CHAR *a, LONGINT a__len, CHAR *b, LONGINT b__len) static void Modules_Append (CHAR *a, ADDRESS a__len, CHAR *b, ADDRESS b__len)
{ {
INT16 i, j; INT16 i, j;
__DUP(b, b__len, CHAR); __DUP(b, b__len, CHAR);
@ -79,7 +79,7 @@ static void Modules_Append (CHAR *a, LONGINT a__len, CHAR *b, LONGINT b__len)
__DEL(b); __DEL(b);
} }
Modules_Module Modules_ThisMod (CHAR *name, LONGINT name__len) Modules_Module Modules_ThisMod (CHAR *name, ADDRESS name__len)
{ {
Modules_Module m = NIL; Modules_Module m = NIL;
CHAR bodyname[64]; CHAR bodyname[64];
@ -103,7 +103,7 @@ Modules_Module Modules_ThisMod (CHAR *name, LONGINT name__len)
return m; return m;
} }
Modules_Command Modules_ThisCommand (Modules_Module mod, CHAR *name, LONGINT name__len) Modules_Command Modules_ThisCommand (Modules_Module mod, CHAR *name, ADDRESS name__len)
{ {
Modules_Cmd c = NIL; Modules_Cmd c = NIL;
__DUP(name, name__len, CHAR); __DUP(name, name__len, CHAR);
@ -130,7 +130,7 @@ Modules_Command Modules_ThisCommand (Modules_Module mod, CHAR *name, LONGINT nam
__RETCHK; __RETCHK;
} }
void Modules_Free (CHAR *name, LONGINT name__len, BOOLEAN all) void Modules_Free (CHAR *name, ADDRESS name__len, BOOLEAN all)
{ {
Modules_Module m = NIL, p = NIL; Modules_Module m = NIL, p = NIL;
__DUP(name, name__len, CHAR); __DUP(name, name__len, CHAR);
@ -168,7 +168,7 @@ static void Modules_errch (CHAR c)
e = Platform_Write(1, (ADDRESS)&c, 1); e = Platform_Write(1, (ADDRESS)&c, 1);
} }
static void Modules_errstring (CHAR *s, LONGINT s__len) static void Modules_errstring (CHAR *s, ADDRESS s__len)
{ {
INT32 i; INT32 i;
__DUP(s, s__len, CHAR); __DUP(s, s__len, CHAR);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Modules__h #ifndef Modules__h
#define Modules__h #define Modules__h
@ -44,10 +44,10 @@ import ADDRESS *Modules_ModuleDesc__typ;
import ADDRESS *Modules_CmdDesc__typ; import ADDRESS *Modules_CmdDesc__typ;
import void Modules_AssertFail (INT32 code); import void Modules_AssertFail (INT32 code);
import void Modules_Free (CHAR *name, LONGINT name__len, BOOLEAN all); import void Modules_Free (CHAR *name, ADDRESS name__len, BOOLEAN all);
import void Modules_Halt (INT32 code); import void Modules_Halt (INT32 code);
import Modules_Command Modules_ThisCommand (Modules_Module mod, CHAR *name, LONGINT name__len); import Modules_Command Modules_ThisCommand (Modules_Module mod, CHAR *name, ADDRESS name__len);
import Modules_Module Modules_ThisMod (CHAR *name, LONGINT name__len); import Modules_Module Modules_ThisMod (CHAR *name, ADDRESS name__len);
import void *Modules__init(void); import void *Modules__init(void);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPB__h #ifndef OPB__h
#define OPB__h #define OPB__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -56,7 +56,7 @@ static void OPC_GenHeaderMsg (void);
export void OPC_Halt (INT32 n); export void OPC_Halt (INT32 n);
export void OPC_Ident (OPT_Object obj); export void OPC_Ident (OPT_Object obj);
static void OPC_IdentList (OPT_Object obj, INT16 vis); static void OPC_IdentList (OPT_Object obj, INT16 vis);
static void OPC_Include (CHAR *name, LONGINT name__len); static void OPC_Include (CHAR *name, ADDRESS name__len);
static void OPC_IncludeImports (OPT_Object obj, INT16 vis); static void OPC_IncludeImports (OPT_Object obj, INT16 vis);
export void OPC_Increment (BOOLEAN decrement); export void OPC_Increment (BOOLEAN decrement);
export void OPC_Indent (INT16 count); export void OPC_Indent (INT16 count);
@ -68,11 +68,11 @@ static void OPC_InitTProcs (OPT_Object typ, OPT_Object obj);
export void OPC_IntLiteral (INT64 n, INT32 size); export void OPC_IntLiteral (INT64 n, INT32 size);
export void OPC_Len (OPT_Object obj, OPT_Struct array, INT64 dim); export void OPC_Len (OPT_Object obj, OPT_Struct array, INT64 dim);
static void OPC_LenList (OPT_Object par, BOOLEAN ansiDefine, BOOLEAN showParamName); static void OPC_LenList (OPT_Object par, BOOLEAN ansiDefine, BOOLEAN showParamName);
static INT16 OPC_Length (CHAR *s, LONGINT s__len); static INT16 OPC_Length (CHAR *s, ADDRESS s__len);
export BOOLEAN OPC_NeedsRetval (OPT_Object proc); export BOOLEAN OPC_NeedsRetval (OPT_Object proc);
export INT32 OPC_NofPtrs (OPT_Struct typ); export INT32 OPC_NofPtrs (OPT_Struct typ);
static INT16 OPC_PerfectHash (CHAR *s, LONGINT s__len); static INT16 OPC_PerfectHash (CHAR *s, ADDRESS s__len);
static BOOLEAN OPC_Prefixed (OPT_ConstExt x, CHAR *y, LONGINT y__len); static BOOLEAN OPC_Prefixed (OPT_ConstExt x, CHAR *y, ADDRESS y__len);
static void OPC_ProcHeader (OPT_Object proc, BOOLEAN define); static void OPC_ProcHeader (OPT_Object proc, BOOLEAN define);
static void OPC_ProcPredefs (OPT_Object obj, INT8 vis); static void OPC_ProcPredefs (OPT_Object obj, INT8 vis);
static void OPC_PutBase (OPT_Struct typ); static void OPC_PutBase (OPT_Struct typ);
@ -80,8 +80,8 @@ static void OPC_PutPtrOffsets (OPT_Struct typ, INT32 adr, INT32 *cnt);
static void OPC_RegCmds (OPT_Object obj); static void OPC_RegCmds (OPT_Object obj);
export void OPC_SetInclude (BOOLEAN exclude); export void OPC_SetInclude (BOOLEAN exclude);
static void OPC_Stars (OPT_Struct typ, BOOLEAN *openClause); static void OPC_Stars (OPT_Struct typ, BOOLEAN *openClause);
static void OPC_Str1 (CHAR *s, LONGINT s__len, INT32 x); static void OPC_Str1 (CHAR *s, ADDRESS s__len, INT32 x);
static void OPC_StringLiteral (CHAR *s, LONGINT s__len, INT32 l); static void OPC_StringLiteral (CHAR *s, ADDRESS s__len, INT32 l);
export void OPC_TDescDecl (OPT_Struct typ); export void OPC_TDescDecl (OPT_Struct typ);
export void OPC_TypeDefs (OPT_Object obj, INT16 vis); export void OPC_TypeDefs (OPT_Object obj, INT16 vis);
export void OPC_TypeOf (OPT_Object ap); export void OPC_TypeOf (OPT_Object ap);
@ -137,7 +137,7 @@ void OPC_EndBlk0 (void)
OPM_Write('}'); OPM_Write('}');
} }
static void OPC_Str1 (CHAR *s, LONGINT s__len, INT32 x) static void OPC_Str1 (CHAR *s, ADDRESS s__len, INT32 x)
{ {
CHAR ch; CHAR ch;
INT16 i; INT16 i;
@ -156,7 +156,7 @@ static void OPC_Str1 (CHAR *s, LONGINT s__len, INT32 x)
__DEL(s); __DEL(s);
} }
static INT16 OPC_Length (CHAR *s, LONGINT s__len) static INT16 OPC_Length (CHAR *s, ADDRESS s__len)
{ {
INT16 i; INT16 i;
i = 0; i = 0;
@ -166,7 +166,7 @@ static INT16 OPC_Length (CHAR *s, LONGINT s__len)
return i; return i;
} }
static INT16 OPC_PerfectHash (CHAR *s, LONGINT s__len) static INT16 OPC_PerfectHash (CHAR *s, ADDRESS s__len)
{ {
INT16 i, h; INT16 i, h;
i = 0; i = 0;
@ -364,7 +364,7 @@ static void OPC_DeclareBase (OPT_Object dcl)
OPM_WriteString((CHAR*)"struct ", 8); OPM_WriteString((CHAR*)"struct ", 8);
OPC_BegBlk(); OPC_BegBlk();
OPC_BegStat(); OPC_BegStat();
OPC_Str1((CHAR*)"LONGINT len[#]", 15, nofdims); OPC_Str1((CHAR*)"ADDRESS len[#]", 15, nofdims);
OPC_EndStat(); OPC_EndStat();
OPC_BegStat(); OPC_BegStat();
__NEW(obj, OPT_ObjDesc); __NEW(obj, OPT_ObjDesc);
@ -511,7 +511,7 @@ static void OPC_LenList (OPT_Object par, BOOLEAN ansiDefine, BOOLEAN showParamNa
typ = par->typ->BaseTyp; typ = par->typ->BaseTyp;
while (typ->comp == 3) { while (typ->comp == 3) {
if (ansiDefine) { if (ansiDefine) {
OPM_WriteString((CHAR*)", LONGINT ", 11); OPM_WriteString((CHAR*)", ADDRESS ", 11);
} else { } else {
OPM_WriteString((CHAR*)", ", 3); OPM_WriteString((CHAR*)", ", 3);
} }
@ -720,7 +720,7 @@ static void OPC_DefineType (OPT_Struct str)
} }
} }
static BOOLEAN OPC_Prefixed (OPT_ConstExt x, CHAR *y, LONGINT y__len) static BOOLEAN OPC_Prefixed (OPT_ConstExt x, CHAR *y, ADDRESS y__len)
{ {
INT16 i; INT16 i;
__DUP(y, y__len, CHAR); __DUP(y, y__len, CHAR);
@ -969,7 +969,7 @@ static void OPC_IdentList (OPT_Object obj, INT16 vis)
OPC_EndStat(); OPC_EndStat();
OPC_BegStat(); OPC_BegStat();
base = OPT_linttyp; base = OPT_linttyp;
OPM_WriteString((CHAR*)"LONGINT ", 9); OPM_WriteString((CHAR*)"ADDRESS ", 9);
OPC_LenList(obj, 0, 1); OPC_LenList(obj, 0, 1);
} else if ((obj->mode == 2 && obj->typ->comp == 4)) { } else if ((obj->mode == 2 && obj->typ->comp == 4)) {
OPC_EndStat(); OPC_EndStat();
@ -1008,7 +1008,7 @@ static void OPC_AnsiParamList (OPT_Object obj, BOOLEAN showParamNames)
__COPY(name, obj->name, 256); __COPY(name, obj->name, 256);
} }
if (obj->typ->comp == 3) { if (obj->typ->comp == 3) {
OPM_WriteString((CHAR*)", LONGINT ", 11); OPM_WriteString((CHAR*)", ADDRESS ", 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*)", ADDRESS *", 12); OPM_WriteString((CHAR*)", ADDRESS *", 12);
@ -1062,7 +1062,7 @@ static void OPC_ProcPredefs (OPT_Object obj, INT8 vis)
} }
} }
static void OPC_Include (CHAR *name, LONGINT name__len) static void OPC_Include (CHAR *name, ADDRESS name__len)
{ {
__DUP(name, name__len, CHAR); __DUP(name, name__len, CHAR);
OPM_WriteString((CHAR*)"#include ", 10); OPM_WriteString((CHAR*)"#include ", 10);
@ -1744,7 +1744,7 @@ static void OPC_CharacterLiteral (INT64 c)
} }
} }
static void OPC_StringLiteral (CHAR *s, LONGINT s__len, INT32 l) static void OPC_StringLiteral (CHAR *s, ADDRESS s__len, INT32 l)
{ {
INT32 i; INT32 i;
INT16 c; INT16 c;
@ -1912,9 +1912,9 @@ static struct InitKeywords__46 {
struct InitKeywords__46 *lnk; struct InitKeywords__46 *lnk;
} *InitKeywords__46_s; } *InitKeywords__46_s;
static void Enter__47 (CHAR *s, LONGINT s__len); static void Enter__47 (CHAR *s, ADDRESS s__len);
static void Enter__47 (CHAR *s, LONGINT s__len) static void Enter__47 (CHAR *s, ADDRESS s__len)
{ {
INT16 h; INT16 h;
__DUP(s, s__len, CHAR); __DUP(s, s__len, CHAR);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPC__h #ifndef OPC__h
#define OPC__h #define OPC__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -53,26 +53,26 @@ export void OPM_FPrintLReal (INT32 *fp, LONGREAL val);
export void OPM_FPrintReal (INT32 *fp, REAL val); export void OPM_FPrintReal (INT32 *fp, REAL val);
export void OPM_FPrintSet (INT32 *fp, UINT64 val); export void OPM_FPrintSet (INT32 *fp, UINT64 val);
static void OPM_FindLine (Files_File f, Files_Rider *r, ADDRESS *r__typ, INT64 pos); static void OPM_FindLine (Files_File f, Files_Rider *r, ADDRESS *r__typ, INT64 pos);
static void OPM_FingerprintBytes (INT32 *fp, SYSTEM_BYTE *bytes, LONGINT bytes__len); static void OPM_FingerprintBytes (INT32 *fp, SYSTEM_BYTE *bytes, ADDRESS bytes__len);
export void OPM_Get (CHAR *ch); export void OPM_Get (CHAR *ch);
export void OPM_Init (BOOLEAN *done, CHAR *mname, LONGINT mname__len); export void OPM_Init (BOOLEAN *done, CHAR *mname, ADDRESS mname__len);
export void OPM_InitOptions (void); export void OPM_InitOptions (void);
export INT16 OPM_Integer (INT64 n); export INT16 OPM_Integer (INT64 n);
static void OPM_LogErrMsg (INT16 n); static void OPM_LogErrMsg (INT16 n);
export void OPM_LogVT100 (CHAR *vt100code, LONGINT vt100code__len); export void OPM_LogVT100 (CHAR *vt100code, ADDRESS vt100code__len);
export void OPM_LogW (CHAR ch); export void OPM_LogW (CHAR ch);
export void OPM_LogWLn (void); export void OPM_LogWLn (void);
export void OPM_LogWNum (INT64 i, INT64 len); export void OPM_LogWNum (INT64 i, INT64 len);
export void OPM_LogWStr (CHAR *s, LONGINT s__len); export void OPM_LogWStr (CHAR *s, ADDRESS s__len);
export INT32 OPM_Longint (INT64 n); export INT32 OPM_Longint (INT64 n);
static void OPM_MakeFileName (CHAR *name, LONGINT name__len, CHAR *FName, LONGINT FName__len, CHAR *ext, LONGINT ext__len); static void OPM_MakeFileName (CHAR *name, ADDRESS name__len, CHAR *FName, ADDRESS FName__len, CHAR *ext, ADDRESS ext__len);
export void OPM_Mark (INT16 n, INT32 pos); export void OPM_Mark (INT16 n, INT32 pos);
export void OPM_NewSym (CHAR *modName, LONGINT modName__len); export void OPM_NewSym (CHAR *modName, ADDRESS modName__len);
export void OPM_OldSym (CHAR *modName, LONGINT modName__len, BOOLEAN *done); export void OPM_OldSym (CHAR *modName, ADDRESS modName__len, BOOLEAN *done);
export void OPM_OpenFiles (CHAR *moduleName, LONGINT moduleName__len); export void OPM_OpenFiles (CHAR *moduleName, ADDRESS moduleName__len);
export BOOLEAN OPM_OpenPar (void); export BOOLEAN OPM_OpenPar (void);
export void OPM_RegisterNewSym (void); export void OPM_RegisterNewSym (void);
static void OPM_ScanOptions (CHAR *s, LONGINT s__len); static void OPM_ScanOptions (CHAR *s, ADDRESS s__len);
static void OPM_ShowLine (INT64 pos); static void OPM_ShowLine (INT64 pos);
export INT64 OPM_SignedMaximum (INT32 bytecount); export INT64 OPM_SignedMaximum (INT32 bytecount);
export INT64 OPM_SignedMinimum (INT32 bytecount); export INT64 OPM_SignedMinimum (INT32 bytecount);
@ -93,8 +93,8 @@ export void OPM_WriteHex (INT64 i);
export void OPM_WriteInt (INT64 i); export void OPM_WriteInt (INT64 i);
export void OPM_WriteLn (void); export void OPM_WriteLn (void);
export void OPM_WriteReal (LONGREAL r, CHAR suffx); export void OPM_WriteReal (LONGREAL r, CHAR suffx);
export void OPM_WriteString (CHAR *s, LONGINT s__len); export void OPM_WriteString (CHAR *s, ADDRESS s__len);
export void OPM_WriteStringVar (CHAR *s, LONGINT s__len); export void OPM_WriteStringVar (CHAR *s, ADDRESS s__len);
export BOOLEAN OPM_eofSF (void); export BOOLEAN OPM_eofSF (void);
export void OPM_err (INT16 n); export void OPM_err (INT16 n);
@ -105,7 +105,7 @@ void OPM_LogW (CHAR ch)
Out_Char(ch); Out_Char(ch);
} }
void OPM_LogWStr (CHAR *s, LONGINT s__len) void OPM_LogWStr (CHAR *s, ADDRESS s__len)
{ {
__DUP(s, s__len, CHAR); __DUP(s, s__len, CHAR);
Out_String(s, s__len); Out_String(s, s__len);
@ -122,7 +122,7 @@ void OPM_LogWLn (void)
Out_Ln(); Out_Ln();
} }
void OPM_LogVT100 (CHAR *vt100code, LONGINT vt100code__len) void OPM_LogVT100 (CHAR *vt100code, ADDRESS vt100code__len)
{ {
__DUP(vt100code, vt100code__len, CHAR); __DUP(vt100code, vt100code__len, CHAR);
if ((Out_IsConsole && !__IN(16, OPM_Options, 32))) { if ((Out_IsConsole && !__IN(16, OPM_Options, 32))) {
@ -154,7 +154,7 @@ INT16 OPM_Integer (INT64 n)
return __VAL(INT16, n); return __VAL(INT16, n);
} }
static void OPM_ScanOptions (CHAR *s, LONGINT s__len) static void OPM_ScanOptions (CHAR *s, ADDRESS s__len)
{ {
INT16 i; INT16 i;
__DUP(s, s__len, CHAR); __DUP(s, s__len, CHAR);
@ -465,7 +465,7 @@ void OPM_InitOptions (void)
Files_SetSearchPath(searchpath, 1024); Files_SetSearchPath(searchpath, 1024);
} }
void OPM_Init (BOOLEAN *done, CHAR *mname, LONGINT mname__len) void OPM_Init (BOOLEAN *done, CHAR *mname, ADDRESS mname__len)
{ {
Texts_Text T = NIL; Texts_Text T = NIL;
INT32 beg, end, time; INT32 beg, end, time;
@ -514,7 +514,7 @@ void OPM_Get (CHAR *ch)
} }
} }
static void OPM_MakeFileName (CHAR *name, LONGINT name__len, CHAR *FName, LONGINT FName__len, CHAR *ext, LONGINT ext__len) static void OPM_MakeFileName (CHAR *name, ADDRESS name__len, CHAR *FName, ADDRESS FName__len, CHAR *ext, ADDRESS ext__len)
{ {
INT16 i, j; INT16 i, j;
CHAR ch; CHAR ch;
@ -700,7 +700,7 @@ void OPM_err (INT16 n)
OPM_Mark(n, OPM_errpos); OPM_Mark(n, OPM_errpos);
} }
static void OPM_FingerprintBytes (INT32 *fp, SYSTEM_BYTE *bytes, LONGINT bytes__len) static void OPM_FingerprintBytes (INT32 *fp, SYSTEM_BYTE *bytes, ADDRESS bytes__len)
{ {
INT16 i; INT16 i;
INT32 l; INT32 l;
@ -772,7 +772,7 @@ void OPM_CloseOldSym (void)
Files_Close(Files_Base(&OPM_oldSF, Files_Rider__typ)); Files_Close(Files_Base(&OPM_oldSF, Files_Rider__typ));
} }
void OPM_OldSym (CHAR *modName, LONGINT modName__len, BOOLEAN *done) void OPM_OldSym (CHAR *modName, ADDRESS modName__len, BOOLEAN *done)
{ {
CHAR tag, ver; CHAR tag, ver;
OPM_FileName fileName; OPM_FileName fileName;
@ -832,7 +832,7 @@ void OPM_DeleteNewSym (void)
{ {
} }
void OPM_NewSym (CHAR *modName, LONGINT modName__len) void OPM_NewSym (CHAR *modName, ADDRESS modName__len)
{ {
OPM_FileName fileName; OPM_FileName fileName;
OPM_MakeFileName((void*)modName, modName__len, (void*)fileName, 32, (CHAR*)".sym", 5); OPM_MakeFileName((void*)modName, modName__len, (void*)fileName, 32, (CHAR*)".sym", 5);
@ -851,7 +851,7 @@ void OPM_Write (CHAR ch)
Files_Write(&OPM_R[__X(OPM_currFile, 3)], Files_Rider__typ, ch); Files_Write(&OPM_R[__X(OPM_currFile, 3)], Files_Rider__typ, ch);
} }
void OPM_WriteString (CHAR *s, LONGINT s__len) void OPM_WriteString (CHAR *s, ADDRESS s__len)
{ {
INT16 i; INT16 i;
i = 0; i = 0;
@ -861,7 +861,7 @@ void OPM_WriteString (CHAR *s, LONGINT s__len)
Files_WriteBytes(&OPM_R[__X(OPM_currFile, 3)], Files_Rider__typ, (void*)s, s__len * 1, i); Files_WriteBytes(&OPM_R[__X(OPM_currFile, 3)], Files_Rider__typ, (void*)s, s__len * 1, i);
} }
void OPM_WriteStringVar (CHAR *s, LONGINT s__len) void OPM_WriteStringVar (CHAR *s, ADDRESS s__len)
{ {
INT16 i; INT16 i;
i = 0; i = 0;
@ -986,7 +986,7 @@ static void OPM_Append (Files_Rider *R, ADDRESS *R__typ, Files_File F)
} }
} }
void OPM_OpenFiles (CHAR *moduleName, LONGINT moduleName__len) void OPM_OpenFiles (CHAR *moduleName, ADDRESS moduleName__len)
{ {
CHAR FName[32]; CHAR FName[32];
__COPY(moduleName, OPM_modName, 32); __COPY(moduleName, OPM_modName, 32);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPM__h #ifndef OPM__h
#define OPM__h #define OPM__h
@ -28,19 +28,19 @@ import void OPM_FPrintLReal (INT32 *fp, LONGREAL val);
import void OPM_FPrintReal (INT32 *fp, REAL val); import void OPM_FPrintReal (INT32 *fp, REAL val);
import void OPM_FPrintSet (INT32 *fp, UINT64 val); import void OPM_FPrintSet (INT32 *fp, UINT64 val);
import void OPM_Get (CHAR *ch); import void OPM_Get (CHAR *ch);
import void OPM_Init (BOOLEAN *done, CHAR *mname, LONGINT mname__len); import void OPM_Init (BOOLEAN *done, CHAR *mname, ADDRESS mname__len);
import void OPM_InitOptions (void); import void OPM_InitOptions (void);
import INT16 OPM_Integer (INT64 n); import INT16 OPM_Integer (INT64 n);
import void OPM_LogVT100 (CHAR *vt100code, LONGINT vt100code__len); import void OPM_LogVT100 (CHAR *vt100code, ADDRESS vt100code__len);
import void OPM_LogW (CHAR ch); import void OPM_LogW (CHAR ch);
import void OPM_LogWLn (void); import void OPM_LogWLn (void);
import void OPM_LogWNum (INT64 i, INT64 len); import void OPM_LogWNum (INT64 i, INT64 len);
import void OPM_LogWStr (CHAR *s, LONGINT s__len); import void OPM_LogWStr (CHAR *s, ADDRESS s__len);
import INT32 OPM_Longint (INT64 n); import INT32 OPM_Longint (INT64 n);
import void OPM_Mark (INT16 n, INT32 pos); import void OPM_Mark (INT16 n, INT32 pos);
import void OPM_NewSym (CHAR *modName, LONGINT modName__len); import void OPM_NewSym (CHAR *modName, ADDRESS modName__len);
import void OPM_OldSym (CHAR *modName, LONGINT modName__len, BOOLEAN *done); import void OPM_OldSym (CHAR *modName, ADDRESS modName__len, BOOLEAN *done);
import void OPM_OpenFiles (CHAR *moduleName, LONGINT moduleName__len); import void OPM_OpenFiles (CHAR *moduleName, ADDRESS moduleName__len);
import BOOLEAN OPM_OpenPar (void); import BOOLEAN OPM_OpenPar (void);
import void OPM_RegisterNewSym (void); import void OPM_RegisterNewSym (void);
import INT64 OPM_SignedMaximum (INT32 bytecount); import INT64 OPM_SignedMaximum (INT32 bytecount);
@ -61,8 +61,8 @@ import void OPM_WriteHex (INT64 i);
import void OPM_WriteInt (INT64 i); import void OPM_WriteInt (INT64 i);
import void OPM_WriteLn (void); import void OPM_WriteLn (void);
import void OPM_WriteReal (LONGREAL r, CHAR suffx); import void OPM_WriteReal (LONGREAL r, CHAR suffx);
import void OPM_WriteString (CHAR *s, LONGINT s__len); import void OPM_WriteString (CHAR *s, ADDRESS s__len);
import void OPM_WriteStringVar (CHAR *s, LONGINT s__len); import void OPM_WriteStringVar (CHAR *s, ADDRESS s__len);
import BOOLEAN OPM_eofSF (void); import BOOLEAN OPM_eofSF (void);
import void OPM_err (INT16 n); import void OPM_err (INT16 n);
import void *OPM__init(void); import void *OPM__init(void);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#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/11/24]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */
#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/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -120,7 +120,7 @@ static void OPT_EnterTyp (OPS_Name name, INT8 form, INT16 size, OPT_Struct *res)
static void OPT_EnterTypeAlias (OPS_Name name, OPT_Object *res); static void OPT_EnterTypeAlias (OPS_Name name, OPT_Object *res);
export void OPT_Export (BOOLEAN *ext, BOOLEAN *new); export void OPT_Export (BOOLEAN *ext, BOOLEAN *new);
export void OPT_FPrintErr (OPT_Object obj, INT16 errcode); export void OPT_FPrintErr (OPT_Object obj, INT16 errcode);
static void OPT_FPrintName (INT32 *fp, CHAR *name, LONGINT name__len); static void OPT_FPrintName (INT32 *fp, CHAR *name, ADDRESS name__len);
export void OPT_FPrintObj (OPT_Object obj); export void OPT_FPrintObj (OPT_Object obj);
static void OPT_FPrintSign (INT32 *fp, OPT_Struct result, OPT_Object par); static void OPT_FPrintSign (INT32 *fp, OPT_Struct result, OPT_Object par);
export void OPT_FPrintStr (OPT_Struct typ); export void OPT_FPrintStr (OPT_Struct typ);
@ -132,7 +132,7 @@ export void OPT_Import (OPS_Name aliasName, OPS_Name name, BOOLEAN *done);
static void OPT_InConstant (INT32 f, OPT_Const conval); static void OPT_InConstant (INT32 f, OPT_Const conval);
static OPT_Object OPT_InFld (void); static OPT_Object OPT_InFld (void);
static void OPT_InMod (INT8 *mno); static void OPT_InMod (INT8 *mno);
static void OPT_InName (CHAR *name, LONGINT name__len); static void OPT_InName (CHAR *name, ADDRESS name__len);
static OPT_Object OPT_InObj (INT8 mno); static OPT_Object OPT_InObj (INT8 mno);
static void OPT_InSign (INT8 mno, OPT_Struct *res, OPT_Object *par); static void OPT_InSign (INT8 mno, OPT_Struct *res, OPT_Object *par);
static void OPT_InStruct (OPT_Struct *typ); static void OPT_InStruct (OPT_Struct *typ);
@ -155,7 +155,7 @@ static void OPT_OutConstant (OPT_Object obj);
static void OPT_OutFlds (OPT_Object fld, INT32 adr, BOOLEAN visible); static void OPT_OutFlds (OPT_Object fld, INT32 adr, BOOLEAN visible);
static void OPT_OutHdFld (OPT_Struct typ, OPT_Object fld, INT32 adr); static void OPT_OutHdFld (OPT_Struct typ, OPT_Object fld, INT32 adr);
static void OPT_OutMod (INT16 mno); static void OPT_OutMod (INT16 mno);
static void OPT_OutName (CHAR *name, LONGINT name__len); static void OPT_OutName (CHAR *name, ADDRESS name__len);
static void OPT_OutObj (OPT_Object obj); static void OPT_OutObj (OPT_Object obj);
static void OPT_OutSign (OPT_Struct result, OPT_Object par); static void OPT_OutSign (OPT_Struct result, OPT_Object par);
static void OPT_OutStr (OPT_Struct typ); static void OPT_OutStr (OPT_Struct typ);
@ -576,7 +576,7 @@ void OPT_Insert (OPS_Name name, OPT_Object *obj)
*obj = ob1; *obj = ob1;
} }
static void OPT_FPrintName (INT32 *fp, CHAR *name, LONGINT name__len) static void OPT_FPrintName (INT32 *fp, CHAR *name, ADDRESS name__len)
{ {
INT16 i; INT16 i;
CHAR ch; CHAR ch;
@ -957,7 +957,7 @@ void OPT_InsertImport (OPT_Object obj, OPT_Object *root, OPT_Object *old)
} }
} }
static void OPT_InName (CHAR *name, LONGINT name__len) static void OPT_InName (CHAR *name, ADDRESS name__len)
{ {
INT16 i; INT16 i;
CHAR ch; CHAR ch;
@ -1483,7 +1483,7 @@ void OPT_Import (OPS_Name aliasName, OPS_Name name, BOOLEAN *done)
} }
} }
static void OPT_OutName (CHAR *name, LONGINT name__len) static void OPT_OutName (CHAR *name, ADDRESS name__len)
{ {
INT16 i; INT16 i;
CHAR ch; CHAR ch;

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPT__h #ifndef OPT__h
#define OPT__h #define OPT__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPV__h #ifndef OPV__h
#define OPV__h #define OPV__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -17,16 +17,16 @@ static INT16 Out_in;
export void Out_Char (CHAR ch); export void Out_Char (CHAR ch);
export void Out_Flush (void); export void Out_Flush (void);
export void Out_Int (INT64 x, INT64 n); export void Out_Int (INT64 x, INT64 n);
static INT32 Out_Length (CHAR *s, LONGINT s__len); static INT32 Out_Length (CHAR *s, ADDRESS s__len);
export void Out_Ln (void); export void Out_Ln (void);
export void Out_LongReal (LONGREAL x, INT16 n); export void Out_LongReal (LONGREAL x, INT16 n);
export void Out_Open (void); export void Out_Open (void);
export void Out_Real (REAL x, INT16 n); export void Out_Real (REAL x, INT16 n);
static void Out_RealP (LONGREAL x, INT16 n, BOOLEAN long_); static void Out_RealP (LONGREAL x, INT16 n, BOOLEAN long_);
export void Out_String (CHAR *str, LONGINT str__len); export void Out_String (CHAR *str, ADDRESS str__len);
export LONGREAL Out_Ten (INT16 e); export LONGREAL Out_Ten (INT16 e);
static void Out_digit (INT64 n, CHAR *s, LONGINT s__len, INT16 *i); static void Out_digit (INT64 n, CHAR *s, ADDRESS s__len, INT16 *i);
static void Out_prepend (CHAR *t, LONGINT t__len, CHAR *s, LONGINT s__len, INT16 *i); static void Out_prepend (CHAR *t, ADDRESS t__len, CHAR *s, ADDRESS s__len, INT16 *i);
#define Out_Entier64(x) (INT64)(x) #define Out_Entier64(x) (INT64)(x)
@ -55,7 +55,7 @@ void Out_Char (CHAR ch)
} }
} }
static INT32 Out_Length (CHAR *s, LONGINT s__len) static INT32 Out_Length (CHAR *s, ADDRESS s__len)
{ {
INT32 l; INT32 l;
l = 0; l = 0;
@ -65,7 +65,7 @@ static INT32 Out_Length (CHAR *s, LONGINT s__len)
return l; return l;
} }
void Out_String (CHAR *str, LONGINT str__len) void Out_String (CHAR *str, ADDRESS str__len)
{ {
INT32 l; INT32 l;
INT16 error; INT16 error;
@ -125,13 +125,13 @@ void Out_Ln (void)
Out_Flush(); Out_Flush();
} }
static void Out_digit (INT64 n, CHAR *s, LONGINT s__len, INT16 *i) static void Out_digit (INT64 n, CHAR *s, ADDRESS s__len, INT16 *i)
{ {
*i -= 1; *i -= 1;
s[__X(*i, s__len)] = (CHAR)(__MOD(n, 10) + 48); s[__X(*i, s__len)] = (CHAR)(__MOD(n, 10) + 48);
} }
static void Out_prepend (CHAR *t, LONGINT t__len, CHAR *s, LONGINT s__len, INT16 *i) static void Out_prepend (CHAR *t, ADDRESS t__len, CHAR *s, ADDRESS s__len, INT16 *i)
{ {
INT16 j; INT16 j;
INT32 l; INT32 l;

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Out__h #ifndef Out__h
#define Out__h #define Out__h
@ -16,7 +16,7 @@ import void Out_Ln (void);
import void Out_LongReal (LONGREAL x, INT16 n); import void Out_LongReal (LONGREAL x, INT16 n);
import void Out_Open (void); import void Out_Open (void);
import void Out_Real (REAL x, INT16 n); import void Out_Real (REAL x, INT16 n);
import void Out_String (CHAR *str, LONGINT str__len); import void Out_String (CHAR *str, ADDRESS str__len);
import LONGREAL Out_Ten (INT16 e); import LONGREAL Out_Ten (INT16 e);
import void *Out__init(void); import void *Out__init(void);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */ /* voc 2.00 [2016/11/25]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8 #define SHORTINT INT8
#define INTEGER INT16 #define INTEGER INT16
@ -45,35 +45,35 @@ export CHAR Platform_NL[3];
export ADDRESS *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, ADDRESS s__len);
export INT16 Platform_Chdir (CHAR *n, LONGINT n__len); export INT16 Platform_Chdir (CHAR *n, ADDRESS n__len);
export INT16 Platform_Close (INT32 h); export INT16 Platform_Close (INT32 h);
export BOOLEAN Platform_ConnectionFailed (INT16 e); export BOOLEAN Platform_ConnectionFailed (INT16 e);
export void Platform_Delay (INT32 ms); export void Platform_Delay (INT32 ms);
export BOOLEAN Platform_DifferentFilesystems (INT16 e); export BOOLEAN Platform_DifferentFilesystems (INT16 e);
export INT16 Platform_Error (void); export INT16 Platform_Error (void);
export void Platform_Exit (INT32 code); export void Platform_Exit (INT32 code);
export void Platform_GetArg (INT16 n, CHAR *val, LONGINT val__len); export void Platform_GetArg (INT16 n, CHAR *val, ADDRESS val__len);
export void Platform_GetClock (INT32 *t, INT32 *d); export void Platform_GetClock (INT32 *t, INT32 *d);
export void Platform_GetEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val__len); export void Platform_GetEnv (CHAR *var, ADDRESS var__len, CHAR *val, ADDRESS val__len);
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 INT16 Platform_Identify (INT32 h, Platform_FileIdentity *identity, ADDRESS *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, ADDRESS *identity__typ); export INT16 Platform_IdentifyByName (CHAR *n, ADDRESS n__len, Platform_FileIdentity *identity, ADDRESS *identity__typ);
export BOOLEAN Platform_Inaccessible (INT16 e); export BOOLEAN Platform_Inaccessible (INT16 e);
export void Platform_Init (INT32 argc, INT64 argvadr); export void Platform_Init (INT32 argc, INT64 argvadr);
export BOOLEAN Platform_Interrupted (INT16 e); export BOOLEAN Platform_Interrupted (INT16 e);
export BOOLEAN Platform_IsConsole (INT32 h); export BOOLEAN Platform_IsConsole (INT32 h);
export void Platform_MTimeAsClock (Platform_FileIdentity i, INT32 *t, INT32 *d); export void Platform_MTimeAsClock (Platform_FileIdentity i, INT32 *t, INT32 *d);
export INT16 Platform_New (CHAR *n, LONGINT n__len, INT32 *h); export INT16 Platform_New (CHAR *n, ADDRESS n__len, INT32 *h);
export BOOLEAN Platform_NoSuchDirectory (INT16 e); export BOOLEAN Platform_NoSuchDirectory (INT16 e);
export INT64 Platform_OSAllocate (INT64 size); export INT64 Platform_OSAllocate (INT64 size);
export void Platform_OSFree (INT64 address); export void Platform_OSFree (INT64 address);
export INT16 Platform_OldRO (CHAR *n, LONGINT n__len, INT32 *h); export INT16 Platform_OldRO (CHAR *n, ADDRESS n__len, INT32 *h);
export INT16 Platform_OldRW (CHAR *n, LONGINT n__len, INT32 *h); export INT16 Platform_OldRW (CHAR *n, ADDRESS n__len, INT32 *h);
export INT16 Platform_Read (INT32 h, INT64 p, INT32 l, INT32 *n); export INT16 Platform_Read (INT32 h, INT64 p, INT32 l, INT32 *n);
export INT16 Platform_ReadBuf (INT32 h, SYSTEM_BYTE *b, LONGINT b__len, INT32 *n); export INT16 Platform_ReadBuf (INT32 h, SYSTEM_BYTE *b, ADDRESS b__len, INT32 *n);
export INT16 Platform_Rename (CHAR *o, LONGINT o__len, CHAR *n, LONGINT n__len); export INT16 Platform_Rename (CHAR *o, ADDRESS o__len, CHAR *n, ADDRESS 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);
export INT16 Platform_Seek (INT32 h, INT32 offset, INT16 whence); export INT16 Platform_Seek (INT32 h, INT32 offset, INT16 whence);
@ -83,16 +83,16 @@ export void Platform_SetMTime (Platform_FileIdentity *target, ADDRESS *target__t
export void Platform_SetQuitHandler (Platform_SignalHandler handler); export void Platform_SetQuitHandler (Platform_SignalHandler handler);
export INT16 Platform_Size (INT32 h, INT32 *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, ADDRESS cmd__len);
static void Platform_TestLittleEndian (void); static void Platform_TestLittleEndian (void);
export INT32 Platform_Time (void); export INT32 Platform_Time (void);
export BOOLEAN Platform_TimedOut (INT16 e); export BOOLEAN Platform_TimedOut (INT16 e);
export BOOLEAN Platform_TooManyFiles (INT16 e); export BOOLEAN Platform_TooManyFiles (INT16 e);
export INT16 Platform_Truncate (INT32 h, INT32 l); export INT16 Platform_Truncate (INT32 h, INT32 l);
export INT16 Platform_Unlink (CHAR *n, LONGINT n__len); export INT16 Platform_Unlink (CHAR *n, ADDRESS n__len);
export INT16 Platform_Write (INT32 h, INT64 p, INT32 l); export INT16 Platform_Write (INT32 h, INT64 p, INT32 l);
static void Platform_YMDHMStoClock (INT32 ye, INT32 mo, INT32 da, INT32 ho, INT32 mi, INT32 se, INT32 *t, INT32 *d); static void Platform_YMDHMStoClock (INT32 ye, INT32 mo, INT32 da, INT32 ho, INT32 mi, INT32 se, INT32 *t, INT32 *d);
export BOOLEAN Platform_getEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val__len); export BOOLEAN Platform_getEnv (CHAR *var, ADDRESS var__len, CHAR *val, ADDRESS val__len);
#include <errno.h> #include <errno.h>
#include <errno.h> #include <errno.h>
@ -223,7 +223,7 @@ void Platform_Init (INT32 argc, INT64 argvadr)
Platform_HeapInitHeap(); Platform_HeapInitHeap();
} }
BOOLEAN Platform_getEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val__len) BOOLEAN Platform_getEnv (CHAR *var, ADDRESS var__len, CHAR *val, ADDRESS val__len)
{ {
Platform_EnvPtr p = NIL; Platform_EnvPtr p = NIL;
__DUP(var, var__len, CHAR); __DUP(var, var__len, CHAR);
@ -235,7 +235,7 @@ BOOLEAN Platform_getEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val__le
return p != NIL; return p != NIL;
} }
void Platform_GetEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val__len) void Platform_GetEnv (CHAR *var, ADDRESS var__len, CHAR *val, ADDRESS val__len)
{ {
__DUP(var, var__len, CHAR); __DUP(var, var__len, CHAR);
if (!Platform_getEnv(var, var__len, (void*)val, val__len)) { if (!Platform_getEnv(var, var__len, (void*)val, val__len)) {
@ -244,7 +244,7 @@ void Platform_GetEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val__len)
__DEL(var); __DEL(var);
} }
void Platform_GetArg (INT16 n, CHAR *val, LONGINT val__len) void Platform_GetArg (INT16 n, CHAR *val, ADDRESS val__len)
{ {
Platform_ArgVec av = NIL; Platform_ArgVec av = NIL;
if (n < Platform_ArgCount) { if (n < Platform_ArgCount) {
@ -279,7 +279,7 @@ void Platform_GetIntArg (INT16 n, INT32 *val)
} }
} }
INT16 Platform_ArgPos (CHAR *s, LONGINT s__len) INT16 Platform_ArgPos (CHAR *s, ADDRESS s__len)
{ {
INT16 i; INT16 i;
CHAR arg[256]; CHAR arg[256];
@ -345,7 +345,7 @@ void Platform_Delay (INT32 ms)
Platform_nanosleep(s, ns); Platform_nanosleep(s, ns);
} }
INT16 Platform_System (CHAR *cmd, LONGINT cmd__len) INT16 Platform_System (CHAR *cmd, ADDRESS cmd__len)
{ {
__DUP(cmd, cmd__len, CHAR); __DUP(cmd, cmd__len, CHAR);
__DEL(cmd); __DEL(cmd);
@ -357,7 +357,7 @@ INT16 Platform_Error (void)
return Platform_err(); return Platform_err();
} }
INT16 Platform_OldRO (CHAR *n, LONGINT n__len, INT32 *h) INT16 Platform_OldRO (CHAR *n, ADDRESS n__len, INT32 *h)
{ {
INT16 fd; INT16 fd;
fd = Platform_openro(n, n__len); fd = Platform_openro(n, n__len);
@ -370,7 +370,7 @@ INT16 Platform_OldRO (CHAR *n, LONGINT n__len, INT32 *h)
__RETCHK; __RETCHK;
} }
INT16 Platform_OldRW (CHAR *n, LONGINT n__len, INT32 *h) INT16 Platform_OldRW (CHAR *n, ADDRESS n__len, INT32 *h)
{ {
INT16 fd; INT16 fd;
fd = Platform_openrw(n, n__len); fd = Platform_openrw(n, n__len);
@ -383,7 +383,7 @@ INT16 Platform_OldRW (CHAR *n, LONGINT n__len, INT32 *h)
__RETCHK; __RETCHK;
} }
INT16 Platform_New (CHAR *n, LONGINT n__len, INT32 *h) INT16 Platform_New (CHAR *n, ADDRESS n__len, INT32 *h)
{ {
INT16 fd; INT16 fd;
fd = Platform_opennew(n, n__len); fd = Platform_opennew(n, n__len);
@ -423,7 +423,7 @@ INT16 Platform_Identify (INT32 h, Platform_FileIdentity *identity, ADDRESS *iden
return 0; return 0;
} }
INT16 Platform_IdentifyByName (CHAR *n, LONGINT n__len, Platform_FileIdentity *identity, ADDRESS *identity__typ) INT16 Platform_IdentifyByName (CHAR *n, ADDRESS n__len, Platform_FileIdentity *identity, ADDRESS *identity__typ)
{ {
__DUP(n, n__len, CHAR); __DUP(n, n__len, CHAR);
Platform_structstats(); Platform_structstats();
@ -481,7 +481,7 @@ INT16 Platform_Read (INT32 h, INT64 p, INT32 l, INT32 *n)
__RETCHK; __RETCHK;
} }
INT16 Platform_ReadBuf (INT32 h, SYSTEM_BYTE *b, LONGINT b__len, INT32 *n) INT16 Platform_ReadBuf (INT32 h, SYSTEM_BYTE *b, ADDRESS b__len, INT32 *n)
{ {
*n = Platform_readfile(h, (ADDRESS)b, b__len); *n = Platform_readfile(h, (ADDRESS)b, b__len);
if (*n < 0) { if (*n < 0) {
@ -535,7 +535,7 @@ INT16 Platform_Truncate (INT32 h, INT32 l)
__RETCHK; __RETCHK;
} }
INT16 Platform_Unlink (CHAR *n, LONGINT n__len) INT16 Platform_Unlink (CHAR *n, ADDRESS n__len)
{ {
if (Platform_unlink(n, n__len) < 0) { if (Platform_unlink(n, n__len) < 0) {
return Platform_err(); return Platform_err();
@ -545,7 +545,7 @@ INT16 Platform_Unlink (CHAR *n, LONGINT n__len)
__RETCHK; __RETCHK;
} }
INT16 Platform_Chdir (CHAR *n, LONGINT n__len) INT16 Platform_Chdir (CHAR *n, ADDRESS n__len)
{ {
INT16 r; INT16 r;
if ((Platform_chdir(n, n__len) >= 0 && Platform_getcwd((void*)Platform_CWD, 256) != NIL)) { if ((Platform_chdir(n, n__len) >= 0 && Platform_getcwd((void*)Platform_CWD, 256) != NIL)) {
@ -556,7 +556,7 @@ INT16 Platform_Chdir (CHAR *n, LONGINT n__len)
__RETCHK; __RETCHK;
} }
INT16 Platform_Rename (CHAR *o, LONGINT o__len, CHAR *n, LONGINT n__len) INT16 Platform_Rename (CHAR *o, ADDRESS o__len, CHAR *n, ADDRESS n__len)
{ {
if (Platform_rename(o, o__len, n, n__len) < 0) { if (Platform_rename(o, o__len, n, n__len) < 0) {
return Platform_err(); return Platform_err();

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