From 72c1f34c32e3491b2008fe4d6f665ca3f1a92feb Mon Sep 17 00:00:00 2001
From: johns <>
Date: Tue, 25 Apr 2000 21:14:47 +0000
Subject: [PATCH] Added debug for unit references
---
src/stratagus/script.cpp | 41 +++++++++++++++++++++++++++++++++++++++-
1 file changed, 40 insertions(+), 1 deletion(-)
diff --git a/src/stratagus/script.cpp b/src/stratagus/script.cpp
index 862e61e5a..e1ef29db4 100644
--- a/src/stratagus/script.cpp
+++ b/src/stratagus/script.cpp
@@ -99,7 +99,7 @@ global int CclInConfigFile; /// True while config file parsing
----------------------------------------------------------------------------*/
/***
-** Free pointer if it lays in the heap.
+** Free pointer, if it lays in the heap.
**
** @param ptr Pointer into heap.
*/
@@ -402,6 +402,44 @@ local SCM CclMouseScrollOff(void)
return SCM_UNSPECIFIED;
}
+/**
+** Debug unit slots.
+*/
+local SCM CclUnits(void)
+{
+#ifdef NEW_UNIT
+ Unit** slot;
+ int i;
+ int r;
+ static char buf[80];
+
+ i=r=0;
+ slot=UnitSlotFree;
+ while( slot ) {
+ ++i;
+ slot=(void*)*slot;
+ }
+ for( slot=UnitSlots; slot<UnitSlots+MAX_UNIT_SLOTS; ++slot ) {
+ if( *slot
+ && (*slot<(Unit*)UnitSlots
+ || *slot>(Unit*)(UnitSlots+MAX_UNIT_SLOTS)) ) {
+ if( (*slot)->Destroyed ) {
+ ++r;
+ }
+ }
+ }
+ sprintf(buf,"%d free %d used %d destroyed slots"
+ ,i,MAX_UNIT_SLOTS-2-i,r);
+ fprintf(stderr,"%d free %d used %d destroyed slots\n"
+ ,i,MAX_UNIT_SLOTS-2-i,r);
+ SetStatusLine(buf);
+
+ return gh_int2scm(i);
+#else
+ return SCM_UNSPECIFIED;
+#endif
+}
+
/*............................................................................
.. Tables
............................................................................*/
@@ -831,6 +869,7 @@ global void CclInit(void)
init_lsubr("freecraft-map",CclFreeCraftMap);
gh_new_procedure0_0("mouse-scroll-off",CclMouseScrollOff);
+ gh_new_procedure0_0("units",CclUnits);
print_welcome();