github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-03-23 09:19:24 +00:00
Code Issues Releases Wiki Activity

Add an XTRACE function.

Browse Source 
This can be dropped into other files to show the GC state.
This commit is contained in:
Adam Sampson
2018-05-01 15:54:35 +01:00
parent 57b5ce7ac6
commit f035543a7b
1 changed files with 26 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
src/cfs/cload.2
View File

@@ -1,4 +1,29 @@
<DEFINE VFLOAD (X) <FLOAD .X> <PRINTSTRING <STRING .X " loaded">> <TERPRI>>
<SETG BS-DATA <IUVECTOR 27 '0>>
<DEFINE XTRACE (X)
<PRINTSTRING .X>
<PRINC " - ">
<PRIN1 <BLOAT-STAT ,BS-DATA>>
; <TERPRI>
; <PRINC <GC>>
; <PRINC " reclaimed">
<TERPRI>>
<DEFINE VFLOAD (X)
<XTRACE <STRING "Loading " .X>>
<FLOAD .X>
; <PRINC <GC 0 T>>
; <PRINC " reclaimed">
; <TERPRI>
>
<GC-MON TRUE>
; "only use compacting GC"
; <GC 8192 <> 0>
; "only use mark-sweep GC"
; <GC 8192 <> <CHTYPE <MIN> FIX>>
<VFLOAD "prim">
<VFLOAD "defs">
<VFLOAD "makstr">