home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / M2V11-1.LHA / modula / m2 / Storage.mod < prev   
Encoding:
Modula Implementation  |  1994-09-28  |  337 b   |  16 lines
  1. (* @P- @B- *)
  2. IMPLEMENTATION MODULE Storage ;
  3.  
  4. FROM SYSTEM IMPORT ADDRESS ;
  5. IMPORT StdLib ;
  6.  
  7. PROCEDURE ALLOCATE( VAR adr : ADDRESS ; size : LONGINT ) ;
  8. BEGIN adr := StdLib.calloc( 1 , size )
  9. END ALLOCATE ;
  10.  
  11. PROCEDURE DEALLOCATE( VAR adr : ADDRESS ; size : LONGINT ) ;
  12. BEGIN StdLib.free( adr ) ; adr := NIL
  13. END DEALLOCATE ;
  14.  
  15. END Storage.
  16.