home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / amigae / e_v3.2a / modulessrc / exec / memory.e < prev    next >
Text File  |  1977-12-31  |  1KB  |  59 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. MODULE 'exec/nodes'
  5.  
  6. OBJECT ml
  7.   ln:ln
  8.   numentries:INT  -> This is unsigned
  9. -> Um, what about 'me[1]:ARRAY OF me' 
  10. ENDOBJECT     /* SIZEOF=16 */
  11.  
  12. OBJECT me
  13. -> a) next LONG is unioned with "reqs:LONG"
  14.   addr:LONG
  15.   length:LONG
  16. ENDOBJECT     /* SIZEOF=8 */
  17.  
  18. CONST MEMF_ANY=0,
  19.       MEMF_PUBLIC=1,
  20.       MEMF_CHIP=2,
  21.       MEMF_FAST=4,
  22.       MEMF_LOCAL=$100,
  23.       MEMF_24BITDMA=$200,
  24.       MEMF_KICK=$400,
  25.       MEMF_CLEAR=$10000,
  26.       MEMF_LARGEST=$20000,
  27.       MEMF_REVERSE=$40000,
  28.       MEMF_TOTAL=$80000,
  29.       MEMF_NO_EXPUNGE=$80000000,
  30.       MEM_BLOCKSIZE=8,
  31.       MEM_BLOCKMASK=7
  32.  
  33. OBJECT memhandlerdata
  34.   requestsize:LONG
  35.   requestflags:LONG
  36.   flags:LONG
  37. ENDOBJECT     /* SIZEOF=12 */
  38.  
  39. CONST MEMHF_RECYCLE=1,
  40.       MEM_DID_NOTHING=0,
  41.       MEM_ALL_DONE=-1,
  42.       MEM_TRY_AGAIN=1
  43.  
  44. OBJECT mh
  45.   ln:ln
  46.   attributes:INT  -> This is unsigned
  47.   first:PTR TO mc
  48.   lower:LONG
  49.   upper:LONG
  50.   free:LONG
  51. ENDOBJECT     /* SIZEOF=32 */
  52.  
  53. OBJECT mc
  54.   next:PTR TO mc
  55.   bytes:LONG
  56. -> Um, 'size:LONG' was an error
  57. ENDOBJECT     /* SIZEOF=NONE !!! */
  58.  
  59.