# endif
# endif
#endif
- For the moment, these are mentioned here so metaconfig will
+
+ except that still won't work if a system has no integral type
+ with a size that is 32 bytes.
+
+ Further, we need to know about PTRSIZE == sizeof(void *) and
+ DOUBLESIZE == sizeof(double) if we really want to try to handle
+ 32/64-bit combinations.
+
+ For the moment, these are only mentioned here so metaconfig will
construct Configure to figure out the various sizes.
*/
#define NOLINE ((line_t) 65535)
#endif
-/* XXX LEAKTEST doesn't really work in perl5. There are direct calls to
+
+/* This looks obsolete (IZ):
+
+ XXX LEAKTEST doesn't really work in perl5. There are direct calls to
safemalloc() in the source, so LEAKTEST won't pick them up.
Further, if you try LEAKTEST, you'll also end up calling
Safefree, which might call safexfree() on some things that weren't
(v = (t*)safexrealloc((Malloc_t)(v),(MEM_SIZE)((n)*sizeof(t))))
#define Renewc(v,n,t,c) \
(v = (c*)safexrealloc((Malloc_t)(v),(MEM_SIZE)((n)*sizeof(t))))
-#define Safefree(d) safexfree((Malloc_t)d)
+#define Safefree(d) safexfree((Malloc_t)(d))
#define NEWSV(x,len) newSV(x,len)
#define MAXXCOUNT 1400
-long xcount[MAXXCOUNT];
-long lastxcount[MAXXCOUNT];
+#define MAXY_SIZE 80
+#define MAXYCOUNT 16 /* (MAXY_SIZE/4 + 1) */
+extern long xcount[MAXXCOUNT];
+extern long lastxcount[MAXXCOUNT];
+extern long xycount[MAXXCOUNT][MAXYCOUNT];
+extern long lastxycount[MAXXCOUNT][MAXYCOUNT];
#endif /* LEAKTEST */