home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / modu1096.zip / GPMsym / storage.def < prev    next >
Text File  |  1996-08-29  |  1KB  |  28 lines
  1. (****************************************************************)
  2. (*                                                              *)
  3. (*         Gardens Point Modula-2 Library Definition            *)
  4. (*                                                              *)
  5. (*                                                              *)
  6. (*     (c) Copyright 1996 Faculty of Information Technology     *)
  7. (*              Queensland University of Technology             *)
  8. (*                                                              *)
  9. (*     Permission is granted to use, copy and change this       *)
  10. (*     program as long as the copyright message is left intact  *)
  11. (*                                                              *)
  12. (****************************************************************)
  13.  
  14. FOREIGN DEFINITION MODULE Storage;
  15.   IMPORT IMPLEMENTATION FROM "storage.o";
  16.  
  17.   FROM SYSTEM IMPORT ADDRESS;
  18.  
  19.   PROCEDURE ALLOCATE(VAR ptr : ADDRESS; size : CARDINAL);
  20.   (* postcondition : returns a ptr to object of size bytes   *)
  21.   (*                 rounded up to a whole number of words   *)
  22.  
  23.   PROCEDURE DEALLOCATE(VAR ptr : ADDRESS; size : CARDINAL);
  24.   (* precondition  : ptr^ must have been gained from heap    *)
  25.   (* postcondition : (pre-ptr)^ is disposed, ptr = NIL       *)
  26.  
  27. END Storage.
  28.