recordformatspec Stackfm

recordformat Stackfm( c
      integer Flags,
      byte Base, Prim,
      byte  Type, Form,
      (longreal Rval or integer Rhigh, Rlow c
        or (integer Disp, Extra),
      (integer Format or integer Scale),
      integer Area,
      integer Varno,
      (integer Bias or byte Reg, Label),
      record(Stackfm)name     Params, Record,
      (integer  Oper, record(Stackfm)name Link),
      (integer Xsize, record(Stackfm)name Index)),
      record(Stackfm)name          Using, Stack)

externalroutine pass2
   routine Initialise(record(Stackfm)name V, integer Base, Form)
      V = 0
      ! In pass2.imp these fields are missing in the generated C, but
      ! I haven't yet been able to replicate the problem in a smaller
      ! test program such as this :-(
      V_Base  = Base
      V_Type  = 42
      V_Form  = Form
      V_Flags = 17
   end
end

endoffile