lefty Mhaspointers: use C99 bool values

diff --git a/cmd/lefty/aix_mods/tbl.c b/cmd/lefty/aix_mods/tbl.c
index 7713088b923a66d637e8eff83a0afa6adb2437f9..a51f35ce986f7dc2b81588e1cbab902f70845234 100644 (file)
--- a/cmd/lefty/aix_mods/tbl.c
+++ b/cmd/lefty/aix_mods/tbl.c
@@ -10,6 +10,7 @@
 
 /* Lefteris Koutsofios - AT&T Bell Laboratories */
 
+#include <stdbool.h>
 #include "common.h"
 #include "mem.h"
 #include "code.h"
@@ -64,11 +65,11 @@ void Tinit(void)
     Tcode_t c;
     Tkvlist_t kvl;
 
-    Mhaspointers[T_INTEGER] = FALSE;
-    Mhaspointers[T_REAL] = FALSE;
-    Mhaspointers[T_STRING] = FALSE;
-    Mhaspointers[T_CODE] = FALSE;
-    Mhaspointers[T_TABLE] = TRUE;
+    Mhaspointers[T_INTEGER] = false;
+    Mhaspointers[T_REAL] = false;
+    Mhaspointers[T_STRING] = false;
+    Mhaspointers[T_CODE] = false;
+    Mhaspointers[T_TABLE] = true;
     Ttrue = Tinteger(1);
     truem = Mpushmark(Ttrue);
     Tfalse = Tinteger(0);

diff --git a/cmd/lefty/mem.c b/cmd/lefty/mem.c
index 9f63b4dd920403df10bf9c9b9207deb1e6a5c917..b19e48d58d9b1cba72ec4d8068c5ae6b864e4d5c 100644 (file)
--- a/cmd/lefty/mem.c
+++ b/cmd/lefty/mem.c
@@ -12,13 +12,14 @@
 
 #include "common.h"
 #include "mem.h"
+#include <stdbool.h>
 
 /* SHORTCUT: the following are imported from tbl.c */
 extern void Tgchelper (void *), Tfreehelper (void *);
 
 #define M_MAXTYPES 6
 
-int Mhaspointers[M_MAXTYPES];
+bool Mhaspointers[M_MAXTYPES];
 int Mgcstate;
 int Mcouldgc;
 

diff --git a/cmd/lefty/mem.h b/cmd/lefty/mem.h
index d19c6538f70010ca3da8a55ee5e3ef4b93cc4444..df17c17be7cba3b17dfbd9f70aab78edba590855 100644 (file)
--- a/cmd/lefty/mem.h
+++ b/cmd/lefty/mem.h
@@ -10,6 +10,8 @@
 
 #pragma once
 
+#include <stdbool.h>
+
 /* Lefteris Koutsofios - AT&T Labs Research */
 
 #ifdef FEATURE_MINTSIZE
@@ -37,7 +39,7 @@ typedef struct Mheader_t {
 #define M_AREAOF(p) ((int) (((Mheader_t *) p)->area))
 #define M_TYPEOF(p) ((int) (((Mheader_t *) p)->type))
 
-extern int Mhaspointers[];
+extern bool Mhaspointers[];
 extern int Mgcstate;
 extern int Mcouldgc;
 

diff --git a/cmd/lefty/tbl.c b/cmd/lefty/tbl.c
index 54ac4ed08c2cf6f95b3e355f51d8c321cbb635a7..9a923a7beb1863fb0d64828bab8781c608245c0e 100644 (file)
--- a/cmd/lefty/tbl.c
+++ b/cmd/lefty/tbl.c
@@ -10,6 +10,7 @@
 
 /* Lefteris Koutsofios - AT&T Labs Research */
 
+#include <stdbool.h>
 #include "common.h"
 #include "mem.h"
 #include "code.h"
@@ -66,11 +67,11 @@ void Tinit (void) {
     Tcode_t c;
     Tkvlist_t kvl;
 
-    Mhaspointers[T_INTEGER] = FALSE;
-    Mhaspointers[T_REAL] = FALSE;
-    Mhaspointers[T_STRING] = FALSE;
-    Mhaspointers[T_CODE] = FALSE;
-    Mhaspointers[T_TABLE] = TRUE;
+    Mhaspointers[T_INTEGER] = false;
+    Mhaspointers[T_REAL] = false;
+    Mhaspointers[T_STRING] = false;
+    Mhaspointers[T_CODE] = false;
+    Mhaspointers[T_TABLE] = true;
     Ttrue = Tinteger (1);
     truem = Mpushmark (Ttrue);
     Tfalse = Tinteger (0);