home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / program / compiler / m2posx14 / src / pstorage.dpp < prev    next >
Encoding:
Modula Definition  |  1994-01-17  |  864 b   |  47 lines
  1. DEFINITION MODULE pSTORAGE;
  2. __DEF_SWITCHES__
  3. #ifdef HM2
  4. #ifdef __LONG_WHOLE__
  5. (*$!i+: Modul muss mit $i- uebersetzt werden! *)
  6. (*$!w+: Modul muss mit $w- uebersetzt werden! *)
  7. #else
  8. (*$!i-: Modul muss mit $i+ uebersetzt werden! *)
  9. (*$!w-: Modul muss mit $w+ uebersetzt werden! *)
  10. #endif
  11. #endif
  12.  
  13. (*
  14. A portable Storage Module.
  15.  
  16. UK __DATE__ __TIME__
  17. modified by hk
  18. *)
  19.  
  20. FROM SYSTEM IMPORT ADDRESS;
  21. #ifdef FTLM2
  22. #define Storage STORAGE
  23. #endif
  24.  
  25. #ifdef FTLM2
  26. IMPORT Storage;
  27. #endif
  28.  
  29. #if (defined FSTM2) || (TSM2_2)
  30. TYPE SIZETYPE = CARDINAL;
  31. #else
  32. TYPE SIZETYPE = LONGCARD;
  33. #endif
  34.  
  35. #ifdef FTLM2
  36. CONST ALLOCATE = Storage.ALLOCATE;
  37.  
  38.       DEALLOCATE = Storage.DEALLOCATE;
  39. #endif
  40.  
  41. #ifndef FTLM2
  42. PROCEDURE ALLOCATE(VAR Addr: ADDRESS; Size: SIZETYPE);
  43.  
  44. PROCEDURE DEALLOCATE(VAR Addr: ADDRESS; Size: SIZETYPE);
  45. #endif
  46. END pSTORAGE.
  47.