[ro-oslib-commits] OSLib/!OsLib/Source/Core/oslib OS.swi,1.12,1.13

[<th...@us...>]

Update of /cvsroot/ro-oslib/OSLib/!OsLib/Source/Core/oslib
In directory sc8-pr-cvs1:/tmp/cvs-serv2290/Source/Core/oslib

Modified Files:
	OS.swi 
Log Message:
Added HeapDA support for Select. Change 20030629-2.


Index: OS.swi
===================================================================
RCS file: /cvsroot/ro-oslib/OSLib/!OsLib/Source/Core/oslib/OS.swi,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** OS.swi	11 Jan 2003 14:53:48 -0000	1.12
--- OS.swi	29 Jun 2003 09:50:38 -0000	1.13
***************
*** 1707,1711 ****
     OS_AreaShrinkable      = OS_AreaFlags: %1000000000,
     OS_AreaSparse          = OS_AreaFlags: %10000000000,
!    OS_AreaPrivate         = OS_AreaFlags: %100000000000;
  
  TYPE
--- 1707,1712 ----
     OS_AreaShrinkable      = OS_AreaFlags: %1000000000,
     OS_AreaSparse          = OS_AreaFlags: %10000000000,
!    OS_AreaPrivate         = OS_AreaFlags: %100000000000,
!    OS_AreaIsHeap          = OS_AreaFlags: %100000000000000 "RISC O S Select";
  
  TYPE
***************
*** 2080,2084 ****
           R2 = .Int: size,
           R3 -> .Data: base_address,
!          R4 = .Bits: flags,
           R5 = .Int: size_limit,
           R6 -> .Asm: handler,
--- 2081,2085 ----
           R2 = .Int: size,
           R3 -> .Data: base_address,
!          R4 = OS_AreaFlags: flags,
           R5 = .Int: size_limit,
           R6 -> .Asm: handler,
***************
*** 2108,2112 ****
        (  R2 = .Int: size,
           R3 -> .Data: base_address,
!          R4 = .Bits: flags,
           R5 = .Int: size_limit,
           R6 -> .Asm: handler,
--- 2109,2113 ----
        (  R2 = .Int: size,
           R3 -> .Data: base_address,
!          R4 = OS_AreaFlags: flags,
           R5 = .Int: size_limit,
           R6 -> .Asm: handler,
***************
*** 2167,2170 ****
--- 2168,2219 ----
           R2 -> .Data: base_address,
           R3 = .Int: size
+    )  ),
+    OSDynamicArea_HeapDescribe =
+    (  NUMBER 0x66,
+       ENTRY
+       (  R0 # 14 "Describe the space used by a dynamic area's heap - RISC O S Select",
+          R1 = OS_DynamicAreaNo: area
+       ),
+       EXIT
+       (  R2 = .Int: max,
+          R3! = .Int: free
+    )  ),
+    OSDynamicArea_HeapAlloc =
+    (  NUMBER 0x66,
+       ENTRY
+       (  R0 # 15 "Claim space from a dynamic area's heap - RISC O S Select",
+          R1 = OS_DynamicAreaNo: area,
+          R3 = .Int: size
+       ),
+       EXIT
+       (  R2! = .Ref Void: blk
+    )  ),
+    OSDynamicArea_HeapFree =
+    (  NUMBER 0x66,
+       ENTRY
+       (  R0 # 16 "Release space previously claimed from a dynamic area's heap - RISC O S Select",
+          R1 = OS_DynamicAreaNo: area,
+          R2 = .Ref Void: blk
+    )  ),
+    OSDynamicArea_HeapRealloc =
+    (  NUMBER 0x66,
+       ENTRY
+       (  R0 # 17 "Resize a previously claimed block from a dynamic area's heap - RISC O S Select",
+          R1 = OS_DynamicAreaNo: area,
+          R2 = .Ref Void: blk,
+          R3 = .Int: size_increase
+       ),
+       EXIT
+       (  R2! = .Ref Void: blk_out
+    )  ),
+    OSDynamicArea_HeapReadSize =
+    (  NUMBER 0x66,
+       ENTRY
+       (  R0 # 18 "Read the size of a block allocated from a dynamic area's heap - RISC O S Select",
+          R1 = OS_DynamicAreaNo: area,
+          R2 = .Ref Void: blk
+       ),
+       EXIT
+       (  R3! = .Int: size
     )  );