mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-06 06:22:25 +00:00
More adjustments to ADDRESS vs LONGINT. An -O2 on 64 bit compiler has worked once!
This commit is contained in:
David Brown
parent
7b8eed9993
commit
cca132d784
201 changed files with 1468 additions and 1456 deletions
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspaSfF */
|
||||
|
||||
#define INTEGER int16
|
||||
#define LONGINT int32
|
||||
|
|
@ -18,6 +18,6 @@ export void *Configuration__init(void)
|
|||
__DEFMOD;
|
||||
__REGMOD("Configuration", 0);
|
||||
/* BEGIN */
|
||||
__MOVE("1.95 [2016/09/22] for gcc LP64 on cygwin", Configuration_versionLong, 41);
|
||||
__MOVE("1.95 [2016/09/23] for gcc LP64 on cygwin", Configuration_versionLong, 41);
|
||||
__ENDMOD;
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspaSfF */
|
||||
|
||||
#ifndef Configuration__h
|
||||
#define Configuration__h
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspaSfF */
|
||||
|
||||
#define INTEGER int16
|
||||
#define LONGINT int32
|
||||
|
|
@ -118,10 +118,10 @@ void Console_Hex (int32 i)
|
|||
|
||||
void Console_Read (CHAR *ch)
|
||||
{
|
||||
address n;
|
||||
int32 n;
|
||||
int16 error;
|
||||
Console_Flush();
|
||||
error = Platform_ReadBuf(0, (void*)&*ch, 1, (void*)&n);
|
||||
error = Platform_ReadBuf(0, (void*)&*ch, 1, &n);
|
||||
if (n != 1) {
|
||||
*ch = 0x00;
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspaSfF */
|
||||
|
||||
#ifndef Console__h
|
||||
#define Console__h
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin tspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin tspaSfF */
|
||||
|
||||
#define INTEGER int16
|
||||
#define LONGINT int32
|
||||
|
|
@ -56,11 +56,11 @@ static struct {
|
|||
CHAR data[1];
|
||||
} *Files_SearchPath;
|
||||
|
||||
export LONGINT *Files_FileDesc__typ;
|
||||
export LONGINT *Files_BufDesc__typ;
|
||||
export LONGINT *Files_Rider__typ;
|
||||
export address *Files_FileDesc__typ;
|
||||
export address *Files_BufDesc__typ;
|
||||
export address *Files_Rider__typ;
|
||||
|
||||
export Files_File Files_Base (Files_Rider *r, LONGINT *r__typ);
|
||||
export Files_File Files_Base (Files_Rider *r, address *r__typ);
|
||||
static Files_File Files_CacheEntry (Platform_FileIdentity identity);
|
||||
export void Files_ChangeDirectory (CHAR *path, LONGINT path__len, int16 *res);
|
||||
export void Files_Close (Files_File f);
|
||||
|
|
@ -79,37 +79,37 @@ export int32 Files_Length (Files_File f);
|
|||
static void Files_MakeFileName (CHAR *dir, LONGINT dir__len, CHAR *name, LONGINT name__len, CHAR *dest, LONGINT dest__len);
|
||||
export Files_File Files_New (CHAR *name, LONGINT name__len);
|
||||
export Files_File Files_Old (CHAR *name, LONGINT name__len);
|
||||
export int32 Files_Pos (Files_Rider *r, LONGINT *r__typ);
|
||||
export int32 Files_Pos (Files_Rider *r, address *r__typ);
|
||||
export void Files_Purge (Files_File f);
|
||||
export void Files_Read (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x);
|
||||
export void Files_ReadBool (Files_Rider *R, LONGINT *R__typ, BOOLEAN *x);
|
||||
export void Files_ReadByte (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len);
|
||||
export void Files_ReadBytes (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n);
|
||||
export void Files_ReadInt (Files_Rider *R, LONGINT *R__typ, int16 *x);
|
||||
export void Files_ReadLInt (Files_Rider *R, LONGINT *R__typ, int32 *x);
|
||||
export void Files_ReadLReal (Files_Rider *R, LONGINT *R__typ, LONGREAL *x);
|
||||
export void Files_ReadLine (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len);
|
||||
export void Files_ReadNum (Files_Rider *R, LONGINT *R__typ, int32 *x);
|
||||
export void Files_ReadNum64 (Files_Rider *R, LONGINT *R__typ, int64 *x);
|
||||
export void Files_ReadReal (Files_Rider *R, LONGINT *R__typ, REAL *x);
|
||||
export void Files_ReadSet (Files_Rider *R, LONGINT *R__typ, SET *x);
|
||||
export void Files_ReadString (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len);
|
||||
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_ReadByte (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len);
|
||||
export void Files_ReadBytes (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n);
|
||||
export void Files_ReadInt (Files_Rider *R, address *R__typ, int16 *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_ReadLine (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len);
|
||||
export void Files_ReadNum (Files_Rider *R, address *R__typ, int32 *x);
|
||||
export void Files_ReadNum64 (Files_Rider *R, address *R__typ, int64 *x);
|
||||
export void Files_ReadReal (Files_Rider *R, address *R__typ, REAL *x);
|
||||
export void Files_ReadSet (Files_Rider *R, address *R__typ, SET *x);
|
||||
export void Files_ReadString (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len);
|
||||
export void Files_Register (Files_File f);
|
||||
export void Files_Rename (CHAR *old, LONGINT old__len, CHAR *new, LONGINT new__len, int16 *res);
|
||||
static void Files_ScanPath (int16 *pos, CHAR *dir, LONGINT dir__len);
|
||||
export void Files_Set (Files_Rider *r, LONGINT *r__typ, Files_File f, int32 pos);
|
||||
export void Files_Set (Files_Rider *r, address *r__typ, Files_File f, int32 pos);
|
||||
export void Files_SetSearchPath (CHAR *path, LONGINT path__len);
|
||||
export void Files_Write (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE x);
|
||||
export void Files_WriteBool (Files_Rider *R, LONGINT *R__typ, BOOLEAN x);
|
||||
export void Files_WriteBytes (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n);
|
||||
export void Files_WriteInt (Files_Rider *R, LONGINT *R__typ, int16 x);
|
||||
export void Files_WriteLInt (Files_Rider *R, LONGINT *R__typ, int32 x);
|
||||
export void Files_WriteLReal (Files_Rider *R, LONGINT *R__typ, LONGREAL x);
|
||||
export void Files_WriteNum (Files_Rider *R, LONGINT *R__typ, int32 x);
|
||||
export void Files_WriteNum64 (Files_Rider *R, LONGINT *R__typ, int64 x);
|
||||
export void Files_WriteReal (Files_Rider *R, LONGINT *R__typ, REAL x);
|
||||
export void Files_WriteSet (Files_Rider *R, LONGINT *R__typ, SET x);
|
||||
export void Files_WriteString (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len);
|
||||
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_WriteBytes (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n);
|
||||
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_WriteLReal (Files_Rider *R, address *R__typ, LONGREAL x);
|
||||
export void Files_WriteNum (Files_Rider *R, address *R__typ, int32 x);
|
||||
export void Files_WriteNum64 (Files_Rider *R, address *R__typ, int64 x);
|
||||
export void Files_WriteReal (Files_Rider *R, address *R__typ, REAL x);
|
||||
export void Files_WriteSet (Files_Rider *R, address *R__typ, SET x);
|
||||
export void Files_WriteString (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len);
|
||||
|
||||
#define Files_IdxTrap() __HALT(-1)
|
||||
|
||||
|
|
@ -544,14 +544,14 @@ void Files_GetDate (Files_File f, int32 *t, int32 *d)
|
|||
Platform_MTimeAsClock(identity, &*t, &*d);
|
||||
}
|
||||
|
||||
int32 Files_Pos (Files_Rider *r, LONGINT *r__typ)
|
||||
int32 Files_Pos (Files_Rider *r, address *r__typ)
|
||||
{
|
||||
int32 _o_result;
|
||||
_o_result = (*r).org + (*r).offset;
|
||||
return _o_result;
|
||||
}
|
||||
|
||||
void Files_Set (Files_Rider *r, LONGINT *r__typ, Files_File f, int32 pos)
|
||||
void Files_Set (Files_Rider *r, address *r__typ, Files_File f, int32 pos)
|
||||
{
|
||||
int32 org, offset, i, n;
|
||||
Files_Buffer buf = NIL;
|
||||
|
|
@ -613,7 +613,7 @@ void Files_Set (Files_Rider *r, LONGINT *r__typ, Files_File f, int32 pos)
|
|||
(*r).res = 0;
|
||||
}
|
||||
|
||||
void Files_Read (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x)
|
||||
void Files_Read (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x)
|
||||
{
|
||||
int32 offset;
|
||||
Files_Buffer buf = NIL;
|
||||
|
|
@ -637,7 +637,7 @@ void Files_Read (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x)
|
|||
}
|
||||
}
|
||||
|
||||
void Files_ReadBytes (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n)
|
||||
void Files_ReadBytes (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n)
|
||||
{
|
||||
int32 xpos, min, restInBuf, offset;
|
||||
Files_Buffer buf = NIL;
|
||||
|
|
@ -673,19 +673,19 @@ void Files_ReadBytes (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x
|
|||
(*r).eof = 0;
|
||||
}
|
||||
|
||||
void Files_ReadByte (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len)
|
||||
void Files_ReadByte (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len)
|
||||
{
|
||||
Files_ReadBytes(&*r, r__typ, (void*)x, x__len * 1, 1);
|
||||
}
|
||||
|
||||
Files_File Files_Base (Files_Rider *r, LONGINT *r__typ)
|
||||
Files_File Files_Base (Files_Rider *r, address *r__typ)
|
||||
{
|
||||
Files_File _o_result;
|
||||
_o_result = (*r).buf->f;
|
||||
return _o_result;
|
||||
}
|
||||
|
||||
void Files_Write (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE x)
|
||||
void Files_Write (Files_Rider *r, address *r__typ, SYSTEM_BYTE x)
|
||||
{
|
||||
Files_Buffer buf = NIL;
|
||||
int32 offset;
|
||||
|
|
@ -706,7 +706,7 @@ void Files_Write (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE x)
|
|||
(*r).res = 0;
|
||||
}
|
||||
|
||||
void Files_WriteBytes (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n)
|
||||
void Files_WriteBytes (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n)
|
||||
{
|
||||
int32 xpos, min, restInBuf, offset;
|
||||
Files_Buffer buf = NIL;
|
||||
|
|
@ -849,26 +849,26 @@ static void Files_FlipBytes (SYSTEM_BYTE *src, LONGINT src__len, SYSTEM_BYTE *de
|
|||
}
|
||||
}
|
||||
|
||||
void Files_ReadBool (Files_Rider *R, LONGINT *R__typ, BOOLEAN *x)
|
||||
void Files_ReadBool (Files_Rider *R, address *R__typ, BOOLEAN *x)
|
||||
{
|
||||
Files_Read(&*R, R__typ, (CHAR*)(void*)&*x);
|
||||
}
|
||||
|
||||
void Files_ReadInt (Files_Rider *R, LONGINT *R__typ, int16 *x)
|
||||
void Files_ReadInt (Files_Rider *R, address *R__typ, int16 *x)
|
||||
{
|
||||
CHAR b[2];
|
||||
Files_ReadBytes(&*R, R__typ, (void*)b, 2, 2);
|
||||
*x = (int16)b[0] + __ASHL((int16)b[1], 8);
|
||||
}
|
||||
|
||||
void Files_ReadLInt (Files_Rider *R, LONGINT *R__typ, int32 *x)
|
||||
void Files_ReadLInt (Files_Rider *R, address *R__typ, int32 *x)
|
||||
{
|
||||
CHAR b[4];
|
||||
Files_ReadBytes(&*R, R__typ, (void*)b, 4, 4);
|
||||
*x = (((int16)b[0] + __ASHL((int16)b[1], 8)) + __ASHL(b[2], 16)) + __ASHL(b[3], 24);
|
||||
}
|
||||
|
||||
void Files_ReadSet (Files_Rider *R, LONGINT *R__typ, SET *x)
|
||||
void Files_ReadSet (Files_Rider *R, address *R__typ, SET *x)
|
||||
{
|
||||
CHAR b[4];
|
||||
int32 l;
|
||||
|
|
@ -877,21 +877,21 @@ void Files_ReadSet (Files_Rider *R, LONGINT *R__typ, SET *x)
|
|||
*x = (SET)l;
|
||||
}
|
||||
|
||||
void Files_ReadReal (Files_Rider *R, LONGINT *R__typ, REAL *x)
|
||||
void Files_ReadReal (Files_Rider *R, address *R__typ, REAL *x)
|
||||
{
|
||||
CHAR b[4];
|
||||
Files_ReadBytes(&*R, R__typ, (void*)b, 4, 4);
|
||||
Files_FlipBytes((void*)b, 4, (void*)&*x, 4);
|
||||
}
|
||||
|
||||
void Files_ReadLReal (Files_Rider *R, LONGINT *R__typ, LONGREAL *x)
|
||||
void Files_ReadLReal (Files_Rider *R, address *R__typ, LONGREAL *x)
|
||||
{
|
||||
CHAR b[8];
|
||||
Files_ReadBytes(&*R, R__typ, (void*)b, 8, 8);
|
||||
Files_FlipBytes((void*)b, 8, (void*)&*x, 8);
|
||||
}
|
||||
|
||||
void Files_ReadString (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len)
|
||||
void Files_ReadString (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len)
|
||||
{
|
||||
int16 i;
|
||||
CHAR ch;
|
||||
|
|
@ -903,7 +903,7 @@ void Files_ReadString (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len)
|
|||
} while (!(ch == 0x00));
|
||||
}
|
||||
|
||||
void Files_ReadLine (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len)
|
||||
void Files_ReadLine (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len)
|
||||
{
|
||||
int16 i;
|
||||
CHAR ch;
|
||||
|
|
@ -921,7 +921,7 @@ void Files_ReadLine (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len)
|
|||
} while (!b);
|
||||
}
|
||||
|
||||
void Files_ReadNum (Files_Rider *R, LONGINT *R__typ, int32 *x)
|
||||
void Files_ReadNum (Files_Rider *R, address *R__typ, int32 *x)
|
||||
{
|
||||
int8 s;
|
||||
CHAR ch;
|
||||
|
|
@ -938,19 +938,19 @@ void Files_ReadNum (Files_Rider *R, LONGINT *R__typ, int32 *x)
|
|||
*x = n;
|
||||
}
|
||||
|
||||
void Files_ReadNum64 (Files_Rider *R, LONGINT *R__typ, int64 *x)
|
||||
void Files_ReadNum64 (Files_Rider *R, address *R__typ, int64 *x)
|
||||
{
|
||||
int32 n;
|
||||
Files_ReadNum(&*R, R__typ, &n);
|
||||
*x = n;
|
||||
}
|
||||
|
||||
void Files_WriteBool (Files_Rider *R, LONGINT *R__typ, BOOLEAN x)
|
||||
void Files_WriteBool (Files_Rider *R, address *R__typ, BOOLEAN x)
|
||||
{
|
||||
Files_Write(&*R, R__typ, __VAL(CHAR, x));
|
||||
}
|
||||
|
||||
void Files_WriteInt (Files_Rider *R, LONGINT *R__typ, int16 x)
|
||||
void Files_WriteInt (Files_Rider *R, address *R__typ, int16 x)
|
||||
{
|
||||
CHAR b[2];
|
||||
b[0] = (CHAR)x;
|
||||
|
|
@ -958,7 +958,7 @@ void Files_WriteInt (Files_Rider *R, LONGINT *R__typ, int16 x)
|
|||
Files_WriteBytes(&*R, R__typ, (void*)b, 2, 2);
|
||||
}
|
||||
|
||||
void Files_WriteLInt (Files_Rider *R, LONGINT *R__typ, int32 x)
|
||||
void Files_WriteLInt (Files_Rider *R, address *R__typ, int32 x)
|
||||
{
|
||||
CHAR b[4];
|
||||
b[0] = (CHAR)x;
|
||||
|
|
@ -968,7 +968,7 @@ void Files_WriteLInt (Files_Rider *R, LONGINT *R__typ, int32 x)
|
|||
Files_WriteBytes(&*R, R__typ, (void*)b, 4, 4);
|
||||
}
|
||||
|
||||
void Files_WriteSet (Files_Rider *R, LONGINT *R__typ, SET x)
|
||||
void Files_WriteSet (Files_Rider *R, address *R__typ, SET x)
|
||||
{
|
||||
CHAR b[4];
|
||||
int32 i;
|
||||
|
|
@ -980,21 +980,21 @@ void Files_WriteSet (Files_Rider *R, LONGINT *R__typ, SET x)
|
|||
Files_WriteBytes(&*R, R__typ, (void*)b, 4, 4);
|
||||
}
|
||||
|
||||
void Files_WriteReal (Files_Rider *R, LONGINT *R__typ, REAL x)
|
||||
void Files_WriteReal (Files_Rider *R, address *R__typ, REAL x)
|
||||
{
|
||||
CHAR b[4];
|
||||
Files_FlipBytes((void*)&x, 4, (void*)b, 4);
|
||||
Files_WriteBytes(&*R, R__typ, (void*)b, 4, 4);
|
||||
}
|
||||
|
||||
void Files_WriteLReal (Files_Rider *R, LONGINT *R__typ, LONGREAL x)
|
||||
void Files_WriteLReal (Files_Rider *R, address *R__typ, LONGREAL x)
|
||||
{
|
||||
CHAR b[8];
|
||||
Files_FlipBytes((void*)&x, 8, (void*)b, 8);
|
||||
Files_WriteBytes(&*R, R__typ, (void*)b, 8, 8);
|
||||
}
|
||||
|
||||
void Files_WriteString (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len)
|
||||
void Files_WriteString (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len)
|
||||
{
|
||||
int16 i;
|
||||
i = 0;
|
||||
|
|
@ -1004,7 +1004,7 @@ void Files_WriteString (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len
|
|||
Files_WriteBytes(&*R, R__typ, (void*)x, x__len * 1, i + 1);
|
||||
}
|
||||
|
||||
void Files_WriteNum (Files_Rider *R, LONGINT *R__typ, int32 x)
|
||||
void Files_WriteNum (Files_Rider *R, address *R__typ, int32 x)
|
||||
{
|
||||
while (x < -64 || x > 63) {
|
||||
Files_Write(&*R, R__typ, (CHAR)(__MASK(x, -128) + 128));
|
||||
|
|
@ -1013,7 +1013,7 @@ void Files_WriteNum (Files_Rider *R, LONGINT *R__typ, int32 x)
|
|||
Files_Write(&*R, R__typ, (CHAR)__MASK(x, -128));
|
||||
}
|
||||
|
||||
void Files_WriteNum64 (Files_Rider *R, LONGINT *R__typ, int64 x)
|
||||
void Files_WriteNum64 (Files_Rider *R, address *R__typ, int64 x)
|
||||
{
|
||||
while (x < -64 || x > 63) {
|
||||
Files_Write(&*R, R__typ, (CHAR)(__MASK(x, -128) + 128));
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin tspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin tspaSfF */
|
||||
|
||||
#ifndef Files__h
|
||||
#define Files__h
|
||||
|
|
@ -24,10 +24,10 @@ typedef
|
|||
|
||||
|
||||
|
||||
import LONGINT *Files_FileDesc__typ;
|
||||
import LONGINT *Files_Rider__typ;
|
||||
import address *Files_FileDesc__typ;
|
||||
import address *Files_Rider__typ;
|
||||
|
||||
import Files_File Files_Base (Files_Rider *r, LONGINT *r__typ);
|
||||
import Files_File Files_Base (Files_Rider *r, address *r__typ);
|
||||
import void Files_ChangeDirectory (CHAR *path, LONGINT path__len, int16 *res);
|
||||
import void Files_Close (Files_File f);
|
||||
import void Files_Delete (CHAR *name, LONGINT name__len, int16 *res);
|
||||
|
|
@ -36,36 +36,36 @@ import void Files_GetName (Files_File f, CHAR *name, LONGINT name__len);
|
|||
import int32 Files_Length (Files_File f);
|
||||
import Files_File Files_New (CHAR *name, LONGINT name__len);
|
||||
import Files_File Files_Old (CHAR *name, LONGINT name__len);
|
||||
import int32 Files_Pos (Files_Rider *r, LONGINT *r__typ);
|
||||
import int32 Files_Pos (Files_Rider *r, address *r__typ);
|
||||
import void Files_Purge (Files_File f);
|
||||
import void Files_Read (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x);
|
||||
import void Files_ReadBool (Files_Rider *R, LONGINT *R__typ, BOOLEAN *x);
|
||||
import void Files_ReadByte (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len);
|
||||
import void Files_ReadBytes (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n);
|
||||
import void Files_ReadInt (Files_Rider *R, LONGINT *R__typ, int16 *x);
|
||||
import void Files_ReadLInt (Files_Rider *R, LONGINT *R__typ, int32 *x);
|
||||
import void Files_ReadLReal (Files_Rider *R, LONGINT *R__typ, LONGREAL *x);
|
||||
import void Files_ReadLine (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len);
|
||||
import void Files_ReadNum (Files_Rider *R, LONGINT *R__typ, int32 *x);
|
||||
import void Files_ReadNum64 (Files_Rider *R, LONGINT *R__typ, int64 *x);
|
||||
import void Files_ReadReal (Files_Rider *R, LONGINT *R__typ, REAL *x);
|
||||
import void Files_ReadSet (Files_Rider *R, LONGINT *R__typ, SET *x);
|
||||
import void Files_ReadString (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len);
|
||||
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_ReadByte (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len);
|
||||
import void Files_ReadBytes (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n);
|
||||
import void Files_ReadInt (Files_Rider *R, address *R__typ, int16 *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_ReadLine (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len);
|
||||
import void Files_ReadNum (Files_Rider *R, address *R__typ, int32 *x);
|
||||
import void Files_ReadNum64 (Files_Rider *R, address *R__typ, int64 *x);
|
||||
import void Files_ReadReal (Files_Rider *R, address *R__typ, REAL *x);
|
||||
import void Files_ReadSet (Files_Rider *R, address *R__typ, SET *x);
|
||||
import void Files_ReadString (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len);
|
||||
import void Files_Register (Files_File f);
|
||||
import void Files_Rename (CHAR *old, LONGINT old__len, CHAR *new, LONGINT new__len, int16 *res);
|
||||
import void Files_Set (Files_Rider *r, LONGINT *r__typ, Files_File f, int32 pos);
|
||||
import void Files_Set (Files_Rider *r, address *r__typ, Files_File f, int32 pos);
|
||||
import void Files_SetSearchPath (CHAR *path, LONGINT path__len);
|
||||
import void Files_Write (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE x);
|
||||
import void Files_WriteBool (Files_Rider *R, LONGINT *R__typ, BOOLEAN x);
|
||||
import void Files_WriteBytes (Files_Rider *r, LONGINT *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n);
|
||||
import void Files_WriteInt (Files_Rider *R, LONGINT *R__typ, int16 x);
|
||||
import void Files_WriteLInt (Files_Rider *R, LONGINT *R__typ, int32 x);
|
||||
import void Files_WriteLReal (Files_Rider *R, LONGINT *R__typ, LONGREAL x);
|
||||
import void Files_WriteNum (Files_Rider *R, LONGINT *R__typ, int32 x);
|
||||
import void Files_WriteNum64 (Files_Rider *R, LONGINT *R__typ, int64 x);
|
||||
import void Files_WriteReal (Files_Rider *R, LONGINT *R__typ, REAL x);
|
||||
import void Files_WriteSet (Files_Rider *R, LONGINT *R__typ, SET x);
|
||||
import void Files_WriteString (Files_Rider *R, LONGINT *R__typ, CHAR *x, LONGINT x__len);
|
||||
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_WriteBytes (Files_Rider *r, address *r__typ, SYSTEM_BYTE *x, LONGINT x__len, int32 n);
|
||||
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_WriteLReal (Files_Rider *R, address *R__typ, LONGREAL x);
|
||||
import void Files_WriteNum (Files_Rider *R, address *R__typ, int32 x);
|
||||
import void Files_WriteNum64 (Files_Rider *R, address *R__typ, int64 x);
|
||||
import void Files_WriteReal (Files_Rider *R, address *R__typ, REAL x);
|
||||
import void Files_WriteSet (Files_Rider *R, address *R__typ, SET x);
|
||||
import void Files_WriteString (Files_Rider *R, address *R__typ, CHAR *x, LONGINT x__len);
|
||||
import void *Files__init(void);
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin tsSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin tsSfF */
|
||||
|
||||
#define INTEGER int16
|
||||
#define LONGINT int32
|
||||
|
|
@ -74,10 +74,10 @@ static int16 Heap_lockdepth;
|
|||
static BOOLEAN Heap_interrupted;
|
||||
export int16 Heap_FileCount;
|
||||
|
||||
export LONGINT *Heap_ModuleDesc__typ;
|
||||
export LONGINT *Heap_CmdDesc__typ;
|
||||
export LONGINT *Heap_FinDesc__typ;
|
||||
export LONGINT *Heap__1__typ;
|
||||
export address *Heap_ModuleDesc__typ;
|
||||
export address *Heap_CmdDesc__typ;
|
||||
export address *Heap_FinDesc__typ;
|
||||
export address *Heap__1__typ;
|
||||
|
||||
static void Heap_CheckFin (void);
|
||||
static void Heap_ExtendHeap (address blksz);
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin tsSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin tsSfF */
|
||||
|
||||
#ifndef Heap__h
|
||||
#define Heap__h
|
||||
|
|
@ -34,7 +34,7 @@ import SYSTEM_PTR Heap_modules;
|
|||
import address Heap_allocated, Heap_heapsize;
|
||||
import int16 Heap_FileCount;
|
||||
|
||||
import LONGINT *Heap_ModuleDesc__typ;
|
||||
import address *Heap_ModuleDesc__typ;
|
||||
|
||||
import void Heap_FINALL (void);
|
||||
import void Heap_GC (BOOLEAN markStack);
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspaSfF */
|
||||
|
||||
#define INTEGER int16
|
||||
#define LONGINT int32
|
||||
|
|
@ -43,8 +43,8 @@ export int16 Modules_res;
|
|||
export CHAR Modules_resMsg[256];
|
||||
export Modules_ModuleName Modules_imported, Modules_importing;
|
||||
|
||||
export LONGINT *Modules_ModuleDesc__typ;
|
||||
export LONGINT *Modules_CmdDesc__typ;
|
||||
export address *Modules_ModuleDesc__typ;
|
||||
export address *Modules_CmdDesc__typ;
|
||||
|
||||
static void Modules_Append (CHAR *a, LONGINT a__len, CHAR *b, LONGINT b__len);
|
||||
export void Modules_Free (CHAR *name, LONGINT name__len, BOOLEAN all);
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspaSfF */
|
||||
|
||||
#ifndef Modules__h
|
||||
#define Modules__h
|
||||
|
|
@ -40,8 +40,8 @@ import int16 Modules_res;
|
|||
import CHAR Modules_resMsg[256];
|
||||
import Modules_ModuleName Modules_imported, Modules_importing;
|
||||
|
||||
import LONGINT *Modules_ModuleDesc__typ;
|
||||
import LONGINT *Modules_CmdDesc__typ;
|
||||
import address *Modules_ModuleDesc__typ;
|
||||
import address *Modules_CmdDesc__typ;
|
||||
|
||||
import void Modules_Free (CHAR *name, LONGINT name__len, BOOLEAN all);
|
||||
import Modules_Command Modules_ThisCommand (Modules_Module mod, CHAR *name, LONGINT name__len);
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspaSfF */
|
||||
|
||||
#define INTEGER int16
|
||||
#define LONGINT int32
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspaSfF */
|
||||
|
||||
#ifndef OPB__h
|
||||
#define OPB__h
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspaSfF */
|
||||
|
||||
#define INTEGER int16
|
||||
#define LONGINT int32
|
||||
|
|
@ -1041,7 +1041,7 @@ static void OPC_IdentList (OPT_Object obj, int16 vis)
|
|||
} else if ((obj->mode == 2 && obj->typ->comp == 4)) {
|
||||
OPC_EndStat();
|
||||
OPC_BegStat();
|
||||
OPM_WriteString((CHAR*)"LONGINT *", 10);
|
||||
OPM_WriteString((CHAR*)"address *", 10);
|
||||
OPC_Ident(obj);
|
||||
OPM_WriteString((CHAR*)"__typ", 6);
|
||||
base = NIL;
|
||||
|
|
@ -1078,7 +1078,7 @@ static void OPC_AnsiParamList (OPT_Object obj, BOOLEAN showParamNames)
|
|||
OPM_WriteString((CHAR*)", LONGINT ", 11);
|
||||
OPC_LenList(obj, 1, showParamNames);
|
||||
} else if ((obj->mode == 2 && obj->typ->comp == 4)) {
|
||||
OPM_WriteString((CHAR*)", LONGINT *", 12);
|
||||
OPM_WriteString((CHAR*)", address *", 12);
|
||||
if (showParamNames) {
|
||||
OPC_Ident(obj);
|
||||
OPM_WriteString((CHAR*)"__typ", 6);
|
||||
|
|
@ -1166,7 +1166,7 @@ static void OPC_GenDynTypes (OPT_Node n, int16 vis)
|
|||
} else {
|
||||
OPM_WriteString((CHAR*)"export ", 8);
|
||||
}
|
||||
OPM_WriteString((CHAR*)"LONGINT *", 10);
|
||||
OPM_WriteString((CHAR*)"address *", 10);
|
||||
OPC_Andent(typ);
|
||||
OPM_WriteString((CHAR*)"__typ", 6);
|
||||
OPC_EndStat();
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspaSfF */
|
||||
|
||||
#ifndef OPC__h
|
||||
#define OPC__h
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspaSfF */
|
||||
|
||||
#define INTEGER int16
|
||||
#define LONGINT int32
|
||||
|
|
@ -41,7 +41,7 @@ static CHAR OPM_OBERON[1024];
|
|||
static CHAR OPM_MODULES[1024];
|
||||
|
||||
|
||||
static void OPM_Append (Files_Rider *R, LONGINT *R__typ, Files_File F);
|
||||
static void OPM_Append (Files_Rider *R, address *R__typ, Files_File F);
|
||||
export void OPM_CloseFiles (void);
|
||||
export void OPM_CloseOldSym (void);
|
||||
export void OPM_DeleteNewSym (void);
|
||||
|
|
@ -49,10 +49,10 @@ export void OPM_FPrint (int32 *fp, int64 val);
|
|||
export void OPM_FPrintLReal (int32 *fp, LONGREAL lr);
|
||||
export void OPM_FPrintReal (int32 *fp, REAL real);
|
||||
export void OPM_FPrintSet (int32 *fp, SET set);
|
||||
static void OPM_FindLine (Files_File f, Files_Rider *r, LONGINT *r__typ, int64 pos);
|
||||
static void OPM_FindLine (Files_File f, Files_Rider *r, address *r__typ, int64 pos);
|
||||
export void OPM_Get (CHAR *ch);
|
||||
static void OPM_GetProperties (void);
|
||||
static void OPM_GetProperty (Texts_Scanner *S, LONGINT *S__typ, CHAR *name, LONGINT name__len, int16 *size, int16 *align);
|
||||
static void OPM_GetProperty (Texts_Scanner *S, address *S__typ, CHAR *name, LONGINT name__len, int16 *size, int16 *align);
|
||||
export void OPM_Init (BOOLEAN *done, CHAR *mname, LONGINT mname__len);
|
||||
export void OPM_InitOptions (void);
|
||||
export int16 OPM_Integer (int64 n);
|
||||
|
|
@ -496,7 +496,7 @@ static void OPM_LogErrMsg (int16 n)
|
|||
OPM_LogWStr(errors_errors[__X(n, 350)], 128);
|
||||
}
|
||||
|
||||
static void OPM_FindLine (Files_File f, Files_Rider *r, LONGINT *r__typ, int64 pos)
|
||||
static void OPM_FindLine (Files_File f, Files_Rider *r, address *r__typ, int64 pos)
|
||||
{
|
||||
CHAR ch, cheol;
|
||||
if (pos < (int64)OPM_ErrorLineStartPos) {
|
||||
|
|
@ -654,7 +654,7 @@ void OPM_FPrintLReal (int32 *fp, LONGREAL lr)
|
|||
OPM_FPrint(&*fp, h);
|
||||
}
|
||||
|
||||
static void OPM_GetProperty (Texts_Scanner *S, LONGINT *S__typ, CHAR *name, LONGINT name__len, int16 *size, int16 *align)
|
||||
static void OPM_GetProperty (Texts_Scanner *S, address *S__typ, CHAR *name, LONGINT name__len, int16 *size, int16 *align)
|
||||
{
|
||||
__DUP(name, name__len, CHAR);
|
||||
if (((*S).class == 1 && __STRCMP((*S).s, name) == 0)) {
|
||||
|
|
@ -996,7 +996,7 @@ void OPM_WriteLn (void)
|
|||
Files_Write(&OPM_R[__X(OPM_currFile, 3)], Files_Rider__typ, 0x0a);
|
||||
}
|
||||
|
||||
static void OPM_Append (Files_Rider *R, LONGINT *R__typ, Files_File F)
|
||||
static void OPM_Append (Files_Rider *R, address *R__typ, Files_File F)
|
||||
{
|
||||
Files_Rider R1;
|
||||
CHAR buffer[4096];
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspaSfF */
|
||||
|
||||
#ifndef OPM__h
|
||||
#define OPM__h
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspaSfF */
|
||||
|
||||
#define INTEGER int16
|
||||
#define LONGINT int32
|
||||
|
|
@ -24,7 +24,7 @@ static OPT_Node OPP_TDinit, OPP_lastTDinit;
|
|||
static int16 OPP_nofFwdPtr;
|
||||
static OPT_Struct OPP_FwdPtr[64];
|
||||
|
||||
export LONGINT *OPP__1__typ;
|
||||
export address *OPP__1__typ;
|
||||
|
||||
static void OPP_ActualParameters (OPT_Node *aparlist, OPT_Object fpar);
|
||||
static void OPP_ArrayType (OPT_Struct *typ, OPT_Struct *banned);
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspaSfF */
|
||||
|
||||
#ifndef OPP__h
|
||||
#define OPP__h
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin tspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin tspaSfF */
|
||||
|
||||
#define INTEGER int16
|
||||
#define LONGINT int32
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin tspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin tspaSfF */
|
||||
|
||||
#ifndef OPS__h
|
||||
#define OPS__h
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspaSfF */
|
||||
|
||||
#define INTEGER int16
|
||||
#define LONGINT int32
|
||||
|
|
@ -101,12 +101,12 @@ static OPT_ExpCtxt OPT_expCtxt;
|
|||
static int32 OPT_nofhdfld;
|
||||
static BOOLEAN OPT_newsf, OPT_findpc, OPT_extsf, OPT_sfpresent, OPT_symExtended, OPT_symNew;
|
||||
|
||||
export LONGINT *OPT_ConstDesc__typ;
|
||||
export LONGINT *OPT_ObjDesc__typ;
|
||||
export LONGINT *OPT_StrDesc__typ;
|
||||
export LONGINT *OPT_NodeDesc__typ;
|
||||
export LONGINT *OPT_ImpCtxt__typ;
|
||||
export LONGINT *OPT_ExpCtxt__typ;
|
||||
export address *OPT_ConstDesc__typ;
|
||||
export address *OPT_ObjDesc__typ;
|
||||
export address *OPT_StrDesc__typ;
|
||||
export address *OPT_NodeDesc__typ;
|
||||
export address *OPT_ImpCtxt__typ;
|
||||
export address *OPT_ExpCtxt__typ;
|
||||
|
||||
export void OPT_Close (void);
|
||||
export void OPT_CloseScope (void);
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspaSfF */
|
||||
|
||||
#ifndef OPT__h
|
||||
#define OPT__h
|
||||
|
|
@ -75,10 +75,10 @@ import OPT_Object OPT_GlbMod[64];
|
|||
import OPS_Name OPT_SelfName;
|
||||
import BOOLEAN OPT_SYSimported;
|
||||
|
||||
import LONGINT *OPT_ConstDesc__typ;
|
||||
import LONGINT *OPT_ObjDesc__typ;
|
||||
import LONGINT *OPT_StrDesc__typ;
|
||||
import LONGINT *OPT_NodeDesc__typ;
|
||||
import address *OPT_ConstDesc__typ;
|
||||
import address *OPT_ObjDesc__typ;
|
||||
import address *OPT_StrDesc__typ;
|
||||
import address *OPT_NodeDesc__typ;
|
||||
|
||||
import void OPT_Close (void);
|
||||
import void OPT_CloseScope (void);
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspaSfF */
|
||||
|
||||
#define INTEGER int16
|
||||
#define LONGINT int32
|
||||
|
|
@ -21,7 +21,7 @@ static int32 OPV_recno;
|
|||
static OPV_ExitInfo OPV_exit;
|
||||
static int16 OPV_nofExitLabels;
|
||||
|
||||
export LONGINT *OPV_ExitInfo__typ;
|
||||
export address *OPV_ExitInfo__typ;
|
||||
|
||||
static void OPV_ActualPar (OPT_Node n, OPT_Object fp);
|
||||
export void OPV_AdrAndSize (OPT_Object topScope);
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspaSfF */
|
||||
|
||||
#ifndef OPV__h
|
||||
#define OPV__h
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspaSfF */
|
||||
|
||||
#define INTEGER int16
|
||||
#define LONGINT int32
|
||||
|
|
@ -42,7 +42,7 @@ static int32 Platform_TimeStart;
|
|||
export int16 Platform_SeekSet, Platform_SeekCur, Platform_SeekEnd;
|
||||
export CHAR Platform_nl[3];
|
||||
|
||||
export LONGINT *Platform_FileIdentity__typ;
|
||||
export address *Platform_FileIdentity__typ;
|
||||
|
||||
export BOOLEAN Platform_Absent (int16 e);
|
||||
export int16 Platform_ArgPos (CHAR *s, LONGINT s__len);
|
||||
|
|
@ -61,8 +61,8 @@ export void Platform_GetEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val
|
|||
export void Platform_GetIntArg (int16 n, int32 *val);
|
||||
export void Platform_GetTimeOfDay (int32 *sec, int32 *usec);
|
||||
export void Platform_Halt (int32 code);
|
||||
export int16 Platform_Identify (int32 h, Platform_FileIdentity *identity, LONGINT *identity__typ);
|
||||
export int16 Platform_IdentifyByName (CHAR *n, LONGINT n__len, Platform_FileIdentity *identity, LONGINT *identity__typ);
|
||||
export int16 Platform_Identify (int32 h, Platform_FileIdentity *identity, address *identity__typ);
|
||||
export int16 Platform_IdentifyByName (CHAR *n, LONGINT n__len, Platform_FileIdentity *identity, address *identity__typ);
|
||||
export BOOLEAN Platform_Inaccessible (int16 e);
|
||||
export void Platform_Init (int16 argc, address argvadr);
|
||||
export void Platform_MTimeAsClock (Platform_FileIdentity i, int32 *t, int32 *d);
|
||||
|
|
@ -72,8 +72,8 @@ export address Platform_OSAllocate (address size);
|
|||
export void Platform_OSFree (address address);
|
||||
export int16 Platform_OldRO (CHAR *n, LONGINT n__len, int32 *h);
|
||||
export int16 Platform_OldRW (CHAR *n, LONGINT n__len, int32 *h);
|
||||
export int16 Platform_Read (int32 h, address p, address l, address *n);
|
||||
export int16 Platform_ReadBuf (int32 h, SYSTEM_BYTE *b, LONGINT b__len, address *n);
|
||||
export int16 Platform_Read (int32 h, address p, int32 l, int32 *n);
|
||||
export int16 Platform_ReadBuf (int32 h, SYSTEM_BYTE *b, LONGINT b__len, int32 *n);
|
||||
export int16 Platform_Rename (CHAR *o, LONGINT o__len, CHAR *n, LONGINT n__len);
|
||||
export BOOLEAN Platform_SameFile (Platform_FileIdentity i1, Platform_FileIdentity i2);
|
||||
export BOOLEAN Platform_SameFileTime (Platform_FileIdentity i1, Platform_FileIdentity i2);
|
||||
|
|
@ -81,9 +81,9 @@ export int16 Platform_Seek (int32 h, int32 offset, int16 whence);
|
|||
export void Platform_SetBadInstructionHandler (Platform_SignalHandler handler);
|
||||
export void Platform_SetHalt (Platform_HaltProcedure p);
|
||||
export void Platform_SetInterruptHandler (Platform_SignalHandler handler);
|
||||
export void Platform_SetMTime (Platform_FileIdentity *target, LONGINT *target__typ, Platform_FileIdentity source);
|
||||
export void Platform_SetMTime (Platform_FileIdentity *target, address *target__typ, Platform_FileIdentity source);
|
||||
export void Platform_SetQuitHandler (Platform_SignalHandler handler);
|
||||
export int16 Platform_Size (int32 h, address *l);
|
||||
export int16 Platform_Size (int32 h, int32 *l);
|
||||
export int16 Platform_Sync (int32 h);
|
||||
export int16 Platform_System (CHAR *cmd, LONGINT cmd__len);
|
||||
static void Platform_TestLittleEndian (void);
|
||||
|
|
@ -446,7 +446,7 @@ int16 Platform_Close (int32 h)
|
|||
__RETCHK;
|
||||
}
|
||||
|
||||
int16 Platform_Identify (int32 h, Platform_FileIdentity *identity, LONGINT *identity__typ)
|
||||
int16 Platform_Identify (int32 h, Platform_FileIdentity *identity, address *identity__typ)
|
||||
{
|
||||
int16 _o_result;
|
||||
Platform_structstats();
|
||||
|
|
@ -461,7 +461,7 @@ int16 Platform_Identify (int32 h, Platform_FileIdentity *identity, LONGINT *iden
|
|||
return _o_result;
|
||||
}
|
||||
|
||||
int16 Platform_IdentifyByName (CHAR *n, LONGINT n__len, Platform_FileIdentity *identity, LONGINT *identity__typ)
|
||||
int16 Platform_IdentifyByName (CHAR *n, LONGINT n__len, Platform_FileIdentity *identity, address *identity__typ)
|
||||
{
|
||||
int16 _o_result;
|
||||
__DUP(n, n__len, CHAR);
|
||||
|
|
@ -493,7 +493,7 @@ BOOLEAN Platform_SameFileTime (Platform_FileIdentity i1, Platform_FileIdentity i
|
|||
return _o_result;
|
||||
}
|
||||
|
||||
void Platform_SetMTime (Platform_FileIdentity *target, LONGINT *target__typ, Platform_FileIdentity source)
|
||||
void Platform_SetMTime (Platform_FileIdentity *target, address *target__typ, Platform_FileIdentity source)
|
||||
{
|
||||
(*target).mtime = source.mtime;
|
||||
}
|
||||
|
|
@ -504,7 +504,7 @@ void Platform_MTimeAsClock (Platform_FileIdentity i, int32 *t, int32 *d)
|
|||
Platform_YMDHMStoClock(Platform_tmyear(), Platform_tmmon(), Platform_tmmday(), Platform_tmhour(), Platform_tmmin(), Platform_tmsec(), &*t, &*d);
|
||||
}
|
||||
|
||||
int16 Platform_Size (int32 h, address *l)
|
||||
int16 Platform_Size (int32 h, int32 *l)
|
||||
{
|
||||
int16 _o_result;
|
||||
Platform_structstats();
|
||||
|
|
@ -517,7 +517,7 @@ int16 Platform_Size (int32 h, address *l)
|
|||
return _o_result;
|
||||
}
|
||||
|
||||
int16 Platform_Read (int32 h, address p, address l, address *n)
|
||||
int16 Platform_Read (int32 h, address p, int32 l, int32 *n)
|
||||
{
|
||||
int16 _o_result;
|
||||
*n = Platform_readfile(h, p, l);
|
||||
|
|
@ -532,7 +532,7 @@ int16 Platform_Read (int32 h, address p, address l, address *n)
|
|||
__RETCHK;
|
||||
}
|
||||
|
||||
int16 Platform_ReadBuf (int32 h, SYSTEM_BYTE *b, LONGINT b__len, address *n)
|
||||
int16 Platform_ReadBuf (int32 h, SYSTEM_BYTE *b, LONGINT b__len, int32 *n)
|
||||
{
|
||||
int16 _o_result;
|
||||
*n = Platform_readfile(h, (address)b, b__len);
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspaSfF */
|
||||
|
||||
#ifndef Platform__h
|
||||
#define Platform__h
|
||||
|
|
@ -27,7 +27,7 @@ import address Platform_ArgVector;
|
|||
import int16 Platform_SeekSet, Platform_SeekCur, Platform_SeekEnd;
|
||||
import CHAR Platform_nl[3];
|
||||
|
||||
import LONGINT *Platform_FileIdentity__typ;
|
||||
import address *Platform_FileIdentity__typ;
|
||||
|
||||
import BOOLEAN Platform_Absent (int16 e);
|
||||
import int16 Platform_ArgPos (CHAR *s, LONGINT s__len);
|
||||
|
|
@ -45,8 +45,8 @@ import void Platform_GetEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val
|
|||
import void Platform_GetIntArg (int16 n, int32 *val);
|
||||
import void Platform_GetTimeOfDay (int32 *sec, int32 *usec);
|
||||
import void Platform_Halt (int32 code);
|
||||
import int16 Platform_Identify (int32 h, Platform_FileIdentity *identity, LONGINT *identity__typ);
|
||||
import int16 Platform_IdentifyByName (CHAR *n, LONGINT n__len, Platform_FileIdentity *identity, LONGINT *identity__typ);
|
||||
import int16 Platform_Identify (int32 h, Platform_FileIdentity *identity, address *identity__typ);
|
||||
import int16 Platform_IdentifyByName (CHAR *n, LONGINT n__len, Platform_FileIdentity *identity, address *identity__typ);
|
||||
import BOOLEAN Platform_Inaccessible (int16 e);
|
||||
import void Platform_Init (int16 argc, address argvadr);
|
||||
import void Platform_MTimeAsClock (Platform_FileIdentity i, int32 *t, int32 *d);
|
||||
|
|
@ -56,8 +56,8 @@ import address Platform_OSAllocate (address size);
|
|||
import void Platform_OSFree (address address);
|
||||
import int16 Platform_OldRO (CHAR *n, LONGINT n__len, int32 *h);
|
||||
import int16 Platform_OldRW (CHAR *n, LONGINT n__len, int32 *h);
|
||||
import int16 Platform_Read (int32 h, address p, address l, address *n);
|
||||
import int16 Platform_ReadBuf (int32 h, SYSTEM_BYTE *b, LONGINT b__len, address *n);
|
||||
import int16 Platform_Read (int32 h, address p, int32 l, int32 *n);
|
||||
import int16 Platform_ReadBuf (int32 h, SYSTEM_BYTE *b, LONGINT b__len, int32 *n);
|
||||
import int16 Platform_Rename (CHAR *o, LONGINT o__len, CHAR *n, LONGINT n__len);
|
||||
import BOOLEAN Platform_SameFile (Platform_FileIdentity i1, Platform_FileIdentity i2);
|
||||
import BOOLEAN Platform_SameFileTime (Platform_FileIdentity i1, Platform_FileIdentity i2);
|
||||
|
|
@ -65,9 +65,9 @@ import int16 Platform_Seek (int32 h, int32 offset, int16 whence);
|
|||
import void Platform_SetBadInstructionHandler (Platform_SignalHandler handler);
|
||||
import void Platform_SetHalt (Platform_HaltProcedure p);
|
||||
import void Platform_SetInterruptHandler (Platform_SignalHandler handler);
|
||||
import void Platform_SetMTime (Platform_FileIdentity *target, LONGINT *target__typ, Platform_FileIdentity source);
|
||||
import void Platform_SetMTime (Platform_FileIdentity *target, address *target__typ, Platform_FileIdentity source);
|
||||
import void Platform_SetQuitHandler (Platform_SignalHandler handler);
|
||||
import int16 Platform_Size (int32 h, address *l);
|
||||
import int16 Platform_Size (int32 h, int32 *l);
|
||||
import int16 Platform_Sync (int32 h);
|
||||
import int16 Platform_System (CHAR *cmd, LONGINT cmd__len);
|
||||
import int32 Platform_Time (void);
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspaSfF */
|
||||
|
||||
#define INTEGER int16
|
||||
#define LONGINT int32
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspaSfF */
|
||||
|
||||
#ifndef Reals__h
|
||||
#define Reals__h
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspaSfF */
|
||||
|
||||
#define INTEGER int16
|
||||
#define LONGINT int32
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspaSfF */
|
||||
|
||||
#ifndef Strings__h
|
||||
#define Strings__h
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspaSfF */
|
||||
|
||||
#define INTEGER int16
|
||||
#define LONGINT int32
|
||||
|
|
@ -33,7 +33,7 @@ typedef
|
|||
} Texts_ElemMsg;
|
||||
|
||||
typedef
|
||||
void (*Texts_Handler)(Texts_Elem, Texts_ElemMsg*, LONGINT *);
|
||||
void (*Texts_Handler)(Texts_Elem, Texts_ElemMsg*, address *);
|
||||
|
||||
typedef
|
||||
struct Texts_TextDesc *Texts_Text;
|
||||
|
|
@ -167,20 +167,20 @@ export Texts_Elem Texts_new;
|
|||
static Texts_Buffer Texts_del;
|
||||
static Texts_FontsFont Texts_FontsDefault;
|
||||
|
||||
export LONGINT *Texts_FontDesc__typ;
|
||||
export LONGINT *Texts_RunDesc__typ;
|
||||
export LONGINT *Texts_PieceDesc__typ;
|
||||
export LONGINT *Texts_ElemMsg__typ;
|
||||
export LONGINT *Texts_ElemDesc__typ;
|
||||
export LONGINT *Texts_FileMsg__typ;
|
||||
export LONGINT *Texts_CopyMsg__typ;
|
||||
export LONGINT *Texts_IdentifyMsg__typ;
|
||||
export LONGINT *Texts_BufDesc__typ;
|
||||
export LONGINT *Texts_TextDesc__typ;
|
||||
export LONGINT *Texts_Reader__typ;
|
||||
export LONGINT *Texts_Scanner__typ;
|
||||
export LONGINT *Texts_Writer__typ;
|
||||
export LONGINT *Texts__1__typ;
|
||||
export address *Texts_FontDesc__typ;
|
||||
export address *Texts_RunDesc__typ;
|
||||
export address *Texts_PieceDesc__typ;
|
||||
export address *Texts_ElemMsg__typ;
|
||||
export address *Texts_ElemDesc__typ;
|
||||
export address *Texts_FileMsg__typ;
|
||||
export address *Texts_CopyMsg__typ;
|
||||
export address *Texts_IdentifyMsg__typ;
|
||||
export address *Texts_BufDesc__typ;
|
||||
export address *Texts_TextDesc__typ;
|
||||
export address *Texts_Reader__typ;
|
||||
export address *Texts_Scanner__typ;
|
||||
export address *Texts_Writer__typ;
|
||||
export address *Texts__1__typ;
|
||||
|
||||
export void Texts_Append (Texts_Text T, Texts_Buffer B);
|
||||
export void Texts_ChangeLooks (Texts_Text T, int32 beg, int32 end, SET sel, Texts_FontsFont fnt, int8 col, int8 voff);
|
||||
|
|
@ -194,41 +194,41 @@ export Texts_Text Texts_ElemBase (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 Texts_FontsFont Texts_FontsThis (CHAR *name, LONGINT name__len);
|
||||
static void Texts_HandleAlien (Texts_Elem E, Texts_ElemMsg *msg, LONGINT *msg__typ);
|
||||
static void Texts_HandleAlien (Texts_Elem E, Texts_ElemMsg *msg, address *msg__typ);
|
||||
export void Texts_Insert (Texts_Text T, int32 pos, Texts_Buffer B);
|
||||
export void Texts_Load (Files_Rider *r, LONGINT *r__typ, Texts_Text T);
|
||||
static void Texts_Load0 (Files_Rider *r, LONGINT *r__typ, Texts_Text T);
|
||||
export void Texts_Load (Files_Rider *r, address *r__typ, Texts_Text T);
|
||||
static void Texts_Load0 (Files_Rider *r, address *r__typ, Texts_Text T);
|
||||
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_OpenBuf (Texts_Buffer B);
|
||||
export void Texts_OpenReader (Texts_Reader *R, LONGINT *R__typ, Texts_Text T, int32 pos);
|
||||
export void Texts_OpenScanner (Texts_Scanner *S, LONGINT *S__typ, Texts_Text T, int32 pos);
|
||||
export void Texts_OpenWriter (Texts_Writer *W, LONGINT *W__typ);
|
||||
export int32 Texts_Pos (Texts_Reader *R, LONGINT *R__typ);
|
||||
export void Texts_Read (Texts_Reader *R, LONGINT *R__typ, CHAR *ch);
|
||||
export void Texts_ReadElem (Texts_Reader *R, LONGINT *R__typ);
|
||||
export void Texts_ReadPrevElem (Texts_Reader *R, LONGINT *R__typ);
|
||||
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_OpenWriter (Texts_Writer *W, address *W__typ);
|
||||
export int32 Texts_Pos (Texts_Reader *R, address *R__typ);
|
||||
export void Texts_Read (Texts_Reader *R, address *R__typ, CHAR *ch);
|
||||
export void Texts_ReadElem (Texts_Reader *R, address *R__typ);
|
||||
export void Texts_ReadPrevElem (Texts_Reader *R, address *R__typ);
|
||||
export void Texts_Recall (Texts_Buffer *B);
|
||||
export void Texts_Save (Texts_Text T, int32 beg, int32 end, Texts_Buffer B);
|
||||
export void Texts_Scan (Texts_Scanner *S, LONGINT *S__typ);
|
||||
export void Texts_SetColor (Texts_Writer *W, LONGINT *W__typ, int8 col);
|
||||
export void Texts_SetFont (Texts_Writer *W, LONGINT *W__typ, Texts_FontsFont fnt);
|
||||
export void Texts_SetOffset (Texts_Writer *W, LONGINT *W__typ, int8 voff);
|
||||
export void Texts_Scan (Texts_Scanner *S, address *S__typ);
|
||||
export void Texts_SetColor (Texts_Writer *W, address *W__typ, int8 col);
|
||||
export void Texts_SetFont (Texts_Writer *W, address *W__typ, Texts_FontsFont fnt);
|
||||
export void Texts_SetOffset (Texts_Writer *W, address *W__typ, int8 voff);
|
||||
static void Texts_Splice (Texts_Run un, Texts_Run v, Texts_Run w, Texts_Text base);
|
||||
static void Texts_Split (int32 off, Texts_Run *u, Texts_Run *un);
|
||||
export void Texts_Store (Files_Rider *r, LONGINT *r__typ, Texts_Text T);
|
||||
export void Texts_Write (Texts_Writer *W, LONGINT *W__typ, CHAR ch);
|
||||
export void Texts_WriteDate (Texts_Writer *W, LONGINT *W__typ, int32 t, int32 d);
|
||||
export void Texts_WriteElem (Texts_Writer *W, LONGINT *W__typ, Texts_Elem e);
|
||||
export void Texts_WriteHex (Texts_Writer *W, LONGINT *W__typ, int32 x);
|
||||
export void Texts_WriteInt (Texts_Writer *W, LONGINT *W__typ, int64 x, int64 n);
|
||||
export void Texts_WriteLn (Texts_Writer *W, LONGINT *W__typ);
|
||||
export void Texts_WriteLongReal (Texts_Writer *W, LONGINT *W__typ, LONGREAL x, int16 n);
|
||||
export void Texts_WriteLongRealHex (Texts_Writer *W, LONGINT *W__typ, LONGREAL x);
|
||||
export void Texts_WriteReal (Texts_Writer *W, LONGINT *W__typ, REAL x, int16 n);
|
||||
export void Texts_WriteRealFix (Texts_Writer *W, LONGINT *W__typ, REAL x, int16 n, int16 k);
|
||||
export void Texts_WriteRealHex (Texts_Writer *W, LONGINT *W__typ, REAL x);
|
||||
export void Texts_WriteString (Texts_Writer *W, LONGINT *W__typ, CHAR *s, LONGINT s__len);
|
||||
export void Texts_Store (Files_Rider *r, address *r__typ, Texts_Text T);
|
||||
export void Texts_Write (Texts_Writer *W, address *W__typ, CHAR ch);
|
||||
export void Texts_WriteDate (Texts_Writer *W, address *W__typ, int32 t, int32 d);
|
||||
export void Texts_WriteElem (Texts_Writer *W, address *W__typ, Texts_Elem e);
|
||||
export void Texts_WriteHex (Texts_Writer *W, address *W__typ, int32 x);
|
||||
export void Texts_WriteInt (Texts_Writer *W, address *W__typ, int64 x, int64 n);
|
||||
export void Texts_WriteLn (Texts_Writer *W, address *W__typ);
|
||||
export void Texts_WriteLongReal (Texts_Writer *W, address *W__typ, LONGREAL x, int16 n);
|
||||
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_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_WriteString (Texts_Writer *W, address *W__typ, CHAR *s, LONGINT s__len);
|
||||
|
||||
|
||||
static Texts_FontsFont Texts_FontsThis (CHAR *name, LONGINT name__len)
|
||||
|
|
@ -388,7 +388,7 @@ int32 Texts_ElemPos (Texts_Elem E)
|
|||
return _o_result;
|
||||
}
|
||||
|
||||
static void Texts_HandleAlien (Texts_Elem E, Texts_ElemMsg *msg, LONGINT *msg__typ)
|
||||
static void Texts_HandleAlien (Texts_Elem E, Texts_ElemMsg *msg, address *msg__typ)
|
||||
{
|
||||
Texts_Alien e = NIL;
|
||||
Files_Rider r;
|
||||
|
|
@ -604,7 +604,7 @@ void Texts_ChangeLooks (Texts_Text T, int32 beg, int32 end, SET sel, Texts_Fonts
|
|||
}
|
||||
}
|
||||
|
||||
void Texts_OpenReader (Texts_Reader *R, LONGINT *R__typ, Texts_Text T, int32 pos)
|
||||
void Texts_OpenReader (Texts_Reader *R, address *R__typ, Texts_Text T, int32 pos)
|
||||
{
|
||||
Texts_Run u = NIL;
|
||||
if (pos >= T->len) {
|
||||
|
|
@ -618,7 +618,7 @@ void Texts_OpenReader (Texts_Reader *R, LONGINT *R__typ, Texts_Text T, int32 pos
|
|||
}
|
||||
}
|
||||
|
||||
void Texts_Read (Texts_Reader *R, LONGINT *R__typ, CHAR *ch)
|
||||
void Texts_Read (Texts_Reader *R, address *R__typ, CHAR *ch)
|
||||
{
|
||||
Texts_Run u = NIL;
|
||||
int32 pos;
|
||||
|
|
@ -663,7 +663,7 @@ void Texts_Read (Texts_Reader *R, LONGINT *R__typ, CHAR *ch)
|
|||
}
|
||||
}
|
||||
|
||||
void Texts_ReadElem (Texts_Reader *R, LONGINT *R__typ)
|
||||
void Texts_ReadElem (Texts_Reader *R, address *R__typ)
|
||||
{
|
||||
Texts_Run u = NIL, un = NIL;
|
||||
u = (*R).run;
|
||||
|
|
@ -691,7 +691,7 @@ void Texts_ReadElem (Texts_Reader *R, LONGINT *R__typ)
|
|||
}
|
||||
}
|
||||
|
||||
void Texts_ReadPrevElem (Texts_Reader *R, LONGINT *R__typ)
|
||||
void Texts_ReadPrevElem (Texts_Reader *R, address *R__typ)
|
||||
{
|
||||
Texts_Run u = NIL;
|
||||
u = (*R).run->prev;
|
||||
|
|
@ -713,14 +713,14 @@ void Texts_ReadPrevElem (Texts_Reader *R, LONGINT *R__typ)
|
|||
}
|
||||
}
|
||||
|
||||
int32 Texts_Pos (Texts_Reader *R, LONGINT *R__typ)
|
||||
int32 Texts_Pos (Texts_Reader *R, address *R__typ)
|
||||
{
|
||||
int32 _o_result;
|
||||
_o_result = (*R).org + (*R).off;
|
||||
return _o_result;
|
||||
}
|
||||
|
||||
void Texts_OpenScanner (Texts_Scanner *S, LONGINT *S__typ, Texts_Text T, int32 pos)
|
||||
void Texts_OpenScanner (Texts_Scanner *S, address *S__typ, Texts_Text T, int32 pos)
|
||||
{
|
||||
Texts_OpenReader((void*)&*S, S__typ, T, pos);
|
||||
(*S).line = 0;
|
||||
|
|
@ -729,7 +729,7 @@ void Texts_OpenScanner (Texts_Scanner *S, LONGINT *S__typ, Texts_Text T, int32 p
|
|||
|
||||
static struct Scan__31 {
|
||||
Texts_Scanner *S;
|
||||
LONGINT *S__typ;
|
||||
address *S__typ;
|
||||
CHAR *ch;
|
||||
BOOLEAN *negE;
|
||||
int16 *e;
|
||||
|
|
@ -756,7 +756,7 @@ static void ReadScaleFactor__32 (void)
|
|||
}
|
||||
}
|
||||
|
||||
void Texts_Scan (Texts_Scanner *S, LONGINT *S__typ)
|
||||
void Texts_Scan (Texts_Scanner *S, address *S__typ)
|
||||
{
|
||||
CHAR ch, term;
|
||||
BOOLEAN neg, negE, hex;
|
||||
|
|
@ -962,7 +962,7 @@ void Texts_Scan (Texts_Scanner *S, LONGINT *S__typ)
|
|||
Scan__31_s = _s.lnk;
|
||||
}
|
||||
|
||||
void Texts_OpenWriter (Texts_Writer *W, LONGINT *W__typ)
|
||||
void Texts_OpenWriter (Texts_Writer *W, address *W__typ)
|
||||
{
|
||||
__NEW((*W).buf, Texts_BufDesc);
|
||||
Texts_OpenBuf((*W).buf);
|
||||
|
|
@ -973,22 +973,22 @@ void Texts_OpenWriter (Texts_Writer *W, LONGINT *W__typ)
|
|||
Files_Set(&(*W).rider, Files_Rider__typ, (*W).file, 0);
|
||||
}
|
||||
|
||||
void Texts_SetFont (Texts_Writer *W, LONGINT *W__typ, Texts_FontsFont fnt)
|
||||
void Texts_SetFont (Texts_Writer *W, address *W__typ, Texts_FontsFont fnt)
|
||||
{
|
||||
(*W).fnt = fnt;
|
||||
}
|
||||
|
||||
void Texts_SetColor (Texts_Writer *W, LONGINT *W__typ, int8 col)
|
||||
void Texts_SetColor (Texts_Writer *W, address *W__typ, int8 col)
|
||||
{
|
||||
(*W).col = col;
|
||||
}
|
||||
|
||||
void Texts_SetOffset (Texts_Writer *W, LONGINT *W__typ, int8 voff)
|
||||
void Texts_SetOffset (Texts_Writer *W, address *W__typ, int8 voff)
|
||||
{
|
||||
(*W).voff = voff;
|
||||
}
|
||||
|
||||
void Texts_Write (Texts_Writer *W, LONGINT *W__typ, CHAR ch)
|
||||
void Texts_Write (Texts_Writer *W, address *W__typ, CHAR ch)
|
||||
{
|
||||
Texts_Run u = NIL, un = NIL;
|
||||
Texts_Piece p = NIL;
|
||||
|
|
@ -1014,7 +1014,7 @@ void Texts_Write (Texts_Writer *W, LONGINT *W__typ, CHAR ch)
|
|||
}
|
||||
}
|
||||
|
||||
void Texts_WriteElem (Texts_Writer *W, LONGINT *W__typ, Texts_Elem e)
|
||||
void Texts_WriteElem (Texts_Writer *W, address *W__typ, Texts_Elem e)
|
||||
{
|
||||
Texts_Run u = NIL, un = NIL;
|
||||
if (e->base != NIL) {
|
||||
|
|
@ -1033,12 +1033,12 @@ void Texts_WriteElem (Texts_Writer *W, LONGINT *W__typ, Texts_Elem e)
|
|||
un->prev = (Texts_Run)e;
|
||||
}
|
||||
|
||||
void Texts_WriteLn (Texts_Writer *W, LONGINT *W__typ)
|
||||
void Texts_WriteLn (Texts_Writer *W, address *W__typ)
|
||||
{
|
||||
Texts_Write(&*W, W__typ, 0x0d);
|
||||
}
|
||||
|
||||
void Texts_WriteString (Texts_Writer *W, LONGINT *W__typ, CHAR *s, LONGINT s__len)
|
||||
void Texts_WriteString (Texts_Writer *W, address *W__typ, CHAR *s, LONGINT s__len)
|
||||
{
|
||||
int16 i;
|
||||
__DUP(s, s__len, CHAR);
|
||||
|
|
@ -1050,7 +1050,7 @@ void Texts_WriteString (Texts_Writer *W, LONGINT *W__typ, CHAR *s, LONGINT s__le
|
|||
__DEL(s);
|
||||
}
|
||||
|
||||
void Texts_WriteInt (Texts_Writer *W, LONGINT *W__typ, int64 x, int64 n)
|
||||
void Texts_WriteInt (Texts_Writer *W, address *W__typ, int64 x, int64 n)
|
||||
{
|
||||
int16 i;
|
||||
int64 x0;
|
||||
|
|
@ -1085,7 +1085,7 @@ void Texts_WriteInt (Texts_Writer *W, LONGINT *W__typ, int64 x, int64 n)
|
|||
} while (!(i == 0));
|
||||
}
|
||||
|
||||
void Texts_WriteHex (Texts_Writer *W, LONGINT *W__typ, int32 x)
|
||||
void Texts_WriteHex (Texts_Writer *W, address *W__typ, int32 x)
|
||||
{
|
||||
int16 i;
|
||||
int32 y;
|
||||
|
|
@ -1108,7 +1108,7 @@ void Texts_WriteHex (Texts_Writer *W, LONGINT *W__typ, int32 x)
|
|||
} while (!(i == 0));
|
||||
}
|
||||
|
||||
void Texts_WriteReal (Texts_Writer *W, LONGINT *W__typ, REAL x, int16 n)
|
||||
void Texts_WriteReal (Texts_Writer *W, address *W__typ, REAL x, int16 n)
|
||||
{
|
||||
int16 e;
|
||||
REAL x0;
|
||||
|
|
@ -1180,7 +1180,7 @@ void Texts_WriteReal (Texts_Writer *W, LONGINT *W__typ, REAL x, int16 n)
|
|||
|
||||
static struct WriteRealFix__53 {
|
||||
Texts_Writer *W;
|
||||
LONGINT *W__typ;
|
||||
address *W__typ;
|
||||
int16 *i;
|
||||
CHAR (*d)[9];
|
||||
struct WriteRealFix__53 *lnk;
|
||||
|
|
@ -1206,7 +1206,7 @@ static void dig__54 (int16 n)
|
|||
}
|
||||
}
|
||||
|
||||
void Texts_WriteRealFix (Texts_Writer *W, LONGINT *W__typ, REAL x, int16 n, int16 k)
|
||||
void Texts_WriteRealFix (Texts_Writer *W, address *W__typ, REAL x, int16 n, int16 k)
|
||||
{
|
||||
int16 e, i;
|
||||
CHAR sign;
|
||||
|
|
@ -1278,7 +1278,7 @@ void Texts_WriteRealFix (Texts_Writer *W, LONGINT *W__typ, REAL x, int16 n, int1
|
|||
WriteRealFix__53_s = _s.lnk;
|
||||
}
|
||||
|
||||
void Texts_WriteRealHex (Texts_Writer *W, LONGINT *W__typ, REAL x)
|
||||
void Texts_WriteRealHex (Texts_Writer *W, address *W__typ, REAL x)
|
||||
{
|
||||
int16 i;
|
||||
CHAR d[8];
|
||||
|
|
@ -1290,7 +1290,7 @@ void Texts_WriteRealHex (Texts_Writer *W, LONGINT *W__typ, REAL x)
|
|||
} while (!(i == 8));
|
||||
}
|
||||
|
||||
void Texts_WriteLongReal (Texts_Writer *W, LONGINT *W__typ, LONGREAL x, int16 n)
|
||||
void Texts_WriteLongReal (Texts_Writer *W, address *W__typ, LONGREAL x, int16 n)
|
||||
{
|
||||
int16 e;
|
||||
LONGREAL x0;
|
||||
|
|
@ -1362,7 +1362,7 @@ void Texts_WriteLongReal (Texts_Writer *W, LONGINT *W__typ, LONGREAL x, int16 n)
|
|||
}
|
||||
}
|
||||
|
||||
void Texts_WriteLongRealHex (Texts_Writer *W, LONGINT *W__typ, LONGREAL x)
|
||||
void Texts_WriteLongRealHex (Texts_Writer *W, address *W__typ, LONGREAL x)
|
||||
{
|
||||
int16 i;
|
||||
CHAR d[16];
|
||||
|
|
@ -1376,7 +1376,7 @@ void Texts_WriteLongRealHex (Texts_Writer *W, LONGINT *W__typ, LONGREAL x)
|
|||
|
||||
static struct WriteDate__43 {
|
||||
Texts_Writer *W;
|
||||
LONGINT *W__typ;
|
||||
address *W__typ;
|
||||
struct WriteDate__43 *lnk;
|
||||
} *WriteDate__43_s;
|
||||
|
||||
|
|
@ -1389,7 +1389,7 @@ static void WritePair__44 (CHAR ch, int32 x)
|
|||
Texts_Write(&*WriteDate__43_s->W, WriteDate__43_s->W__typ, (CHAR)((int)__MOD(x, 10) + 48));
|
||||
}
|
||||
|
||||
void Texts_WriteDate (Texts_Writer *W, LONGINT *W__typ, int32 t, int32 d)
|
||||
void Texts_WriteDate (Texts_Writer *W, address *W__typ, int32 t, int32 d)
|
||||
{
|
||||
struct WriteDate__43 _s;
|
||||
_s.W = W; _s.W__typ = W__typ;
|
||||
|
|
@ -1413,9 +1413,9 @@ static struct Load0__16 {
|
|||
struct Load0__16 *lnk;
|
||||
} *Load0__16_s;
|
||||
|
||||
static void LoadElem__17 (Files_Rider *r, LONGINT *r__typ, int32 pos, int32 span, Texts_Elem *e);
|
||||
static void LoadElem__17 (Files_Rider *r, address *r__typ, int32 pos, int32 span, Texts_Elem *e);
|
||||
|
||||
static void LoadElem__17 (Files_Rider *r, LONGINT *r__typ, int32 pos, int32 span, Texts_Elem *e)
|
||||
static void LoadElem__17 (Files_Rider *r, address *r__typ, int32 pos, int32 span, Texts_Elem *e)
|
||||
{
|
||||
Modules_Module M = NIL;
|
||||
Modules_Command Cmd;
|
||||
|
|
@ -1466,7 +1466,7 @@ static void LoadElem__17 (Files_Rider *r, LONGINT *r__typ, int32 pos, int32 span
|
|||
}
|
||||
}
|
||||
|
||||
static void Texts_Load0 (Files_Rider *r, LONGINT *r__typ, Texts_Text T)
|
||||
static void Texts_Load0 (Files_Rider *r, address *r__typ, Texts_Text T)
|
||||
{
|
||||
Texts_Run u = NIL, un = NIL;
|
||||
Texts_Piece p = NIL;
|
||||
|
|
@ -1540,7 +1540,7 @@ static void Texts_Load0 (Files_Rider *r, LONGINT *r__typ, Texts_Text T)
|
|||
Load0__16_s = _s.lnk;
|
||||
}
|
||||
|
||||
void Texts_Load (Files_Rider *r, LONGINT *r__typ, Texts_Text T)
|
||||
void Texts_Load (Files_Rider *r, address *r__typ, Texts_Text T)
|
||||
{
|
||||
int16 tag;
|
||||
Files_ReadInt(&*r, r__typ, &tag);
|
||||
|
|
@ -1614,9 +1614,9 @@ static struct Store__39 {
|
|||
struct Store__39 *lnk;
|
||||
} *Store__39_s;
|
||||
|
||||
static void StoreElem__40 (Files_Rider *r, LONGINT *r__typ, int32 pos, Texts_Elem e);
|
||||
static void StoreElem__40 (Files_Rider *r, address *r__typ, int32 pos, Texts_Elem e);
|
||||
|
||||
static void StoreElem__40 (Files_Rider *r, LONGINT *r__typ, int32 pos, Texts_Elem e)
|
||||
static void StoreElem__40 (Files_Rider *r, address *r__typ, int32 pos, Texts_Elem e)
|
||||
{
|
||||
Files_Rider r1;
|
||||
int32 org, span;
|
||||
|
|
@ -1646,7 +1646,7 @@ static void StoreElem__40 (Files_Rider *r, LONGINT *r__typ, int32 pos, Texts_Ele
|
|||
Files_WriteLInt(&r1, Files_Rider__typ, e->H);
|
||||
}
|
||||
|
||||
void Texts_Store (Files_Rider *r, LONGINT *r__typ, Texts_Text T)
|
||||
void Texts_Store (Files_Rider *r, address *r__typ, Texts_Text T)
|
||||
{
|
||||
Files_Rider r1;
|
||||
Texts_Run u = NIL, un = NIL;
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspaSfF */
|
||||
|
||||
#ifndef Texts__h
|
||||
#define Texts__h
|
||||
|
|
@ -35,7 +35,7 @@ typedef
|
|||
} Texts_RunDesc;
|
||||
|
||||
typedef
|
||||
void (*Texts_Handler)(Texts_Elem, Texts_ElemMsg*, LONGINT *);
|
||||
void (*Texts_Handler)(Texts_Elem, Texts_ElemMsg*, address *);
|
||||
|
||||
typedef
|
||||
struct Texts_ElemDesc {
|
||||
|
|
@ -116,18 +116,18 @@ typedef
|
|||
|
||||
import Texts_Elem Texts_new;
|
||||
|
||||
import LONGINT *Texts_FontDesc__typ;
|
||||
import LONGINT *Texts_RunDesc__typ;
|
||||
import LONGINT *Texts_ElemMsg__typ;
|
||||
import LONGINT *Texts_ElemDesc__typ;
|
||||
import LONGINT *Texts_FileMsg__typ;
|
||||
import LONGINT *Texts_CopyMsg__typ;
|
||||
import LONGINT *Texts_IdentifyMsg__typ;
|
||||
import LONGINT *Texts_BufDesc__typ;
|
||||
import LONGINT *Texts_TextDesc__typ;
|
||||
import LONGINT *Texts_Reader__typ;
|
||||
import LONGINT *Texts_Scanner__typ;
|
||||
import LONGINT *Texts_Writer__typ;
|
||||
import address *Texts_FontDesc__typ;
|
||||
import address *Texts_RunDesc__typ;
|
||||
import address *Texts_ElemMsg__typ;
|
||||
import address *Texts_ElemDesc__typ;
|
||||
import address *Texts_FileMsg__typ;
|
||||
import address *Texts_CopyMsg__typ;
|
||||
import address *Texts_IdentifyMsg__typ;
|
||||
import address *Texts_BufDesc__typ;
|
||||
import address *Texts_TextDesc__typ;
|
||||
import address *Texts_Reader__typ;
|
||||
import address *Texts_Scanner__typ;
|
||||
import address *Texts_Writer__typ;
|
||||
|
||||
import void Texts_Append (Texts_Text T, Texts_Buffer B);
|
||||
import void Texts_ChangeLooks (Texts_Text T, int32 beg, int32 end, SET sel, Texts_FontsFont fnt, int8 col, int8 voff);
|
||||
|
|
@ -138,35 +138,35 @@ import void Texts_Delete (Texts_Text T, int32 beg, int32 end);
|
|||
import Texts_Text Texts_ElemBase (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_Load (Files_Rider *r, LONGINT *r__typ, Texts_Text T);
|
||||
import void Texts_Load (Files_Rider *r, address *r__typ, Texts_Text T);
|
||||
import void Texts_Open (Texts_Text T, CHAR *name, LONGINT name__len);
|
||||
import void Texts_OpenBuf (Texts_Buffer B);
|
||||
import void Texts_OpenReader (Texts_Reader *R, LONGINT *R__typ, Texts_Text T, int32 pos);
|
||||
import void Texts_OpenScanner (Texts_Scanner *S, LONGINT *S__typ, Texts_Text T, int32 pos);
|
||||
import void Texts_OpenWriter (Texts_Writer *W, LONGINT *W__typ);
|
||||
import int32 Texts_Pos (Texts_Reader *R, LONGINT *R__typ);
|
||||
import void Texts_Read (Texts_Reader *R, LONGINT *R__typ, CHAR *ch);
|
||||
import void Texts_ReadElem (Texts_Reader *R, LONGINT *R__typ);
|
||||
import void Texts_ReadPrevElem (Texts_Reader *R, LONGINT *R__typ);
|
||||
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_OpenWriter (Texts_Writer *W, address *W__typ);
|
||||
import int32 Texts_Pos (Texts_Reader *R, address *R__typ);
|
||||
import void Texts_Read (Texts_Reader *R, address *R__typ, CHAR *ch);
|
||||
import void Texts_ReadElem (Texts_Reader *R, address *R__typ);
|
||||
import void Texts_ReadPrevElem (Texts_Reader *R, address *R__typ);
|
||||
import void Texts_Recall (Texts_Buffer *B);
|
||||
import void Texts_Save (Texts_Text T, int32 beg, int32 end, Texts_Buffer B);
|
||||
import void Texts_Scan (Texts_Scanner *S, LONGINT *S__typ);
|
||||
import void Texts_SetColor (Texts_Writer *W, LONGINT *W__typ, int8 col);
|
||||
import void Texts_SetFont (Texts_Writer *W, LONGINT *W__typ, Texts_FontsFont fnt);
|
||||
import void Texts_SetOffset (Texts_Writer *W, LONGINT *W__typ, int8 voff);
|
||||
import void Texts_Store (Files_Rider *r, LONGINT *r__typ, Texts_Text T);
|
||||
import void Texts_Write (Texts_Writer *W, LONGINT *W__typ, CHAR ch);
|
||||
import void Texts_WriteDate (Texts_Writer *W, LONGINT *W__typ, int32 t, int32 d);
|
||||
import void Texts_WriteElem (Texts_Writer *W, LONGINT *W__typ, Texts_Elem e);
|
||||
import void Texts_WriteHex (Texts_Writer *W, LONGINT *W__typ, int32 x);
|
||||
import void Texts_WriteInt (Texts_Writer *W, LONGINT *W__typ, int64 x, int64 n);
|
||||
import void Texts_WriteLn (Texts_Writer *W, LONGINT *W__typ);
|
||||
import void Texts_WriteLongReal (Texts_Writer *W, LONGINT *W__typ, LONGREAL x, int16 n);
|
||||
import void Texts_WriteLongRealHex (Texts_Writer *W, LONGINT *W__typ, LONGREAL x);
|
||||
import void Texts_WriteReal (Texts_Writer *W, LONGINT *W__typ, REAL x, int16 n);
|
||||
import void Texts_WriteRealFix (Texts_Writer *W, LONGINT *W__typ, REAL x, int16 n, int16 k);
|
||||
import void Texts_WriteRealHex (Texts_Writer *W, LONGINT *W__typ, REAL x);
|
||||
import void Texts_WriteString (Texts_Writer *W, LONGINT *W__typ, CHAR *s, LONGINT s__len);
|
||||
import void Texts_Scan (Texts_Scanner *S, address *S__typ);
|
||||
import void Texts_SetColor (Texts_Writer *W, address *W__typ, int8 col);
|
||||
import void Texts_SetFont (Texts_Writer *W, address *W__typ, Texts_FontsFont fnt);
|
||||
import void Texts_SetOffset (Texts_Writer *W, address *W__typ, int8 voff);
|
||||
import void Texts_Store (Files_Rider *r, address *r__typ, Texts_Text T);
|
||||
import void Texts_Write (Texts_Writer *W, address *W__typ, CHAR ch);
|
||||
import void Texts_WriteDate (Texts_Writer *W, address *W__typ, int32 t, int32 d);
|
||||
import void Texts_WriteElem (Texts_Writer *W, address *W__typ, Texts_Elem e);
|
||||
import void Texts_WriteHex (Texts_Writer *W, address *W__typ, int32 x);
|
||||
import void Texts_WriteInt (Texts_Writer *W, address *W__typ, int64 x, int64 n);
|
||||
import void Texts_WriteLn (Texts_Writer *W, address *W__typ);
|
||||
import void Texts_WriteLongReal (Texts_Writer *W, address *W__typ, LONGREAL x, int16 n);
|
||||
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_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_WriteString (Texts_Writer *W, address *W__typ, CHAR *s, LONGINT s__len);
|
||||
import void *Texts__init(void);
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspamSf */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspamSf */
|
||||
|
||||
#define INTEGER int16
|
||||
#define LONGINT int32
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspaSfF */
|
||||
|
||||
#define INTEGER int16
|
||||
#define LONGINT int32
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspaSfF */
|
||||
|
||||
#ifndef errors__h
|
||||
#define errors__h
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspaSfF */
|
||||
|
||||
#define INTEGER int16
|
||||
#define LONGINT int32
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspaSfF */
|
||||
|
||||
#ifndef extTools__h
|
||||
#define extTools__h
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspaSfF */
|
||||
|
||||
#define INTEGER int16
|
||||
#define LONGINT int32
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/09/22] for gcc LP64 on cygwin xtspaSfF */
|
||||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspaSfF */
|
||||
|
||||
#ifndef vt100__h
|
||||
#define vt100__h
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue