2020-10-26 21:08:24 -04:00
|
|
|
;;-*-Lisp-*-
|
2020-09-04 14:44:23 -04:00
|
|
|
(in-package goal)
|
|
|
|
|
|
|
|
;; name: assert-h.gc
|
|
|
|
;; name in dgo: assert-h
|
|
|
|
;; dgos: GAME, ENGINE
|
|
|
|
|
2021-02-24 22:58:20 -05:00
|
|
|
|
|
|
|
(deftype __assert-info-private-struct (structure)
|
|
|
|
((filename string :offset-assert 0)
|
|
|
|
(line-num uint16 :offset-assert 4)
|
|
|
|
(column-num uint16 :offset-assert 6)
|
|
|
|
)
|
|
|
|
:method-count-assert 11
|
|
|
|
:size-assert #x8
|
|
|
|
:flag-assert #xb00000008
|
|
|
|
(:methods
|
|
|
|
(set-private-assert-info (_type_ string uint16 uint16) int 9)
|
|
|
|
(print-private-assert-info (_type_) int 10)
|
|
|
|
)
|
|
|
|
)
|
|
|
|
|
|
|
|
|
|
|
|
(defmethod set-private-assert-info __assert-info-private-struct ((obj __assert-info-private-struct)
|
|
|
|
(filename string) (line-num uint16) (column-num uint16))
|
|
|
|
(set! (-> obj filename) filename)
|
|
|
|
(set! (-> obj line-num) line-num)
|
|
|
|
(set! (-> obj column-num) column-num)
|
|
|
|
0
|
|
|
|
)
|
|
|
|
|
|
|
|
(defmethod print-private-assert-info __assert-info-private-struct ((obj __assert-info-private-struct))
|
|
|
|
(format #t "file ~S.gc, line ~D, col ~D.~%" (-> obj filename) (-> obj line-num) (-> obj column-num))
|
|
|
|
0
|
|
|
|
)
|
|
|
|
|
|
|
|
(define *__private-assert-info* (new 'static '__assert-info-private-struct))
|
|
|
|
|