mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
060b125324
* compiler fixes, a decent amount of decompiler stuff is working too * more support in decompiler, fix some casts * decompile static data too
20 lines
382 B
Common Lisp
20 lines
382 B
Common Lisp
(defenum test-int-enum :bitfield #f
|
|
(four 4)
|
|
(one 1)
|
|
(seven 7)
|
|
(two 2)
|
|
)
|
|
|
|
(deftype type-with-bitfield2 (basic)
|
|
((name basic)
|
|
(thing1 test-int-enum)
|
|
(thing2 test-int-enum)
|
|
)
|
|
)
|
|
|
|
(let ((obj (new 'global 'type-with-bitfield2)))
|
|
(set! (-> obj thing1) (test-int-enum four))
|
|
(set! (-> obj thing2) (test-int-enum seven))
|
|
(+ (-> obj thing1) (-> obj thing2))
|
|
)
|