mirror of
https://github.com/open-goal/jak-project
synced 2026-06-25 02:02:08 -04:00
water111
c7c342ce7e
* add tests for various xmms * use unaligned stores and loads to back up and restore xmm128s and also fix argument spilling bug * add deftype * add deref and fix some method _type_ things
15 lines
357 B
Common Lisp
15 lines
357 B
Common Lisp
(define-extern _format function)
|
|
(define format _format)
|
|
|
|
(defun float-testing-function-2 ((x float) (y float))
|
|
(format #t "i ~f ~f~%" x y)
|
|
(let ((result (* x y (* x x))))
|
|
(format #t "r ~f~%" result)
|
|
result
|
|
)
|
|
)
|
|
|
|
(let ((x (float-testing-function-2 (* 1.2 1.2) 3.4)))
|
|
(format #t "~,,3f ~,,3f~%" (float-testing-function-2 1.2000 x) x)
|
|
)
|
|
0 |