From f035543a7b0a33821f2ca0a1c851486afd004e00 Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Tue, 1 May 2018 15:54:35 +0100
Subject: [PATCH] Add an XTRACE function.

This can be dropped into other files to show the GC state.
---
 src/cfs/cload.2 | 27 ++++++++++++++++++++++++++-
 1 file changed, 26 insertions(+), 1 deletion(-)

diff --git a/src/cfs/cload.2 b/src/cfs/cload.2
index db44e08d..1281a018 100644
--- a/src/cfs/cload.2
+++ b/src/cfs/cload.2
@@ -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">