mirror of
https://github.com/open-goal/jak-project
synced 2026-06-08 04:17:28 -04:00
water111
ddffda1e8c
* fix shift naming issue * fix bad argument variable names * fix missing variable issue * small missing things * wip * cleanup * wip * fix conditions * small bug fix in rewriter * fix incredibly stupid printing bug
10 lines
216 B
Common Lisp
10 lines
216 B
Common Lisp
(defun ash ((value integer) (shift-amount integer))
|
|
(declare (inline))
|
|
(if (> shift-amount 0)
|
|
(shl value shift-amount)
|
|
(sar value (- shift-amount))
|
|
)
|
|
)
|
|
|
|
|
|
(+ (ash (+ 1 2) (/ 6 2)) (ash (- 12) (- 1))) |