mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-06 09:52:24 +00:00
Use SYSTEM.ADDRESS in libraries. Build all with -O2. Support INC(a,b) for any int a,b that support a:=a+b.
This commit is contained in:
David Brown
parent
f1cbbdba28
commit
22a4f8e263
92 changed files with 2752 additions and 2695 deletions
|
|
@ -1,8 +1,8 @@
|
|||
/* voc 1.95 [2016/09/23] for gcc LP64 on cygwin xtspaSfF */
|
||||
|
||||
#define INTEGER int32
|
||||
#define LONGINT int64
|
||||
#define SET uint64
|
||||
#define INTEGER int16
|
||||
#define LONGINT int32
|
||||
#define SET uint32
|
||||
|
||||
#include "SYSTEM.h"
|
||||
|
||||
|
|
@ -20,84 +20,84 @@ typedef
|
|||
|
||||
typedef
|
||||
struct Platform_FileIdentity {
|
||||
int64 volume, index, mtime;
|
||||
int32 volume, index, mtime;
|
||||
} Platform_FileIdentity;
|
||||
|
||||
typedef
|
||||
void (*Platform_HaltProcedure)(int64);
|
||||
void (*Platform_HaltProcedure)(int32);
|
||||
|
||||
typedef
|
||||
void (*Platform_SignalHandler)(int32);
|
||||
void (*Platform_SignalHandler)(int16);
|
||||
|
||||
|
||||
export BOOLEAN Platform_LittleEndian;
|
||||
export address Platform_MainStackFrame;
|
||||
export int64 Platform_HaltCode;
|
||||
export int32 Platform_PID;
|
||||
export int32 Platform_HaltCode;
|
||||
export int16 Platform_PID;
|
||||
export CHAR Platform_CWD[256];
|
||||
export int32 Platform_ArgCount;
|
||||
export int16 Platform_ArgCount;
|
||||
export address Platform_ArgVector;
|
||||
static Platform_HaltProcedure Platform_HaltHandler;
|
||||
static int64 Platform_TimeStart;
|
||||
export int32 Platform_SeekSet, Platform_SeekCur, Platform_SeekEnd;
|
||||
static int32 Platform_TimeStart;
|
||||
export int16 Platform_SeekSet, Platform_SeekCur, Platform_SeekEnd;
|
||||
export CHAR Platform_nl[3];
|
||||
|
||||
export address *Platform_FileIdentity__typ;
|
||||
|
||||
export BOOLEAN Platform_Absent (int32 e);
|
||||
export int32 Platform_ArgPos (CHAR *s, LONGINT s__len);
|
||||
export void Platform_AssertFail (int64 code);
|
||||
export int32 Platform_Chdir (CHAR *n, LONGINT n__len);
|
||||
export int32 Platform_Close (int64 h);
|
||||
export BOOLEAN Platform_ConnectionFailed (int32 e);
|
||||
export void Platform_Delay (int64 ms);
|
||||
export BOOLEAN Platform_DifferentFilesystems (int32 e);
|
||||
static void Platform_DisplayHaltCode (int64 code);
|
||||
export int32 Platform_Error (void);
|
||||
export void Platform_Exit (int32 code);
|
||||
export void Platform_GetArg (int32 n, CHAR *val, LONGINT val__len);
|
||||
export void Platform_GetClock (int64 *t, int64 *d);
|
||||
export BOOLEAN Platform_Absent (int16 e);
|
||||
export int16 Platform_ArgPos (CHAR *s, LONGINT s__len);
|
||||
export void Platform_AssertFail (int32 code);
|
||||
export int16 Platform_Chdir (CHAR *n, LONGINT n__len);
|
||||
export int16 Platform_Close (int32 h);
|
||||
export BOOLEAN Platform_ConnectionFailed (int16 e);
|
||||
export void Platform_Delay (int32 ms);
|
||||
export BOOLEAN Platform_DifferentFilesystems (int16 e);
|
||||
static void Platform_DisplayHaltCode (int32 code);
|
||||
export int16 Platform_Error (void);
|
||||
export void Platform_Exit (int16 code);
|
||||
export void Platform_GetArg (int16 n, CHAR *val, LONGINT val__len);
|
||||
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_GetIntArg (int32 n, int64 *val);
|
||||
export void Platform_GetTimeOfDay (int64 *sec, int64 *usec);
|
||||
export void Platform_Halt (int64 code);
|
||||
export int32 Platform_Identify (int64 h, Platform_FileIdentity *identity, address *identity__typ);
|
||||
export int32 Platform_IdentifyByName (CHAR *n, LONGINT n__len, Platform_FileIdentity *identity, address *identity__typ);
|
||||
export BOOLEAN Platform_Inaccessible (int32 e);
|
||||
export void Platform_Init (int32 argc, address argvadr);
|
||||
export void Platform_MTimeAsClock (Platform_FileIdentity i, int64 *t, int64 *d);
|
||||
export int32 Platform_New (CHAR *n, LONGINT n__len, int64 *h);
|
||||
export BOOLEAN Platform_NoSuchDirectory (int32 e);
|
||||
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, 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);
|
||||
export int16 Platform_New (CHAR *n, LONGINT n__len, int32 *h);
|
||||
export BOOLEAN Platform_NoSuchDirectory (int16 e);
|
||||
export address Platform_OSAllocate (address size);
|
||||
export void Platform_OSFree (address address);
|
||||
export int32 Platform_OldRO (CHAR *n, LONGINT n__len, int64 *h);
|
||||
export int32 Platform_OldRW (CHAR *n, LONGINT n__len, int64 *h);
|
||||
export int32 Platform_Read (int64 h, address p, int64 l, int64 *n);
|
||||
export int32 Platform_ReadBuf (int64 h, SYSTEM_BYTE *b, LONGINT b__len, int64 *n);
|
||||
export int32 Platform_Rename (CHAR *o, LONGINT o__len, CHAR *n, LONGINT n__len);
|
||||
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, 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);
|
||||
export int32 Platform_Seek (int64 h, int64 offset, int32 whence);
|
||||
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, address *target__typ, Platform_FileIdentity source);
|
||||
export void Platform_SetQuitHandler (Platform_SignalHandler handler);
|
||||
export int32 Platform_Size (int64 h, int64 *l);
|
||||
export int32 Platform_Sync (int64 h);
|
||||
export int32 Platform_System (CHAR *cmd, LONGINT cmd__len);
|
||||
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);
|
||||
export int64 Platform_Time (void);
|
||||
export BOOLEAN Platform_TimedOut (int32 e);
|
||||
export BOOLEAN Platform_TooManyFiles (int32 e);
|
||||
export int32 Platform_Truncate (int64 h, int64 l);
|
||||
export int32 Platform_Unlink (CHAR *n, LONGINT n__len);
|
||||
export int32 Platform_Write (int64 h, address p, address l);
|
||||
static void Platform_YMDHMStoClock (int64 ye, int64 mo, int64 da, int64 ho, int64 mi, int64 se, int64 *t, int64 *d);
|
||||
export int32 Platform_Time (void);
|
||||
export BOOLEAN Platform_TimedOut (int16 e);
|
||||
export BOOLEAN Platform_TooManyFiles (int16 e);
|
||||
export int16 Platform_Truncate (int32 h, int32 l);
|
||||
export int16 Platform_Unlink (CHAR *n, LONGINT n__len);
|
||||
export int16 Platform_Write (int32 h, address 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_errch (CHAR c);
|
||||
static void Platform_errint (int64 l);
|
||||
static void Platform_errint (int32 l);
|
||||
static void Platform_errln (void);
|
||||
static void Platform_errposint (int64 l);
|
||||
static void Platform_errposint (int32 l);
|
||||
export BOOLEAN Platform_getEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val__len);
|
||||
|
||||
#include <errno.h>
|
||||
|
|
@ -144,7 +144,7 @@ extern void Heap_InitHeap();
|
|||
#define Platform_opennew(n, n__len) open((char*)n, O_CREAT | O_TRUNC | O_RDWR, 0664)
|
||||
#define Platform_openro(n, n__len) open((char*)n, O_RDONLY)
|
||||
#define Platform_openrw(n, n__len) open((char*)n, O_RDWR)
|
||||
#define Platform_readfile(fd, p, l) read(fd, (void*)(address)(p), l)
|
||||
#define Platform_readfile(fd, p, l) (LONGINT)read(fd, (void*)(address)(p), l)
|
||||
#define Platform_rename(o, o__len, n, n__len) rename((char*)o, (char*)n)
|
||||
#define Platform_sectotm(s) struct tm *time = localtime((time_t*)&s)
|
||||
#define Platform_seekcur() SEEK_CUR
|
||||
|
|
@ -169,49 +169,49 @@ extern void Heap_InitHeap();
|
|||
#define Platform_unlink(n, n__len) unlink((char*)n)
|
||||
#define Platform_writefile(fd, p, l) write(fd, (void*)(address)(p), l)
|
||||
|
||||
BOOLEAN Platform_TooManyFiles (int32 e)
|
||||
BOOLEAN Platform_TooManyFiles (int16 e)
|
||||
{
|
||||
BOOLEAN _o_result;
|
||||
_o_result = e == Platform_EMFILE() || e == Platform_ENFILE();
|
||||
return _o_result;
|
||||
}
|
||||
|
||||
BOOLEAN Platform_NoSuchDirectory (int32 e)
|
||||
BOOLEAN Platform_NoSuchDirectory (int16 e)
|
||||
{
|
||||
BOOLEAN _o_result;
|
||||
_o_result = e == Platform_ENOENT();
|
||||
return _o_result;
|
||||
}
|
||||
|
||||
BOOLEAN Platform_DifferentFilesystems (int32 e)
|
||||
BOOLEAN Platform_DifferentFilesystems (int16 e)
|
||||
{
|
||||
BOOLEAN _o_result;
|
||||
_o_result = e == Platform_EXDEV();
|
||||
return _o_result;
|
||||
}
|
||||
|
||||
BOOLEAN Platform_Inaccessible (int32 e)
|
||||
BOOLEAN Platform_Inaccessible (int16 e)
|
||||
{
|
||||
BOOLEAN _o_result;
|
||||
_o_result = (e == Platform_EACCES() || e == Platform_EROFS()) || e == Platform_EAGAIN();
|
||||
return _o_result;
|
||||
}
|
||||
|
||||
BOOLEAN Platform_Absent (int32 e)
|
||||
BOOLEAN Platform_Absent (int16 e)
|
||||
{
|
||||
BOOLEAN _o_result;
|
||||
_o_result = e == Platform_ENOENT();
|
||||
return _o_result;
|
||||
}
|
||||
|
||||
BOOLEAN Platform_TimedOut (int32 e)
|
||||
BOOLEAN Platform_TimedOut (int16 e)
|
||||
{
|
||||
BOOLEAN _o_result;
|
||||
_o_result = e == Platform_ETIMEDOUT();
|
||||
return _o_result;
|
||||
}
|
||||
|
||||
BOOLEAN Platform_ConnectionFailed (int32 e)
|
||||
BOOLEAN Platform_ConnectionFailed (int16 e)
|
||||
{
|
||||
BOOLEAN _o_result;
|
||||
_o_result = ((e == Platform_ECONNREFUSED() || e == Platform_ECONNABORTED()) || e == Platform_ENETUNREACH()) || e == Platform_EHOSTUNREACH();
|
||||
|
|
@ -230,7 +230,7 @@ void Platform_OSFree (address address)
|
|||
Platform_free(address);
|
||||
}
|
||||
|
||||
void Platform_Init (int32 argc, address argvadr)
|
||||
void Platform_Init (int16 argc, address argvadr)
|
||||
{
|
||||
Platform_ArgVecPtr av = NIL;
|
||||
Platform_MainStackFrame = argvadr;
|
||||
|
|
@ -264,7 +264,7 @@ void Platform_GetEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val__len)
|
|||
__DEL(var);
|
||||
}
|
||||
|
||||
void Platform_GetArg (int32 n, CHAR *val, LONGINT val__len)
|
||||
void Platform_GetArg (int16 n, CHAR *val, LONGINT val__len)
|
||||
{
|
||||
Platform_ArgVec av = NIL;
|
||||
if (n < Platform_ArgCount) {
|
||||
|
|
@ -273,10 +273,10 @@ void Platform_GetArg (int32 n, CHAR *val, LONGINT val__len)
|
|||
}
|
||||
}
|
||||
|
||||
void Platform_GetIntArg (int32 n, int64 *val)
|
||||
void Platform_GetIntArg (int16 n, int32 *val)
|
||||
{
|
||||
CHAR s[64];
|
||||
int64 k, d, i;
|
||||
int32 k, d, i;
|
||||
s[0] = 0x00;
|
||||
Platform_GetArg(n, (void*)s, 64);
|
||||
i = 0;
|
||||
|
|
@ -284,11 +284,11 @@ void Platform_GetIntArg (int32 n, int64 *val)
|
|||
i = 1;
|
||||
}
|
||||
k = 0;
|
||||
d = s[__X(i, 64)] - 48;
|
||||
d = (int16)s[__X(i, 64)] - 48;
|
||||
while ((d >= 0 && d <= 9)) {
|
||||
k = k * 10 + d;
|
||||
i += 1;
|
||||
d = s[__X(i, 64)] - 48;
|
||||
d = (int16)s[__X(i, 64)] - 48;
|
||||
}
|
||||
if (s[0] == '-') {
|
||||
k = -k;
|
||||
|
|
@ -299,10 +299,10 @@ void Platform_GetIntArg (int32 n, int64 *val)
|
|||
}
|
||||
}
|
||||
|
||||
int32 Platform_ArgPos (CHAR *s, LONGINT s__len)
|
||||
int16 Platform_ArgPos (CHAR *s, LONGINT s__len)
|
||||
{
|
||||
int32 _o_result;
|
||||
int32 i;
|
||||
int16 _o_result;
|
||||
int16 i;
|
||||
CHAR arg[256];
|
||||
__DUP(s, s__len, CHAR);
|
||||
i = 0;
|
||||
|
|
@ -331,64 +331,64 @@ void Platform_SetBadInstructionHandler (Platform_SignalHandler handler)
|
|||
Platform_sethandler(4, handler);
|
||||
}
|
||||
|
||||
static void Platform_YMDHMStoClock (int64 ye, int64 mo, int64 da, int64 ho, int64 mi, int64 se, int64 *t, int64 *d)
|
||||
static void Platform_YMDHMStoClock (int32 ye, int32 mo, int32 da, int32 ho, int32 mi, int32 se, int32 *t, int32 *d)
|
||||
{
|
||||
*d = (__ASHL(__MOD(ye, 100), 9) + __ASHL(mo + 1, 5)) + da;
|
||||
*d = (__ASHL((int)__MOD(ye, 100), 9) + __ASHL(mo + 1, 5)) + da;
|
||||
*t = (__ASHL(ho, 12) + __ASHL(mi, 6)) + se;
|
||||
}
|
||||
|
||||
void Platform_GetClock (int64 *t, int64 *d)
|
||||
void Platform_GetClock (int32 *t, int32 *d)
|
||||
{
|
||||
Platform_gettimeval();
|
||||
Platform_sectotm(Platform_tvsec());
|
||||
Platform_YMDHMStoClock(Platform_tmyear(), Platform_tmmon(), Platform_tmmday(), Platform_tmhour(), Platform_tmmin(), Platform_tmsec(), &*t, &*d);
|
||||
}
|
||||
|
||||
void Platform_GetTimeOfDay (int64 *sec, int64 *usec)
|
||||
void Platform_GetTimeOfDay (int32 *sec, int32 *usec)
|
||||
{
|
||||
Platform_gettimeval();
|
||||
*sec = Platform_tvsec();
|
||||
*usec = Platform_tvusec();
|
||||
}
|
||||
|
||||
int64 Platform_Time (void)
|
||||
int32 Platform_Time (void)
|
||||
{
|
||||
int64 _o_result;
|
||||
int64 ms;
|
||||
int32 _o_result;
|
||||
int32 ms;
|
||||
Platform_gettimeval();
|
||||
ms = __DIVF(Platform_tvusec(), 1000) + Platform_tvsec() * 1000;
|
||||
_o_result = __MOD(ms - Platform_TimeStart, 2147483647);
|
||||
ms = (int)__DIVF(Platform_tvusec(), 1000) + Platform_tvsec() * 1000;
|
||||
_o_result = (int)__MOD(ms - Platform_TimeStart, 2147483647);
|
||||
return _o_result;
|
||||
}
|
||||
|
||||
void Platform_Delay (int64 ms)
|
||||
void Platform_Delay (int32 ms)
|
||||
{
|
||||
int64 s, ns;
|
||||
int32 s, ns;
|
||||
s = __DIV(ms, 1000);
|
||||
ns = __MOD(ms, 1000) * 1000000;
|
||||
ns = (int)__MOD(ms, 1000) * 1000000;
|
||||
Platform_nanosleep(s, ns);
|
||||
}
|
||||
|
||||
int32 Platform_System (CHAR *cmd, LONGINT cmd__len)
|
||||
int16 Platform_System (CHAR *cmd, LONGINT cmd__len)
|
||||
{
|
||||
int32 _o_result;
|
||||
int16 _o_result;
|
||||
__DUP(cmd, cmd__len, CHAR);
|
||||
_o_result = Platform_system(cmd, cmd__len);
|
||||
__DEL(cmd);
|
||||
return _o_result;
|
||||
}
|
||||
|
||||
int32 Platform_Error (void)
|
||||
int16 Platform_Error (void)
|
||||
{
|
||||
int32 _o_result;
|
||||
int16 _o_result;
|
||||
_o_result = Platform_err();
|
||||
return _o_result;
|
||||
}
|
||||
|
||||
int32 Platform_OldRO (CHAR *n, LONGINT n__len, int64 *h)
|
||||
int16 Platform_OldRO (CHAR *n, LONGINT n__len, int32 *h)
|
||||
{
|
||||
int32 _o_result;
|
||||
int32 fd;
|
||||
int16 _o_result;
|
||||
int16 fd;
|
||||
fd = Platform_openro(n, n__len);
|
||||
if (fd < 0) {
|
||||
_o_result = Platform_err();
|
||||
|
|
@ -401,10 +401,10 @@ int32 Platform_OldRO (CHAR *n, LONGINT n__len, int64 *h)
|
|||
__RETCHK;
|
||||
}
|
||||
|
||||
int32 Platform_OldRW (CHAR *n, LONGINT n__len, int64 *h)
|
||||
int16 Platform_OldRW (CHAR *n, LONGINT n__len, int32 *h)
|
||||
{
|
||||
int32 _o_result;
|
||||
int32 fd;
|
||||
int16 _o_result;
|
||||
int16 fd;
|
||||
fd = Platform_openrw(n, n__len);
|
||||
if (fd < 0) {
|
||||
_o_result = Platform_err();
|
||||
|
|
@ -417,10 +417,10 @@ int32 Platform_OldRW (CHAR *n, LONGINT n__len, int64 *h)
|
|||
__RETCHK;
|
||||
}
|
||||
|
||||
int32 Platform_New (CHAR *n, LONGINT n__len, int64 *h)
|
||||
int16 Platform_New (CHAR *n, LONGINT n__len, int32 *h)
|
||||
{
|
||||
int32 _o_result;
|
||||
int32 fd;
|
||||
int16 _o_result;
|
||||
int16 fd;
|
||||
fd = Platform_opennew(n, n__len);
|
||||
if (fd < 0) {
|
||||
_o_result = Platform_err();
|
||||
|
|
@ -433,9 +433,9 @@ int32 Platform_New (CHAR *n, LONGINT n__len, int64 *h)
|
|||
__RETCHK;
|
||||
}
|
||||
|
||||
int32 Platform_Close (int64 h)
|
||||
int16 Platform_Close (int32 h)
|
||||
{
|
||||
int32 _o_result;
|
||||
int16 _o_result;
|
||||
if (Platform_closefile(h) < 0) {
|
||||
_o_result = Platform_err();
|
||||
return _o_result;
|
||||
|
|
@ -446,9 +446,9 @@ int32 Platform_Close (int64 h)
|
|||
__RETCHK;
|
||||
}
|
||||
|
||||
int32 Platform_Identify (int64 h, Platform_FileIdentity *identity, address *identity__typ)
|
||||
int16 Platform_Identify (int32 h, Platform_FileIdentity *identity, address *identity__typ)
|
||||
{
|
||||
int32 _o_result;
|
||||
int16 _o_result;
|
||||
Platform_structstats();
|
||||
if (Platform_fstat(h) < 0) {
|
||||
_o_result = Platform_err();
|
||||
|
|
@ -461,9 +461,9 @@ int32 Platform_Identify (int64 h, Platform_FileIdentity *identity, address *iden
|
|||
return _o_result;
|
||||
}
|
||||
|
||||
int32 Platform_IdentifyByName (CHAR *n, LONGINT n__len, Platform_FileIdentity *identity, address *identity__typ)
|
||||
int16 Platform_IdentifyByName (CHAR *n, LONGINT n__len, Platform_FileIdentity *identity, address *identity__typ)
|
||||
{
|
||||
int32 _o_result;
|
||||
int16 _o_result;
|
||||
__DUP(n, n__len, CHAR);
|
||||
Platform_structstats();
|
||||
if (Platform_stat(n, n__len) < 0) {
|
||||
|
|
@ -498,15 +498,15 @@ void Platform_SetMTime (Platform_FileIdentity *target, address *target__typ, Pla
|
|||
(*target).mtime = source.mtime;
|
||||
}
|
||||
|
||||
void Platform_MTimeAsClock (Platform_FileIdentity i, int64 *t, int64 *d)
|
||||
void Platform_MTimeAsClock (Platform_FileIdentity i, int32 *t, int32 *d)
|
||||
{
|
||||
Platform_sectotm(i.mtime);
|
||||
Platform_YMDHMStoClock(Platform_tmyear(), Platform_tmmon(), Platform_tmmday(), Platform_tmhour(), Platform_tmmin(), Platform_tmsec(), &*t, &*d);
|
||||
}
|
||||
|
||||
int32 Platform_Size (int64 h, int64 *l)
|
||||
int16 Platform_Size (int32 h, int32 *l)
|
||||
{
|
||||
int32 _o_result;
|
||||
int16 _o_result;
|
||||
Platform_structstats();
|
||||
if (Platform_fstat(h) < 0) {
|
||||
_o_result = Platform_err();
|
||||
|
|
@ -517,9 +517,9 @@ int32 Platform_Size (int64 h, int64 *l)
|
|||
return _o_result;
|
||||
}
|
||||
|
||||
int32 Platform_Read (int64 h, address p, int64 l, int64 *n)
|
||||
int16 Platform_Read (int32 h, address p, int32 l, int32 *n)
|
||||
{
|
||||
int32 _o_result;
|
||||
int16 _o_result;
|
||||
*n = Platform_readfile(h, p, l);
|
||||
if (*n < 0) {
|
||||
*n = 0;
|
||||
|
|
@ -532,9 +532,9 @@ int32 Platform_Read (int64 h, address p, int64 l, int64 *n)
|
|||
__RETCHK;
|
||||
}
|
||||
|
||||
int32 Platform_ReadBuf (int64 h, SYSTEM_BYTE *b, LONGINT b__len, int64 *n)
|
||||
int16 Platform_ReadBuf (int32 h, SYSTEM_BYTE *b, LONGINT b__len, int32 *n)
|
||||
{
|
||||
int32 _o_result;
|
||||
int16 _o_result;
|
||||
*n = Platform_readfile(h, (address)b, b__len);
|
||||
if (*n < 0) {
|
||||
*n = 0;
|
||||
|
|
@ -547,9 +547,9 @@ int32 Platform_ReadBuf (int64 h, SYSTEM_BYTE *b, LONGINT b__len, int64 *n)
|
|||
__RETCHK;
|
||||
}
|
||||
|
||||
int32 Platform_Write (int64 h, address p, address l)
|
||||
int16 Platform_Write (int32 h, address p, int32 l)
|
||||
{
|
||||
int32 _o_result;
|
||||
int16 _o_result;
|
||||
address written;
|
||||
written = Platform_writefile(h, p, l);
|
||||
if (written < 0) {
|
||||
|
|
@ -562,9 +562,9 @@ int32 Platform_Write (int64 h, address p, address l)
|
|||
__RETCHK;
|
||||
}
|
||||
|
||||
int32 Platform_Sync (int64 h)
|
||||
int16 Platform_Sync (int32 h)
|
||||
{
|
||||
int32 _o_result;
|
||||
int16 _o_result;
|
||||
if (Platform_fsync(h) < 0) {
|
||||
_o_result = Platform_err();
|
||||
return _o_result;
|
||||
|
|
@ -575,9 +575,9 @@ int32 Platform_Sync (int64 h)
|
|||
__RETCHK;
|
||||
}
|
||||
|
||||
int32 Platform_Seek (int64 h, int64 offset, int32 whence)
|
||||
int16 Platform_Seek (int32 h, int32 offset, int16 whence)
|
||||
{
|
||||
int32 _o_result;
|
||||
int16 _o_result;
|
||||
if (Platform_lseek(h, offset, whence) < 0) {
|
||||
_o_result = Platform_err();
|
||||
return _o_result;
|
||||
|
|
@ -588,9 +588,9 @@ int32 Platform_Seek (int64 h, int64 offset, int32 whence)
|
|||
__RETCHK;
|
||||
}
|
||||
|
||||
int32 Platform_Truncate (int64 h, int64 l)
|
||||
int16 Platform_Truncate (int32 h, int32 l)
|
||||
{
|
||||
int32 _o_result;
|
||||
int16 _o_result;
|
||||
if (Platform_ftruncate(h, l) < 0) {
|
||||
_o_result = Platform_err();
|
||||
return _o_result;
|
||||
|
|
@ -601,9 +601,9 @@ int32 Platform_Truncate (int64 h, int64 l)
|
|||
__RETCHK;
|
||||
}
|
||||
|
||||
int32 Platform_Unlink (CHAR *n, LONGINT n__len)
|
||||
int16 Platform_Unlink (CHAR *n, LONGINT n__len)
|
||||
{
|
||||
int32 _o_result;
|
||||
int16 _o_result;
|
||||
if (Platform_unlink(n, n__len) < 0) {
|
||||
_o_result = Platform_err();
|
||||
return _o_result;
|
||||
|
|
@ -614,10 +614,10 @@ int32 Platform_Unlink (CHAR *n, LONGINT n__len)
|
|||
__RETCHK;
|
||||
}
|
||||
|
||||
int32 Platform_Chdir (CHAR *n, LONGINT n__len)
|
||||
int16 Platform_Chdir (CHAR *n, LONGINT n__len)
|
||||
{
|
||||
int32 _o_result;
|
||||
int32 r;
|
||||
int16 _o_result;
|
||||
int16 r;
|
||||
r = Platform_chdir(n, n__len);
|
||||
Platform_getcwd((void*)Platform_CWD, 256);
|
||||
if (r < 0) {
|
||||
|
|
@ -630,9 +630,9 @@ int32 Platform_Chdir (CHAR *n, LONGINT n__len)
|
|||
__RETCHK;
|
||||
}
|
||||
|
||||
int32 Platform_Rename (CHAR *o, LONGINT o__len, CHAR *n, LONGINT n__len)
|
||||
int16 Platform_Rename (CHAR *o, LONGINT o__len, CHAR *n, LONGINT n__len)
|
||||
{
|
||||
int32 _o_result;
|
||||
int16 _o_result;
|
||||
if (Platform_rename(o, o__len, n, n__len) < 0) {
|
||||
_o_result = Platform_err();
|
||||
return _o_result;
|
||||
|
|
@ -643,7 +643,7 @@ int32 Platform_Rename (CHAR *o, LONGINT o__len, CHAR *n, LONGINT n__len)
|
|||
__RETCHK;
|
||||
}
|
||||
|
||||
void Platform_Exit (int32 code)
|
||||
void Platform_Exit (int16 code)
|
||||
{
|
||||
Platform_exit(code);
|
||||
}
|
||||
|
|
@ -658,15 +658,15 @@ static void Platform_errln (void)
|
|||
Platform_errch(0x0a);
|
||||
}
|
||||
|
||||
static void Platform_errposint (int64 l)
|
||||
static void Platform_errposint (int32 l)
|
||||
{
|
||||
if (l > 10) {
|
||||
Platform_errposint(__DIV(l, 10));
|
||||
}
|
||||
Platform_errch((CHAR)(48 + __MOD(l, 10)));
|
||||
Platform_errch((CHAR)(48 + (int)__MOD(l, 10)));
|
||||
}
|
||||
|
||||
static void Platform_errint (int64 l)
|
||||
static void Platform_errint (int32 l)
|
||||
{
|
||||
if (l < 0) {
|
||||
Platform_errch('-');
|
||||
|
|
@ -675,7 +675,7 @@ static void Platform_errint (int64 l)
|
|||
Platform_errposint(l);
|
||||
}
|
||||
|
||||
static void Platform_DisplayHaltCode (int64 code)
|
||||
static void Platform_DisplayHaltCode (int32 code)
|
||||
{
|
||||
switch (code) {
|
||||
case -1:
|
||||
|
|
@ -731,7 +731,7 @@ static void Platform_DisplayHaltCode (int64 code)
|
|||
}
|
||||
}
|
||||
|
||||
void Platform_Halt (int64 code)
|
||||
void Platform_Halt (int32 code)
|
||||
{
|
||||
Platform_HaltCode = code;
|
||||
if (Platform_HaltHandler != NIL) {
|
||||
|
|
@ -744,10 +744,10 @@ void Platform_Halt (int64 code)
|
|||
Platform_DisplayHaltCode(code);
|
||||
}
|
||||
Platform_errln();
|
||||
Platform_exit(__VAL(int32, code));
|
||||
Platform_exit(__VAL(int16, code));
|
||||
}
|
||||
|
||||
void Platform_AssertFail (int64 code)
|
||||
void Platform_AssertFail (int32 code)
|
||||
{
|
||||
Platform_errstring((CHAR*)"Assertion failure.", 19);
|
||||
if (code != 0) {
|
||||
|
|
@ -756,7 +756,7 @@ void Platform_AssertFail (int64 code)
|
|||
Platform_errstring((CHAR*)".", 2);
|
||||
}
|
||||
Platform_errln();
|
||||
Platform_exit(__VAL(int32, code));
|
||||
Platform_exit(__VAL(int16, code));
|
||||
}
|
||||
|
||||
void Platform_SetHalt (Platform_HaltProcedure p)
|
||||
|
|
@ -766,12 +766,12 @@ void Platform_SetHalt (Platform_HaltProcedure p)
|
|||
|
||||
static void Platform_TestLittleEndian (void)
|
||||
{
|
||||
int32 i;
|
||||
int16 i;
|
||||
i = 1;
|
||||
__GET((address)&i, Platform_LittleEndian, BOOLEAN);
|
||||
}
|
||||
|
||||
__TDESC(Platform_FileIdentity, 1, 0) = {__TDFLDS("FileIdentity", 24), {-8}};
|
||||
__TDESC(Platform_FileIdentity, 1, 0) = {__TDFLDS("FileIdentity", 12), {-8}};
|
||||
|
||||
export void *Platform__init(void)
|
||||
{
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue