home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c220 / 4.ddi / LIB / SRC / LANGUAGE.PF < prev    next >
Encoding:
Text File  |  1990-12-16  |  918 b   |  21 lines
  1. package Language;
  2.    with Other_languages transmitted;
  3.    (*  The following type is predefined:
  4.    
  5.         type Calling_convention = set of
  6.            (By_ref,        -- all parms to be passed by ref(FORTRAN)
  7.             Reverse_parms,    -- parms are to be pushed in reverse
  8.             Callee_pops_stack,    -- routines are to pop their formal parms 
  9.             Save_regs,        -- routine saves and restores registers
  10.             Stack_result,    -- function result is returned on stack
  11.                  -- (it is returned in a register otherwise)
  12.             Propagate,         -- nested routines are to have same conventions
  13.         Return_pointers_in_ES_BX,    -- Pointers/addresses are returned
  14.                 -- from functions in BX (16-bit pointer) 
  15.                 -- or ES-BX (32-bit pointer).
  16.         Interrupt);        -- Interrupt routine.
  17.    *)
  18.    pragma include('syslang.pf');
  19.    const INTRINSICS = PASCAL+[REVERSE_PARMS]-[STACK_RESULT,PROPAGATE];
  20.    end;
  21.