mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
1e11a588f5
* [decomp] `loader` prelim work + some cleanup * more things * more * even more * yet even more * minor fixes * decompiler fix + use behaviors for two funcs * last functions * Create loader_REF.gc * more work * change vag tool config format + unrelated farmer and yakow stuff * update some things * fix some decomp * cleanup things i came across + make dgo compileable * fix consistency test * update refs * offline test: skip buggy `external-art-buffer` method * fix test
31 lines
982 B
Common Lisp
31 lines
982 B
Common Lisp
(deftype basic-field-test-bitfield (int32)
|
|
((f1 uint8 :offset 0 :size 1)
|
|
(f2 uint8 :offset 1 :size 1)
|
|
(f3 uint8 :offset 2 :size 1)
|
|
)
|
|
)
|
|
|
|
(deftype basic-field-test-type (basic)
|
|
((name string)
|
|
(kc kernel-context)
|
|
(kci kernel-context :inline)
|
|
(pos float)
|
|
(bf int32)
|
|
(list pair))
|
|
)
|
|
|
|
|
|
(let ((obj (new 'static 'basic-field-test-type
|
|
:pos 12.34
|
|
:list '(a b c )
|
|
:name "name"
|
|
:bf (new 'static 'basic-field-test-bitfield :f1 1 :f3 1)
|
|
:kc (new 'static 'kernel-context :next-pid 12)
|
|
:kci (new 'static 'kernel-context :low-memory-message 'asdf :relocating-min 33))))
|
|
(format #t "~A ~D ~f ~A ~D" (-> obj name) (-> obj kc next-pid) (-> obj pos) (-> obj list) (-> obj bf))
|
|
(format #t " ~D ~D ~A ~A~%"
|
|
(-> obj kci relocating-min)
|
|
(logand 15 (the int (-> obj kci)))
|
|
(-> obj kci type)
|
|
(-> obj kci low-memory-message))
|
|
) |