mirror of
https://github.com/open-goal/jak-project
synced 2026-09-07 11:36:26 -04:00
Fix compiler crashes and improve return statements. (#652)
* fix a few small bugs * fi * fix merge conflict
This commit is contained in:
@@ -11,8 +11,8 @@
|
||||
:size-assert #x8
|
||||
:flag-assert #xb00000008
|
||||
(:methods
|
||||
(set-private-assert-info (_type_ string uint16 uint16) int 9)
|
||||
(print-private-assert-info (_type_) int 10)
|
||||
(set-pos (_type_ string uint uint) int 9)
|
||||
(print-pos (_type_) int 10)
|
||||
)
|
||||
)
|
||||
|
||||
@@ -30,22 +30,22 @@
|
||||
|
||||
;; definition for method 9 of type __assert-info-private-struct
|
||||
(defmethod
|
||||
set-private-assert-info
|
||||
set-pos
|
||||
__assert-info-private-struct
|
||||
((obj __assert-info-private-struct)
|
||||
(filename string)
|
||||
(line-num uint16)
|
||||
(column-num uint16)
|
||||
(line-num uint)
|
||||
(column-num uint)
|
||||
)
|
||||
(set! (-> obj filename) filename)
|
||||
(set! (-> obj line-num) (the-as uint line-num))
|
||||
(set! (-> obj column-num) (the-as uint column-num))
|
||||
(set! (-> obj line-num) line-num)
|
||||
(set! (-> obj column-num) column-num)
|
||||
0
|
||||
)
|
||||
|
||||
;; definition for method 10 of type __assert-info-private-struct
|
||||
(defmethod
|
||||
print-private-assert-info
|
||||
print-pos
|
||||
__assert-info-private-struct
|
||||
((obj __assert-info-private-struct))
|
||||
(format
|
||||
|
||||
Reference in New Issue
Block a user