Changeset 6916

Timestamp:

Jul 21, 2007, 10:12:42 PM (14 years ago)

Author:

gb

Message:

s32->u32, u32->s32.

File:

• trunk/ccl/level-0/l0-utils.lisp (modified) (1 diff)

trunk/ccl/level-0/l0-utils.lisp

@@ -135 +135 @@
         (when (funcall test-fn item (car l)) (return l))))))
 
+(defun s32->u32 (s32)
+  (%stack-block ((buf 4))
+    (setf (%get-signed-long buf) s32)
+    (%get-unsigned-long buf)))
 
+(defun u32->s32 (u32)
+  (%stack-block ((buf 4))
+    (setf (%get-unsigned-long buf) u32)
+    (%get-signed-long buf)))