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