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
|
