mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-06 02: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.
104 lines
2.7 KiB
C
104 lines
2.7 KiB
C
/* voc 1.95 [2016/08/23] for gcc LP64 on cygwin xtspkaSfF */
|
|
|
|
#ifndef OPT__h
|
|
#define OPT__h
|
|
|
|
#include "SYSTEM.h"
|
|
#include "OPS.h"
|
|
|
|
typedef
|
|
struct OPT_ConstDesc *OPT_Const;
|
|
|
|
typedef
|
|
OPS_String *OPT_ConstExt;
|
|
|
|
typedef
|
|
struct OPT_ConstDesc {
|
|
OPT_ConstExt ext;
|
|
LONGINT intval, intval2;
|
|
SET setval;
|
|
LONGREAL realval;
|
|
} OPT_ConstDesc;
|
|
|
|
typedef
|
|
struct OPT_NodeDesc *OPT_Node;
|
|
|
|
typedef
|
|
struct OPT_StrDesc *OPT_Struct;
|
|
|
|
typedef
|
|
struct OPT_ObjDesc *OPT_Object;
|
|
|
|
typedef
|
|
struct OPT_NodeDesc {
|
|
OPT_Node left, right, link;
|
|
SHORTINT class, subcl;
|
|
BOOLEAN readonly;
|
|
OPT_Struct typ;
|
|
OPT_Object obj;
|
|
OPT_Const conval;
|
|
} OPT_NodeDesc;
|
|
|
|
typedef
|
|
struct OPT_ObjDesc {
|
|
OPT_Object left, right, link, scope;
|
|
OPS_Name name;
|
|
BOOLEAN leaf;
|
|
SHORTINT mode, mnolev, vis, history;
|
|
BOOLEAN used, fpdone;
|
|
LONGINT fprint;
|
|
OPT_Struct typ;
|
|
OPT_Const conval;
|
|
LONGINT adr, linkadr;
|
|
INTEGER x;
|
|
} OPT_ObjDesc;
|
|
|
|
typedef
|
|
struct OPT_StrDesc {
|
|
SHORTINT form, comp, mno, extlev;
|
|
INTEGER ref, sysflag;
|
|
LONGINT n, size, align, txtpos;
|
|
BOOLEAN allocated, pbused, pvused;
|
|
char _prvt0[16];
|
|
OPT_Struct BaseTyp;
|
|
OPT_Object link, strobj;
|
|
} OPT_StrDesc;
|
|
|
|
|
|
import void (*OPT_typSize)(OPT_Struct);
|
|
import OPT_Object OPT_topScope;
|
|
import OPT_Struct OPT_undftyp, OPT_bytetyp, OPT_booltyp, OPT_chartyp, OPT_sinttyp, OPT_inttyp, OPT_linttyp, OPT_realtyp, OPT_lrltyp, OPT_settyp, OPT_stringtyp, OPT_niltyp, OPT_notyp, OPT_sysptrtyp;
|
|
import SHORTINT OPT_nofGmod;
|
|
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 void OPT_Close (void);
|
|
import void OPT_CloseScope (void);
|
|
import void OPT_Export (BOOLEAN *ext, BOOLEAN *new);
|
|
import void OPT_FPrintErr (OPT_Object obj, INTEGER errcode);
|
|
import void OPT_FPrintObj (OPT_Object obj);
|
|
import void OPT_FPrintStr (OPT_Struct typ);
|
|
import void OPT_Find (OPT_Object *res);
|
|
import void OPT_FindField (OPS_Name name, OPT_Struct typ, OPT_Object *res);
|
|
import void OPT_FindImport (OPT_Object mod, OPT_Object *res);
|
|
import void OPT_IdFPrint (OPT_Struct typ);
|
|
import void OPT_Import (OPS_Name aliasName, OPS_Name name, BOOLEAN *done);
|
|
import void OPT_Init (OPS_Name name, SET opt);
|
|
import void OPT_Insert (OPS_Name name, OPT_Object *obj);
|
|
import void OPT_InsertImport (OPT_Object obj, OPT_Object *root, OPT_Object *old);
|
|
import OPT_Const OPT_NewConst (void);
|
|
import OPT_ConstExt OPT_NewExt (void);
|
|
import OPT_Node OPT_NewNode (SHORTINT class);
|
|
import OPT_Object OPT_NewObj (void);
|
|
import OPT_Struct OPT_NewStr (SHORTINT form, SHORTINT comp);
|
|
import void OPT_OpenScope (SHORTINT level, OPT_Object owner);
|
|
import void *OPT__init(void);
|
|
|
|
|
|
#endif
|