mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-06 09:52:24 +00:00
da88496c5f
* Deduplicate common constants into OPM and do some source format tidying. * Fix postpush buildall script to force checkout of updated buildall. * Show enlistment branch in makefiles * Support non-printables in string literals and tidy case alignment and constant literals. * Common code for MIN and MAX of integer types. * Common code for SInt/Int/LInt in ConstOp parameter preparation. * Common code for SInt/Int/LInt in Op parameter preparation. * Refactor SetIntType to work with byte size directly. Prepare to revert my incorrect VAL changes. * Original meaning of VAL restored. Many library files disabled until use of VAL in 64 bits fixed. * Make Reals.Mod independent of INTEGER size and add reals tests. * Implement fraction, IsInfinity and IsNaN in oocLowReal.Mod. * OPB little simplifications and ShorterSize/LongerSize functions. * Add test for alignment computability * Replace alignment constants with calculated alignment. * typ.size aware OPV.Convert * Add SYSTEM_INT64 and make tests name independent. * Remove SYSTEM.H includes (string.h and stdint.h). * Replace uses of uintptr_t and size_t with SYSTEM_ADDRESS. * Sad hack to make FreeBSD and OpenBSD happy with memcpy declaration. * Detect 64 bit on FreeBSD, and size_t defined on OpenBSD. * %zd not supportd by mingw, cast strnlen return to int. * Add debug for intermittent failure only on OpenBSD. * Add textTexts as a confidence test and tidy up a couple of other tests. * Update binary test process.
82 lines
3.7 KiB
C
82 lines
3.7 KiB
C
/* voc 1.95 [2016/08/23] for gcc LP64 on cygwin xtspkaSfF */
|
|
|
|
#ifndef Platform__h
|
|
#define Platform__h
|
|
|
|
#include "SYSTEM.h"
|
|
|
|
typedef
|
|
struct Platform_FileIdentity {
|
|
LONGINT volume, index, mtime;
|
|
} Platform_FileIdentity;
|
|
|
|
typedef
|
|
void (*Platform_HaltProcedure)(LONGINT);
|
|
|
|
typedef
|
|
void (*Platform_SignalHandler)(INTEGER);
|
|
|
|
|
|
import BOOLEAN Platform_LittleEndian;
|
|
import LONGINT Platform_MainStackFrame, Platform_HaltCode;
|
|
import INTEGER Platform_PID;
|
|
import CHAR Platform_CWD[256];
|
|
import INTEGER Platform_ArgCount;
|
|
import LONGINT Platform_ArgVector;
|
|
import INTEGER Platform_SeekSet, Platform_SeekCur, Platform_SeekEnd;
|
|
import CHAR Platform_nl[3];
|
|
|
|
import LONGINT *Platform_FileIdentity__typ;
|
|
|
|
import BOOLEAN Platform_Absent (INTEGER e);
|
|
import INTEGER Platform_ArgPos (CHAR *s, LONGINT s__len);
|
|
import void Platform_AssertFail (LONGINT code);
|
|
import INTEGER Platform_Chdir (CHAR *n, LONGINT n__len);
|
|
import INTEGER Platform_Close (LONGINT h);
|
|
import BOOLEAN Platform_ConnectionFailed (INTEGER e);
|
|
import void Platform_Delay (LONGINT ms);
|
|
import BOOLEAN Platform_DifferentFilesystems (INTEGER e);
|
|
import INTEGER Platform_Error (void);
|
|
import void Platform_Exit (INTEGER code);
|
|
import void Platform_GetArg (INTEGER n, CHAR *val, LONGINT val__len);
|
|
import void Platform_GetClock (LONGINT *t, LONGINT *d);
|
|
import void Platform_GetEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val__len);
|
|
import void Platform_GetIntArg (INTEGER n, LONGINT *val);
|
|
import void Platform_GetTimeOfDay (LONGINT *sec, LONGINT *usec);
|
|
import void Platform_Halt (LONGINT code);
|
|
import INTEGER Platform_Identify (LONGINT h, Platform_FileIdentity *identity, LONGINT *identity__typ);
|
|
import INTEGER Platform_IdentifyByName (CHAR *n, LONGINT n__len, Platform_FileIdentity *identity, LONGINT *identity__typ);
|
|
import BOOLEAN Platform_Inaccessible (INTEGER e);
|
|
import void Platform_Init (INTEGER argc, LONGINT argvadr);
|
|
import void Platform_MTimeAsClock (Platform_FileIdentity i, LONGINT *t, LONGINT *d);
|
|
import INTEGER Platform_New (CHAR *n, LONGINT n__len, LONGINT *h);
|
|
import BOOLEAN Platform_NoSuchDirectory (INTEGER e);
|
|
import LONGINT Platform_OSAllocate (LONGINT size);
|
|
import void Platform_OSFree (LONGINT address);
|
|
import INTEGER Platform_OldRO (CHAR *n, LONGINT n__len, LONGINT *h);
|
|
import INTEGER Platform_OldRW (CHAR *n, LONGINT n__len, LONGINT *h);
|
|
import INTEGER Platform_Read (LONGINT h, LONGINT p, LONGINT l, LONGINT *n);
|
|
import INTEGER Platform_ReadBuf (LONGINT h, SYSTEM_BYTE *b, LONGINT b__len, LONGINT *n);
|
|
import INTEGER 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);
|
|
import INTEGER Platform_Seek (LONGINT h, LONGINT offset, INTEGER 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_SetQuitHandler (Platform_SignalHandler handler);
|
|
import INTEGER Platform_Size (LONGINT h, LONGINT *l);
|
|
import INTEGER Platform_Sync (LONGINT h);
|
|
import INTEGER Platform_System (CHAR *cmd, LONGINT cmd__len);
|
|
import LONGINT Platform_Time (void);
|
|
import BOOLEAN Platform_TimedOut (INTEGER e);
|
|
import BOOLEAN Platform_TooManyFiles (INTEGER e);
|
|
import INTEGER Platform_Truncate (LONGINT h, LONGINT l);
|
|
import INTEGER Platform_Unlink (CHAR *n, LONGINT n__len);
|
|
import INTEGER Platform_Write (LONGINT h, LONGINT p, LONGINT l);
|
|
import BOOLEAN Platform_getEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val__len);
|
|
import void *Platform__init(void);
|
|
|
|
|
|
#endif
|