[ro-oslib-commits] OSLib/!OsLib/Source/Core/oslib OS.swi,1.8,1.9 OSSpriteOp.swi,1.3,1.4

[<to...@us...>]

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

Modified Files:
	OS.swi OSSpriteOp.swi 
Log Message:
Various enhabcements and bug-fixes. Updated Test suite

Index: OS.swi
===================================================================
RCS file: /cvsroot/ro-oslib/OSLib/!OsLib/Source/Core/oslib/OS.swi,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** OS.swi	23 Nov 2002 12:46:28 -0000	1.8
--- OS.swi	28 Nov 2002 13:08:59 -0000	1.9
***************
*** 1716,1720 ****
        (  R0 = .Int: crc_in,
           R1 -> .Data: block,
!          R2 -> .Char: end,
           R3 = .Int: stride
        ),
--- 1716,1721 ----
        (  R0 = .Int: crc_in,
           R1 -> .Data: block,
!          //R2 -> .Char: end,     //TV 20021128
!          R2 -> .Data: end,
           R3 = .Int: stride
        ),

Index: OSSpriteOp.swi
===================================================================
RCS file: /cvsroot/ro-oslib/OSLib/!OsLib/Source/Core/oslib/OSSpriteOp.swi,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** OSSpriteOp.swi	23 Nov 2002 12:12:59 -0000	1.3
--- OSSpriteOp.swi	28 Nov 2002 13:08:59 -0000	1.4
***************
*** 497,500 ****
--- 497,516 ----
     ),
  
+    OSSpriteOp_ReadPixelColourDeep =
+    (  NUMBER 0x2E,
+       ENTRY
+       (  R0 # 41 "Reads pixel colour into 24-bit RGB value",
+          R0 | OSSpriteOp_Flags: flags,
+          R1 -> OSSpriteOp_Area: area,
+          R2 = OSSpriteOp_Id: id,
+          R3 = .Int: x,
+          R4 = .Int: y
+       ),
+       EXIT
+       (  R5 = .Bits: gcol,
+          R6 = OS_Tint: tint
+       )
+    ),
+ 
     OSSpriteOp_WritePixelColour =
     (  NUMBER 0x2E,
***************
*** 520,523 ****
--- 536,552 ----
        (  R5! = .Bool: solid
        )),
+ 
+    OSSpriteOp_WritePixelColourDeep =
+    (  NUMBER 0x2E,
+       ENTRY
+       (  R0 # 42 "Writes pixel colour using 24-bit RGB value",
+          R0 | OSSpriteOp_Flags: flags,
+          R1 = .Ref OSSpriteOp_Area: area,
+          R2 = OSSpriteOp_Id: id,
+          R3 = .Int: x,
+          R4 = .Int: y,
+          R5 = .Bits: gcol,
+          R6 = OS_Tint: tint
+    )  ),
  
     OSSpriteOp_WritePixelMask = (NUMBER 0x2E, ENTRY (R0 # 44 "Writes pixel