mirror of
https://github.com/open-goal/jak-project
synced 2026-06-12 13:35:39 -04:00
water111
cee6c21603
* started adding simple functions in gcommon * more tests and features * more tests, debug windows * debug prints for windows * back up some regs for windows * remove debugging prints
10 lines
312 B
Common Lisp
10 lines
312 B
Common Lisp
;; awful hack to create a bfloat
|
|
(define-extern hack-bfloat integer)
|
|
(define hack-bfloat (+ #x6000000 4))
|
|
(define-extern hack-bfloat bfloat)
|
|
|
|
(set! (-> hack-bfloat type) bfloat)
|
|
(set! (-> hack-bfloat data) 1.233)
|
|
|
|
(format #t "data ~f print ~A type ~A~%" (-> hack-bfloat data) hack-bfloat (-> hack-bfloat type))
|
|
0 |