mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-06 04:02:25 +00:00
Moving to config independent types stage 1 - generate intxx types.
This commit is contained in:
David Brown
parent
159f5a3d80
commit
ee8342ef0d
168 changed files with 6673 additions and 6565 deletions
|
|
@ -8,90 +8,90 @@ typedef
|
|||
Platform_ArgPtr (*Platform_ArgVec)[1024];
|
||||
|
||||
typedef
|
||||
LONGINT (*Platform_ArgVecPtr)[1];
|
||||
int32 (*Platform_ArgVecPtr)[1];
|
||||
|
||||
typedef
|
||||
CHAR (*Platform_EnvPtr)[1024];
|
||||
|
||||
typedef
|
||||
struct Platform_FileIdentity {
|
||||
LONGINT volume, indexhigh, indexlow, mtimehigh, mtimelow;
|
||||
int32 volume, indexhigh, indexlow, mtimehigh, mtimelow;
|
||||
} Platform_FileIdentity;
|
||||
|
||||
typedef
|
||||
void (*Platform_HaltProcedure)(LONGINT);
|
||||
void (*Platform_HaltProcedure)(int32);
|
||||
|
||||
typedef
|
||||
void (*Platform_SignalHandler)(INTEGER);
|
||||
void (*Platform_SignalHandler)(int16);
|
||||
|
||||
|
||||
export BOOLEAN Platform_LittleEndian;
|
||||
export LONGINT Platform_MainStackFrame, Platform_HaltCode;
|
||||
export INTEGER Platform_PID;
|
||||
export int32 Platform_MainStackFrame, Platform_HaltCode;
|
||||
export int16 Platform_PID;
|
||||
export CHAR Platform_CWD[4096];
|
||||
export INTEGER Platform_ArgCount;
|
||||
export LONGINT Platform_ArgVector;
|
||||
export int16 Platform_ArgCount;
|
||||
export int32 Platform_ArgVector;
|
||||
static Platform_HaltProcedure Platform_HaltHandler;
|
||||
static LONGINT Platform_TimeStart;
|
||||
export INTEGER Platform_SeekSet, Platform_SeekCur, Platform_SeekEnd;
|
||||
export LONGINT Platform_StdIn, Platform_StdOut, Platform_StdErr;
|
||||
static int32 Platform_TimeStart;
|
||||
export int16 Platform_SeekSet, Platform_SeekCur, Platform_SeekEnd;
|
||||
export int32 Platform_StdIn, Platform_StdOut, Platform_StdErr;
|
||||
static Platform_SignalHandler Platform_InterruptHandler;
|
||||
export CHAR Platform_nl[3];
|
||||
|
||||
export LONGINT *Platform_FileIdentity__typ;
|
||||
|
||||
export BOOLEAN Platform_Absent (INTEGER e);
|
||||
export INTEGER Platform_ArgPos (CHAR *s, LONGINT s__len);
|
||||
export void Platform_AssertFail (LONGINT code);
|
||||
export INTEGER Platform_Chdir (CHAR *n, LONGINT n__len);
|
||||
export INTEGER Platform_Close (LONGINT h);
|
||||
export BOOLEAN Platform_ConnectionFailed (INTEGER e);
|
||||
export void Platform_Delay (LONGINT ms);
|
||||
export BOOLEAN Platform_DifferentFilesystems (INTEGER e);
|
||||
static void Platform_DisplayHaltCode (LONGINT code);
|
||||
export INTEGER Platform_Error (void);
|
||||
export void Platform_Exit (INTEGER code);
|
||||
export void Platform_GetArg (INTEGER n, CHAR *val, LONGINT val__len);
|
||||
export void Platform_GetClock (LONGINT *t, LONGINT *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 (INTEGER n, LONGINT *val);
|
||||
export void Platform_GetTimeOfDay (LONGINT *sec, LONGINT *usec);
|
||||
export void Platform_Halt (LONGINT code);
|
||||
export INTEGER Platform_Identify (LONGINT h, Platform_FileIdentity *identity, LONGINT *identity__typ);
|
||||
export INTEGER Platform_IdentifyByName (CHAR *n, LONGINT n__len, Platform_FileIdentity *identity, LONGINT *identity__typ);
|
||||
export BOOLEAN Platform_Inaccessible (INTEGER e);
|
||||
export void Platform_Init (INTEGER argc, LONGINT argvadr);
|
||||
export void Platform_MTimeAsClock (Platform_FileIdentity i, LONGINT *t, LONGINT *d);
|
||||
export INTEGER Platform_New (CHAR *n, LONGINT n__len, LONGINT *h);
|
||||
export BOOLEAN Platform_NoSuchDirectory (INTEGER e);
|
||||
export LONGINT Platform_OSAllocate (LONGINT size);
|
||||
export void Platform_OSFree (LONGINT address);
|
||||
export INTEGER Platform_OldRO (CHAR *n, LONGINT n__len, LONGINT *h);
|
||||
export INTEGER Platform_OldRW (CHAR *n, LONGINT n__len, LONGINT *h);
|
||||
export INTEGER Platform_Read (LONGINT h, LONGINT p, LONGINT l, LONGINT *n);
|
||||
export INTEGER Platform_ReadBuf (LONGINT h, SYSTEM_BYTE *b, LONGINT b__len, LONGINT *n);
|
||||
export INTEGER Platform_Rename (CHAR *o, LONGINT o__len, CHAR *n, LONGINT n__len);
|
||||
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 BOOLEAN Platform_Inaccessible (int16 e);
|
||||
export void Platform_Init (int16 argc, int32 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 int32 Platform_OSAllocate (int32 size);
|
||||
export void Platform_OSFree (int32 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, int32 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 INTEGER Platform_Seek (LONGINT h, LONGINT o, INTEGER r);
|
||||
export int16 Platform_Seek (int32 h, int32 o, int16 r);
|
||||
export void Platform_SetBadInstructionHandler (Platform_SignalHandler handler);
|
||||
export void Platform_SetHalt (Platform_HaltProcedure p);
|
||||
export void Platform_SetMTime (Platform_FileIdentity *target, LONGINT *target__typ, Platform_FileIdentity source);
|
||||
export INTEGER Platform_Size (LONGINT h, LONGINT *l);
|
||||
export INTEGER Platform_Sync (LONGINT h);
|
||||
export INTEGER 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 LONGINT Platform_Time (void);
|
||||
export BOOLEAN Platform_TimedOut (INTEGER e);
|
||||
export BOOLEAN Platform_TooManyFiles (INTEGER e);
|
||||
export INTEGER Platform_Truncate (LONGINT h, LONGINT limit);
|
||||
export INTEGER Platform_Unlink (CHAR *n, LONGINT n__len);
|
||||
export INTEGER Platform_Write (LONGINT h, LONGINT p, LONGINT l);
|
||||
static void Platform_YMDHMStoClock (INTEGER ye, INTEGER mo, INTEGER da, INTEGER ho, INTEGER mi, INTEGER se, LONGINT *t, LONGINT *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 limit);
|
||||
export int16 Platform_Unlink (CHAR *n, LONGINT n__len);
|
||||
export int16 Platform_Write (int32 h, int32 p, int32 l);
|
||||
static void Platform_YMDHMStoClock (int16 ye, int16 mo, int16 da, int16 ho, int16 mi, int16 se, int32 *t, int32 *d);
|
||||
static void Platform_errch (CHAR c);
|
||||
static void Platform_errint (LONGINT l);
|
||||
static void Platform_errint (int32 l);
|
||||
static void Platform_errln (void);
|
||||
static void Platform_errposint (LONGINT l);
|
||||
static void Platform_errposint (int32 l);
|
||||
export BOOLEAN Platform_getEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val__len);
|
||||
|
||||
#include "WindowsWrapper.h"
|
||||
|
|
@ -175,68 +175,68 @@ extern void Heap_InitHeap();
|
|||
#define Platform_waitForProcess() (INTEGER)WaitForSingleObject(pi.hProcess, INFINITE)
|
||||
#define Platform_writefile(fd, p, l) (INTEGER)WriteFile((HANDLE)(SYSTEM_ADRINT)fd, (void*)(SYSTEM_ADRINT)(p), (DWORD)l, 0,0)
|
||||
|
||||
BOOLEAN Platform_TooManyFiles (INTEGER e)
|
||||
BOOLEAN Platform_TooManyFiles (int16 e)
|
||||
{
|
||||
BOOLEAN _o_result;
|
||||
_o_result = e == Platform_ERRORTOOMANYOPENFILES();
|
||||
return _o_result;
|
||||
}
|
||||
|
||||
BOOLEAN Platform_NoSuchDirectory (INTEGER e)
|
||||
BOOLEAN Platform_NoSuchDirectory (int16 e)
|
||||
{
|
||||
BOOLEAN _o_result;
|
||||
_o_result = e == Platform_ERRORPATHNOTFOUND();
|
||||
return _o_result;
|
||||
}
|
||||
|
||||
BOOLEAN Platform_DifferentFilesystems (INTEGER e)
|
||||
BOOLEAN Platform_DifferentFilesystems (int16 e)
|
||||
{
|
||||
BOOLEAN _o_result;
|
||||
_o_result = e == Platform_ERRORNOTSAMEDEVICE();
|
||||
return _o_result;
|
||||
}
|
||||
|
||||
BOOLEAN Platform_Inaccessible (INTEGER e)
|
||||
BOOLEAN Platform_Inaccessible (int16 e)
|
||||
{
|
||||
BOOLEAN _o_result;
|
||||
_o_result = ((e == Platform_ERRORACCESSDENIED() || e == Platform_ERRORWRITEPROTECT()) || e == Platform_ERRORNOTREADY()) || e == Platform_ERRORSHARINGVIOLATION();
|
||||
return _o_result;
|
||||
}
|
||||
|
||||
BOOLEAN Platform_Absent (INTEGER e)
|
||||
BOOLEAN Platform_Absent (int16 e)
|
||||
{
|
||||
BOOLEAN _o_result;
|
||||
_o_result = e == Platform_ERRORFILENOTFOUND() || e == Platform_ERRORPATHNOTFOUND();
|
||||
return _o_result;
|
||||
}
|
||||
|
||||
BOOLEAN Platform_TimedOut (INTEGER e)
|
||||
BOOLEAN Platform_TimedOut (int16 e)
|
||||
{
|
||||
BOOLEAN _o_result;
|
||||
_o_result = e == Platform_ETIMEDOUT();
|
||||
return _o_result;
|
||||
}
|
||||
|
||||
BOOLEAN Platform_ConnectionFailed (INTEGER e)
|
||||
BOOLEAN Platform_ConnectionFailed (int16 e)
|
||||
{
|
||||
BOOLEAN _o_result;
|
||||
_o_result = ((e == Platform_ECONNREFUSED() || e == Platform_ECONNABORTED()) || e == Platform_ENETUNREACH()) || e == Platform_EHOSTUNREACH();
|
||||
return _o_result;
|
||||
}
|
||||
|
||||
LONGINT Platform_OSAllocate (LONGINT size)
|
||||
int32 Platform_OSAllocate (int32 size)
|
||||
{
|
||||
LONGINT _o_result;
|
||||
int32 _o_result;
|
||||
_o_result = Platform_allocate(size);
|
||||
return _o_result;
|
||||
}
|
||||
|
||||
void Platform_OSFree (LONGINT address)
|
||||
void Platform_OSFree (int32 address)
|
||||
{
|
||||
Platform_free(address);
|
||||
}
|
||||
|
||||
void Platform_Init (INTEGER argc, LONGINT argvadr)
|
||||
void Platform_Init (int16 argc, int32 argvadr)
|
||||
{
|
||||
Platform_ArgVecPtr av = NIL;
|
||||
Platform_MainStackFrame = argvadr;
|
||||
|
|
@ -251,7 +251,7 @@ BOOLEAN Platform_getEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val__le
|
|||
{
|
||||
BOOLEAN _o_result;
|
||||
CHAR buf[4096];
|
||||
INTEGER res;
|
||||
int16 res;
|
||||
__DUP(var, var__len, CHAR);
|
||||
res = Platform_getenv(var, var__len, (void*)buf, 4096);
|
||||
if ((res > 0 && res < 4096)) {
|
||||
|
|
@ -276,7 +276,7 @@ void Platform_GetEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val__len)
|
|||
__DEL(var);
|
||||
}
|
||||
|
||||
void Platform_GetArg (INTEGER n, CHAR *val, LONGINT val__len)
|
||||
void Platform_GetArg (int16 n, CHAR *val, LONGINT val__len)
|
||||
{
|
||||
Platform_ArgVec av = NIL;
|
||||
if (n < Platform_ArgCount) {
|
||||
|
|
@ -285,10 +285,10 @@ void Platform_GetArg (INTEGER n, CHAR *val, LONGINT val__len)
|
|||
}
|
||||
}
|
||||
|
||||
void Platform_GetIntArg (INTEGER n, LONGINT *val)
|
||||
void Platform_GetIntArg (int16 n, int32 *val)
|
||||
{
|
||||
CHAR s[64];
|
||||
LONGINT k, d, i;
|
||||
int32 k, d, i;
|
||||
s[0] = 0x00;
|
||||
Platform_GetArg(n, (void*)s, 64);
|
||||
i = 0;
|
||||
|
|
@ -296,11 +296,11 @@ void Platform_GetIntArg (INTEGER n, LONGINT *val)
|
|||
i = 1;
|
||||
}
|
||||
k = 0;
|
||||
d = (SYSTEM_INT16)s[__X(i, 64)] - 48;
|
||||
d = (int16)s[__X(i, 64)] - 48;
|
||||
while ((d >= 0 && d <= 9)) {
|
||||
k = k * 10 + d;
|
||||
i += 1;
|
||||
d = (SYSTEM_INT16)s[__X(i, 64)] - 48;
|
||||
d = (int16)s[__X(i, 64)] - 48;
|
||||
}
|
||||
if (s[0] == '-') {
|
||||
k = -k;
|
||||
|
|
@ -311,10 +311,10 @@ void Platform_GetIntArg (INTEGER n, LONGINT *val)
|
|||
}
|
||||
}
|
||||
|
||||
INTEGER Platform_ArgPos (CHAR *s, LONGINT s__len)
|
||||
int16 Platform_ArgPos (CHAR *s, LONGINT s__len)
|
||||
{
|
||||
INTEGER _o_result;
|
||||
INTEGER i;
|
||||
int16 _o_result;
|
||||
int16 i;
|
||||
CHAR arg[256];
|
||||
__DUP(s, s__len, CHAR);
|
||||
i = 0;
|
||||
|
|
@ -332,28 +332,28 @@ void Platform_SetBadInstructionHandler (Platform_SignalHandler handler)
|
|||
{
|
||||
}
|
||||
|
||||
static void Platform_YMDHMStoClock (INTEGER ye, INTEGER mo, INTEGER da, INTEGER ho, INTEGER mi, INTEGER se, LONGINT *t, LONGINT *d)
|
||||
static void Platform_YMDHMStoClock (int16 ye, int16 mo, int16 da, int16 ho, int16 mi, int16 se, int32 *t, int32 *d)
|
||||
{
|
||||
*d = (__ASHL((int)__MOD(ye, 100), 9) + __ASHL((mo + 1), 5)) + da;
|
||||
*t = (__ASHL(ho, 12) + __ASHL(mi, 6)) + se;
|
||||
}
|
||||
|
||||
void Platform_GetClock (LONGINT *t, LONGINT *d)
|
||||
void Platform_GetClock (int32 *t, int32 *d)
|
||||
{
|
||||
Platform_getLocalTime();
|
||||
Platform_YMDHMStoClock(Platform_styear(), Platform_stmon(), Platform_stmday(), Platform_sthour(), Platform_stmin(), Platform_stsec(), &*t, &*d);
|
||||
}
|
||||
|
||||
LONGINT Platform_Time (void)
|
||||
int32 Platform_Time (void)
|
||||
{
|
||||
LONGINT _o_result;
|
||||
LONGINT ms;
|
||||
int32 _o_result;
|
||||
int32 ms;
|
||||
ms = Platform_GetTickCount();
|
||||
_o_result = (int)__MOD(ms - Platform_TimeStart, 2147483647);
|
||||
return _o_result;
|
||||
}
|
||||
|
||||
void Platform_Delay (LONGINT ms)
|
||||
void Platform_Delay (int32 ms)
|
||||
{
|
||||
while (ms > 30000) {
|
||||
Platform_sleep(30000);
|
||||
|
|
@ -364,7 +364,7 @@ void Platform_Delay (LONGINT ms)
|
|||
}
|
||||
}
|
||||
|
||||
void Platform_GetTimeOfDay (LONGINT *sec, LONGINT *usec)
|
||||
void Platform_GetTimeOfDay (int32 *sec, int32 *usec)
|
||||
{
|
||||
Platform_getLocalTime();
|
||||
Platform_stToFt();
|
||||
|
|
@ -374,10 +374,10 @@ void Platform_GetTimeOfDay (LONGINT *sec, LONGINT *usec)
|
|||
*usec = Platform_uluSec();
|
||||
}
|
||||
|
||||
INTEGER Platform_System (CHAR *cmd, LONGINT cmd__len)
|
||||
int16 Platform_System (CHAR *cmd, LONGINT cmd__len)
|
||||
{
|
||||
INTEGER _o_result;
|
||||
INTEGER result;
|
||||
int16 _o_result;
|
||||
int16 result;
|
||||
__DUP(cmd, cmd__len, CHAR);
|
||||
result = 127;
|
||||
Platform_startupInfo();
|
||||
|
|
@ -393,17 +393,17 @@ INTEGER Platform_System (CHAR *cmd, LONGINT cmd__len)
|
|||
return _o_result;
|
||||
}
|
||||
|
||||
INTEGER Platform_Error (void)
|
||||
int16 Platform_Error (void)
|
||||
{
|
||||
INTEGER _o_result;
|
||||
int16 _o_result;
|
||||
_o_result = Platform_err();
|
||||
return _o_result;
|
||||
}
|
||||
|
||||
INTEGER Platform_OldRO (CHAR *n, LONGINT n__len, LONGINT *h)
|
||||
int16 Platform_OldRO (CHAR *n, LONGINT n__len, int32 *h)
|
||||
{
|
||||
INTEGER _o_result;
|
||||
LONGINT fd;
|
||||
int16 _o_result;
|
||||
int32 fd;
|
||||
fd = Platform_openro(n, n__len);
|
||||
if (fd == Platform_invalidHandleValue()) {
|
||||
_o_result = Platform_err();
|
||||
|
|
@ -416,10 +416,10 @@ INTEGER Platform_OldRO (CHAR *n, LONGINT n__len, LONGINT *h)
|
|||
__RETCHK;
|
||||
}
|
||||
|
||||
INTEGER Platform_OldRW (CHAR *n, LONGINT n__len, LONGINT *h)
|
||||
int16 Platform_OldRW (CHAR *n, LONGINT n__len, int32 *h)
|
||||
{
|
||||
INTEGER _o_result;
|
||||
LONGINT fd;
|
||||
int16 _o_result;
|
||||
int32 fd;
|
||||
fd = Platform_openrw(n, n__len);
|
||||
if (fd == Platform_invalidHandleValue()) {
|
||||
_o_result = Platform_err();
|
||||
|
|
@ -432,10 +432,10 @@ INTEGER Platform_OldRW (CHAR *n, LONGINT n__len, LONGINT *h)
|
|||
__RETCHK;
|
||||
}
|
||||
|
||||
INTEGER Platform_New (CHAR *n, LONGINT n__len, LONGINT *h)
|
||||
int16 Platform_New (CHAR *n, LONGINT n__len, int32 *h)
|
||||
{
|
||||
INTEGER _o_result;
|
||||
LONGINT fd;
|
||||
int16 _o_result;
|
||||
int32 fd;
|
||||
fd = Platform_opennew(n, n__len);
|
||||
if (fd == Platform_invalidHandleValue()) {
|
||||
_o_result = Platform_err();
|
||||
|
|
@ -448,9 +448,9 @@ INTEGER Platform_New (CHAR *n, LONGINT n__len, LONGINT *h)
|
|||
__RETCHK;
|
||||
}
|
||||
|
||||
INTEGER Platform_Close (LONGINT h)
|
||||
int16 Platform_Close (int32 h)
|
||||
{
|
||||
INTEGER _o_result;
|
||||
int16 _o_result;
|
||||
if (Platform_closeHandle(h) == 0) {
|
||||
_o_result = Platform_err();
|
||||
return _o_result;
|
||||
|
|
@ -461,9 +461,9 @@ INTEGER Platform_Close (LONGINT h)
|
|||
__RETCHK;
|
||||
}
|
||||
|
||||
INTEGER Platform_Identify (LONGINT h, Platform_FileIdentity *identity, LONGINT *identity__typ)
|
||||
int16 Platform_Identify (int32 h, Platform_FileIdentity *identity, LONGINT *identity__typ)
|
||||
{
|
||||
INTEGER _o_result;
|
||||
int16 _o_result;
|
||||
Platform_byHandleFileInformation();
|
||||
if (Platform_getFileInformationByHandle(h) == 0) {
|
||||
_o_result = Platform_err();
|
||||
|
|
@ -478,11 +478,11 @@ INTEGER Platform_Identify (LONGINT h, Platform_FileIdentity *identity, LONGINT *
|
|||
return _o_result;
|
||||
}
|
||||
|
||||
INTEGER Platform_IdentifyByName (CHAR *n, LONGINT n__len, Platform_FileIdentity *identity, LONGINT *identity__typ)
|
||||
int16 Platform_IdentifyByName (CHAR *n, LONGINT n__len, Platform_FileIdentity *identity, LONGINT *identity__typ)
|
||||
{
|
||||
INTEGER _o_result;
|
||||
LONGINT h;
|
||||
INTEGER e, i;
|
||||
int16 _o_result;
|
||||
int32 h;
|
||||
int16 e, i;
|
||||
__DUP(n, n__len, CHAR);
|
||||
e = Platform_OldRO((void*)n, n__len, &h);
|
||||
if (e != 0) {
|
||||
|
|
@ -517,16 +517,16 @@ void Platform_SetMTime (Platform_FileIdentity *target, LONGINT *target__typ, Pla
|
|||
(*target).mtimelow = source.mtimelow;
|
||||
}
|
||||
|
||||
void Platform_MTimeAsClock (Platform_FileIdentity i, LONGINT *t, LONGINT *d)
|
||||
void Platform_MTimeAsClock (Platform_FileIdentity i, int32 *t, int32 *d)
|
||||
{
|
||||
Platform_identityToFileTime(i);
|
||||
Platform_fileTimeToSysTime();
|
||||
Platform_YMDHMStoClock(Platform_styear(), Platform_stmon(), Platform_stmday(), Platform_sthour(), Platform_stmin(), Platform_stsec(), &*t, &*d);
|
||||
}
|
||||
|
||||
INTEGER Platform_Size (LONGINT h, LONGINT *l)
|
||||
int16 Platform_Size (int32 h, int32 *l)
|
||||
{
|
||||
INTEGER _o_result;
|
||||
int16 _o_result;
|
||||
Platform_largeInteger();
|
||||
if (Platform_getFileSize(h) == 0) {
|
||||
_o_result = Platform_err();
|
||||
|
|
@ -537,10 +537,10 @@ INTEGER Platform_Size (LONGINT h, LONGINT *l)
|
|||
return _o_result;
|
||||
}
|
||||
|
||||
INTEGER Platform_Read (LONGINT h, LONGINT p, LONGINT l, LONGINT *n)
|
||||
int16 Platform_Read (int32 h, int32 p, int32 l, int32 *n)
|
||||
{
|
||||
INTEGER _o_result;
|
||||
INTEGER result;
|
||||
int16 _o_result;
|
||||
int16 result;
|
||||
*n = 0;
|
||||
result = Platform_readfile(h, p, l, &*n);
|
||||
if (result == 0) {
|
||||
|
|
@ -554,10 +554,10 @@ INTEGER Platform_Read (LONGINT h, LONGINT p, LONGINT l, LONGINT *n)
|
|||
__RETCHK;
|
||||
}
|
||||
|
||||
INTEGER Platform_ReadBuf (LONGINT h, SYSTEM_BYTE *b, LONGINT b__len, LONGINT *n)
|
||||
int16 Platform_ReadBuf (int32 h, SYSTEM_BYTE *b, LONGINT b__len, int32 *n)
|
||||
{
|
||||
INTEGER _o_result;
|
||||
INTEGER result;
|
||||
int16 _o_result;
|
||||
int16 result;
|
||||
*n = 0;
|
||||
result = Platform_readfile(h, (SYSTEM_ADRINT)b, b__len, &*n);
|
||||
if (result == 0) {
|
||||
|
|
@ -571,9 +571,9 @@ INTEGER Platform_ReadBuf (LONGINT h, SYSTEM_BYTE *b, LONGINT b__len, LONGINT *n)
|
|||
__RETCHK;
|
||||
}
|
||||
|
||||
INTEGER Platform_Write (LONGINT h, LONGINT p, LONGINT l)
|
||||
int16 Platform_Write (int32 h, int32 p, int32 l)
|
||||
{
|
||||
INTEGER _o_result;
|
||||
int16 _o_result;
|
||||
if (Platform_writefile(h, p, l) == 0) {
|
||||
_o_result = Platform_err();
|
||||
return _o_result;
|
||||
|
|
@ -584,9 +584,9 @@ INTEGER Platform_Write (LONGINT h, LONGINT p, LONGINT l)
|
|||
__RETCHK;
|
||||
}
|
||||
|
||||
INTEGER Platform_Sync (LONGINT h)
|
||||
int16 Platform_Sync (int32 h)
|
||||
{
|
||||
INTEGER _o_result;
|
||||
int16 _o_result;
|
||||
if (Platform_flushFileBuffers(h) == 0) {
|
||||
_o_result = Platform_err();
|
||||
return _o_result;
|
||||
|
|
@ -597,10 +597,10 @@ INTEGER Platform_Sync (LONGINT h)
|
|||
__RETCHK;
|
||||
}
|
||||
|
||||
INTEGER Platform_Seek (LONGINT h, LONGINT o, INTEGER r)
|
||||
int16 Platform_Seek (int32 h, int32 o, int16 r)
|
||||
{
|
||||
INTEGER _o_result;
|
||||
INTEGER rc;
|
||||
int16 _o_result;
|
||||
int16 rc;
|
||||
Platform_largeInteger();
|
||||
Platform_setFilePointerEx(h, o, r, &rc);
|
||||
if (rc == 0) {
|
||||
|
|
@ -613,11 +613,11 @@ INTEGER Platform_Seek (LONGINT h, LONGINT o, INTEGER r)
|
|||
__RETCHK;
|
||||
}
|
||||
|
||||
INTEGER Platform_Truncate (LONGINT h, LONGINT limit)
|
||||
int16 Platform_Truncate (int32 h, int32 limit)
|
||||
{
|
||||
INTEGER _o_result;
|
||||
INTEGER rc;
|
||||
LONGINT oldpos;
|
||||
int16 _o_result;
|
||||
int16 rc;
|
||||
int32 oldpos;
|
||||
Platform_largeInteger();
|
||||
Platform_getFilePos(h, &oldpos, &rc);
|
||||
if (rc == 0) {
|
||||
|
|
@ -642,9 +642,9 @@ INTEGER Platform_Truncate (LONGINT h, LONGINT limit)
|
|||
return _o_result;
|
||||
}
|
||||
|
||||
INTEGER Platform_Unlink (CHAR *n, LONGINT n__len)
|
||||
int16 Platform_Unlink (CHAR *n, LONGINT n__len)
|
||||
{
|
||||
INTEGER _o_result;
|
||||
int16 _o_result;
|
||||
if (Platform_deleteFile(n, n__len) == 0) {
|
||||
_o_result = Platform_err();
|
||||
return _o_result;
|
||||
|
|
@ -655,10 +655,10 @@ INTEGER Platform_Unlink (CHAR *n, LONGINT n__len)
|
|||
__RETCHK;
|
||||
}
|
||||
|
||||
INTEGER Platform_Chdir (CHAR *n, LONGINT n__len)
|
||||
int16 Platform_Chdir (CHAR *n, LONGINT n__len)
|
||||
{
|
||||
INTEGER _o_result;
|
||||
INTEGER r;
|
||||
int16 _o_result;
|
||||
int16 r;
|
||||
r = Platform_setCurrentDirectory(n, n__len);
|
||||
if (r == 0) {
|
||||
_o_result = Platform_err();
|
||||
|
|
@ -669,9 +669,9 @@ INTEGER Platform_Chdir (CHAR *n, LONGINT n__len)
|
|||
return _o_result;
|
||||
}
|
||||
|
||||
INTEGER 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)
|
||||
{
|
||||
INTEGER _o_result;
|
||||
int16 _o_result;
|
||||
if (Platform_moveFile(o, o__len, n, n__len) == 0) {
|
||||
_o_result = Platform_err();
|
||||
return _o_result;
|
||||
|
|
@ -682,7 +682,7 @@ INTEGER Platform_Rename (CHAR *o, LONGINT o__len, CHAR *n, LONGINT n__len)
|
|||
__RETCHK;
|
||||
}
|
||||
|
||||
void Platform_Exit (INTEGER code)
|
||||
void Platform_Exit (int16 code)
|
||||
{
|
||||
Platform_exit(code);
|
||||
}
|
||||
|
|
@ -698,7 +698,7 @@ static void Platform_errln (void)
|
|||
Platform_errch(0x0a);
|
||||
}
|
||||
|
||||
static void Platform_errposint (LONGINT l)
|
||||
static void Platform_errposint (int32 l)
|
||||
{
|
||||
if (l > 10) {
|
||||
Platform_errposint(__DIV(l, 10));
|
||||
|
|
@ -706,7 +706,7 @@ static void Platform_errposint (LONGINT l)
|
|||
Platform_errch((CHAR)(48 + (int)__MOD(l, 10)));
|
||||
}
|
||||
|
||||
static void Platform_errint (LONGINT l)
|
||||
static void Platform_errint (int32 l)
|
||||
{
|
||||
if (l < 0) {
|
||||
Platform_errch('-');
|
||||
|
|
@ -715,7 +715,7 @@ static void Platform_errint (LONGINT l)
|
|||
Platform_errposint(l);
|
||||
}
|
||||
|
||||
static void Platform_DisplayHaltCode (LONGINT code)
|
||||
static void Platform_DisplayHaltCode (int32 code)
|
||||
{
|
||||
switch (code) {
|
||||
case -1:
|
||||
|
|
@ -756,9 +756,9 @@ static void Platform_DisplayHaltCode (LONGINT code)
|
|||
}
|
||||
}
|
||||
|
||||
void Platform_Halt (LONGINT code)
|
||||
void Platform_Halt (int32 code)
|
||||
{
|
||||
INTEGER e;
|
||||
int16 e;
|
||||
Platform_HaltCode = code;
|
||||
if (Platform_HaltHandler != NIL) {
|
||||
(*Platform_HaltHandler)(code);
|
||||
|
|
@ -770,12 +770,12 @@ void Platform_Halt (LONGINT code)
|
|||
Platform_DisplayHaltCode(code);
|
||||
}
|
||||
Platform_errln();
|
||||
Platform_exit(__VAL(INTEGER, code));
|
||||
Platform_exit(__VAL(int16, code));
|
||||
}
|
||||
|
||||
void Platform_AssertFail (LONGINT code)
|
||||
void Platform_AssertFail (int32 code)
|
||||
{
|
||||
INTEGER e;
|
||||
int16 e;
|
||||
Platform_errstring((CHAR*)"Assertion failure.", 19);
|
||||
if (code != 0) {
|
||||
Platform_errstring((CHAR*)" ASSERT code ", 14);
|
||||
|
|
@ -783,7 +783,7 @@ void Platform_AssertFail (LONGINT code)
|
|||
Platform_errstring((CHAR*)".", 2);
|
||||
}
|
||||
Platform_errln();
|
||||
Platform_exit(__VAL(INTEGER, code));
|
||||
Platform_exit(__VAL(int16, code));
|
||||
}
|
||||
|
||||
void Platform_SetHalt (Platform_HaltProcedure p)
|
||||
|
|
@ -793,7 +793,7 @@ void Platform_SetHalt (Platform_HaltProcedure p)
|
|||
|
||||
static void Platform_TestLittleEndian (void)
|
||||
{
|
||||
INTEGER i;
|
||||
int16 i;
|
||||
i = 1;
|
||||
__GET((SYSTEM_ADRINT)&i, Platform_LittleEndian, BOOLEAN);
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue