DataMuseum.dk

top - metrics - download

    Length: 3072 (0xc00)
    Types: TextFile
    Names: »pass4codes«

└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
    └─⟦6b41451d2⟧ 
        └─⟦this⟧ »pass4codes« 

TextFile

; ep 81.02.26
;
; definition af pass4codes
;
; editering til pass4/pass5

l./constants in pass 4 code/, l1, 
d./end pass 4 code constants/, i?

(* value of type_v in pass 4 code  *)

byte_typ = 1;   addr_typ = 5;
word_typ = 2;   set_typ  = 6;
field_typ= 3;   dyn_typ  = 7;
double_typ = 4;

(* values of type_o in pass 4 code  *)

bool_typ = 1;      int_typ = 2;     real_typ = 3;     setof_typ = 4;
pointer_typ = 5;   sem_typ = 6;     ref_typ = 7;      shadow_typ = 8;
scalar_typ = 9;

(* compare function number in pass 4 code   *)

   xeq = 2;        xne = 3;         xlt = 4; 
   xgt = 5;        xle = 6;         xge = 7;
   xeq_set = 8;    xne_set = 9;     xle_set = 10;
   xge_set = 11;   xin = 12;        xeq_struc = 13;
   xne_struc = 14; 

(* std function number in pass 4 code       *)

   xord = 1;    xsucc = 2;     xpred = 3;     xchr = 4;

(* mode for for statement   *)

   xup = 1;     xdown = 2;

(* export name type                          *)

offset_type = 1;    value_type = 2;

(* end pass 4 code constants *)

?,

l./pass4codes=/, l1, d./end pass 4 codes/, i?
( xfirstcode,

 xmodule,  xeom,
 xoption,  xnewline,

 xprocess,  xextprocess,
 xblock,  xlength,  xendblock,

 xbegincode,  xcodeline,  xendcode,

 xsubdef,
 xarray1template,  xarray2template,  xarray3template,
 xrecordtemplate,  xfieldsize,  xdynfieldsize, xincfield,
 xendtemplate,
 xenddecl,

 xallocdynvar,

 xinitialize,  xstrucinit,  xsimpleinit,  xsetinit,
 xexception,  xextexception,
 xsysinit,  xsysdyninit,
 xfieldinit,  xdynfieldinit,
 xendinitfields,
 xarrayinit,  xarraydyninit,
 xpoolinit,
 xvarinit,
 
 xexport,

 xproc,  xextproc,
 xfunc,  xextfunc,
 xparamtype,

 xdeflix,

 xproccall,  xendpcall,
 xextproccall,
 xprocessparam,  xendprocessparam,

 xvarpointer,  xtempointer,  xarglistsize,

 xvarparam,  xvalueparam, xreturnparam,

 xassignstat,  xleft,  xassign,

 xcasestat,  xcase,  xendcaselist,  xendcasestat,  xendcase,
 xcaserange,  xcaselabel,  xotherwise,

 xforstat,  xleftfor,  xforstore,  xdo,  xendfor,

 xgoto,

 xifstat,  xifexpr,  xelse,  xif,

 xrepeat,  xuntil,  xendrepeat,

 xwhile,  xwhileexpr,  xendwhile,

 xwithstat,  xwithvar,  xendwith,

 xlockstat,  xlockvar,  xlockdynvar,  xendlock,

 xchannel,  xchanvar,  xendchannel,

 xexchstat,  xexchange,

 xnot,  xneg,  xcompare,  xcompstruc,  xcompdynstruc,  xdiv,
 xmul,  xmod,  xor,  xxor,    xadd,  xsub,  xand,  xrangetest,
 xdynrangetest,

 xconst,  xlconst,  xsetconst,
 xset,  xinclude,  xsetexpr,  xincludeint,  xendset,

 xinitconst,

 xindvar,  

 xaddr,  xcaddr,  xindaddr, 
 xpackedarr,  

 xfield,  xdynfield,

 xindexexpr,  xcindex,  xindex,

 xstdfunccall,  xfcall,  xendfunccall,
 xfunccall,  xextfunccall,


 xerror, xerrorno, xerrortext,
 xlastcode

);

pass4codeindex = 0..150;  (* number of pass4codes *)

\f



(* end pass 4 codes *)

?,f

▶EOF◀