Changeset 6916


Ignore:
Timestamp:
Jul 21, 2007, 10:12:42 PM (13 years ago)
Author:
gb
Message:

s32->u32, u32->s32.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-0/l0-utils.lisp

    r5389 r6916  
    135135        (when (funcall test-fn item (car l)) (return l))))))
    136136
     137(defun s32->u32 (s32)
     138  (%stack-block ((buf 4))
     139    (setf (%get-signed-long buf) s32)
     140    (%get-unsigned-long buf)))
    137141
     142(defun u32->s32 (u32)
     143  (%stack-block ((buf 4))
     144    (setf (%get-unsigned-long buf) u32)
     145    (%get-signed-long buf)))
    138146
    139147
Note: See TracChangeset for help on using the changeset viewer.