home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / MAXONB32.DMS / in.adf / Includes.lha / BH / BLib / PoolSupport.bas < prev    next >
Encoding:
BASIC Source File  |  1994-05-09  |  1.4 KB  |  54 lines
  1. ''
  2. '' $Id: PoolSupport.bas,v 1.2 1994/05/09 13:13:55 alex Rel $
  3. ''
  4. '' BASIC bindings to Amiga.lib Pools functions
  5. ''
  6. '' (c) Copyright 1994 HiSoft
  7. ''
  8.  
  9. 'REM $INCLUDE Exec.bh
  10.  
  11. REM $INCLUDE BLib/PoolGlue.bas
  12.  
  13. FUNCTION LibAllocPooled&(BYVAL poolHeader&, BYVAL memSize&)
  14.     SHARED PoolGlue&()
  15.     STATIC r&
  16.  
  17.     CALL LOC VARPTR(PoolGlue&(0)), memSize&, poolHeader&, VARPTR(r&), LIBRARY("exec.library")
  18.     LibAllocPooled& = r&
  19. END FUNCTION
  20.  
  21. FUNCTION LibCreatePool&(BYVAL memFlags&, BYVAL puddleSize&, BYVAL threshSize&)
  22.     SHARED PoolGlue&()
  23.     STATIC r&
  24.  
  25.     CALL LOC VARPTR(PoolGlue&(0)) + &h12, memFlags&, puddleSize&, threshSize&, VARPTR(r&), LIBRARY("exec.library")
  26.     LibCreatePool& = r&
  27. END FUNCTION
  28.  
  29. SUB LibDeletePool(BYVAL poolHeader&)
  30.     SHARED PoolGlue&()
  31.  
  32.     CALL LOC VARPTR(PoolGlue&(0)) + &h24, poolHeader&, LIBRARY("exec.library")
  33. END SUB
  34.  
  35. SUB LibFreePooled(BYVAL poolHeader&, BYVAL memory&, BYVAL memSize&)
  36.     SHARED PoolGlue&()
  37.  
  38.     CALL LOC VARPTR(PoolGlue&(0)) + &h34, memSize&, poolHeader&, memory&, LIBRARY("exec.library")
  39. END SUB
  40.  
  41. FUNCTION LibAllocVecPooled&(BYVAL poolHeader&, BYVAL memSize&)
  42.     SHARED PoolGlue&()
  43.     STATIC r&
  44.  
  45.     CALL LOC VARPTR(PoolGlue&(0)) + &h44, memSize&, poolHeader&, VARPTR(r&), LIBRARY("exec.library")
  46.     LibAllocVecPooled& = r&
  47. END FUNCTION
  48.  
  49. SUB LibFreeVecPooled(BYVAL poolHeader&, BYVAL memory&)
  50.     SHARED PoolGlue&()
  51.  
  52.     CALL LOC VARPTR(PoolGlue&(0)) + &h62, poolHeader&, memory&, LIBRARY("exec.library")
  53. END SUB
  54.