workbench/libs/reqtools/mem.asm

   1
   2         SECTION "text",CODE
   3
   4         INCLUDE "exec/types.i"
   5         INCLUDE "exec/funcdef.i"
   6         INCLUDE "exec/memory.i"
   7         INCLUDE "exec/exec_lib.i"
   8
   9         XDEF            @AllocVecPooled
  10         XDEF            @FreeVecPooled
  11
  12         XREF            _AsmAllocPooled
  13         XREF            _AsmFreePooled
  14
  15 ;
  16 ; Function to do AllocVecPooled (pool, memsize)
  17 ;                                A0    D0
  18 @AllocVecPooled:
  19         move.l  a6,-(a7)
  20         move.l  $4.w,a6
  21         move.l  a0,d1
  22         bne.b           .pool
  23         move.l  #MEMF_PUBLIC!MEMF_CLEAR,d1
  24         jsr             _LVOAllocVec(a6)
  25         move.l  (a7)+,a6
  26         rts
  27 .pool:
  28         addq.l   #4,d0                                          ; Get space for tracking
  29         move.l  d0,-(sp)                                        ; Save the size
  30         jsr             _LVOAllocPooled(a6)     ; Call pool...
  31         move.l  (sp)+,d1                                        ; Get size back...
  32         tst.l           d0                                                      ; Check for error
  33         beq.s           avp_fail                                        ; If NULL, failed!
  34         move.l  d0,a0                                           ; Get pointer...
  35         move.l  d1,(a0)+                                        ; Store size
  36         move.l  a0,d0                                           ; Get result
  37 avp_fail:
  38         move.l  (a7)+,a6
  39         rts
  40
  41 ;
  42 ; Function to do FreeVecPooled (pool, memory)
  43 ;                               A0    A1
  44 @FreeVecPooled:
  45         move.l  a1,d0
  46         beq.b           nofree
  47         move.l  a6,-(a7)
  48         move.l  $4.w,a6
  49         move.l  a0,d1
  50         bne.b           .pool
  51         jsr             _LVOFreeVec(a6)
  52         move.l  (a7)+,a6
  53         rts
  54 .pool:
  55         move.l  -(a1),d0                                        ; Get size / ajust pointer
  56         jsr             _LVOFreePooled(a6)
  57         move.l  (a7)+,a6
  58 nofree:
  59         rts
  60
  61         END