mirror of
https://github.com/open-goal/jak-project
synced 2026-07-31 16:17:16 -04:00
Tyler Wilding
31 lines
867 B
Common Lisp
31 lines
867 B
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
(bundles "ENGINE.CGO" "GAME.CGO")
|
|
(require "kernel/gcommon.gc")
|
|
|
|
;; name: assert-h.gc
|
|
;; name in dgo: assert-h
|
|
;; dgos: GAME, ENGINE
|
|
|
|
;; DECOMP BEGINS
|
|
|
|
(deftype __assert-info-private-struct (structure)
|
|
((filename string)
|
|
(line-num uint16)
|
|
(column-num uint16))
|
|
(:methods
|
|
(set-pos (_type_ string uint uint) int)
|
|
(print-pos (_type_) int)))
|
|
|
|
(defmethod set-pos ((this __assert-info-private-struct) (filename string) (line-num uint) (column-num uint))
|
|
(set! (-> this filename) filename)
|
|
(set! (-> this line-num) line-num)
|
|
(set! (-> this column-num) column-num)
|
|
0)
|
|
|
|
(defmethod print-pos ((this __assert-info-private-struct))
|
|
(format #t "file ~S.gc, line ~D, col ~D.~%" (-> this filename) (-> this line-num) (-> this column-num))
|
|
0)
|
|
|
|
(define *__private-assert-info* (new 'static '__assert-info-private-struct))
|