/* -*-c-*-
*
- * $Id: sym.c,v 1.1 1998/06/17 23:44:42 mdw Exp $
+ * $Id: sym.c,v 1.2 1998/11/26 19:27:33 mdw Exp $
*
* Symbol table management
*
/*----- Revision history --------------------------------------------------*
*
* $Log: sym.c,v $
- * Revision 1.1 1998/06/17 23:44:42 mdw
- * Initial revision
+ * Revision 1.2 1998/11/26 19:27:33 mdw
+ * Move SYM_NAME into the header file. Fix bugs.
+ *
+ * Revision 1.1.1.1 1998/06/17 23:44:42 mdw
+ * Initial version of mLib
*
*/
#define SYM_LIMIT(n) (((n) * 3) >> 2) /* Load factor for growing table */
-/*----- Useful macros -----------------------------------------------------*/
-
-#define SYM_NAME(sy) \
- ((sy)->len > SYM_BUFSZ ? (sy)->name.p : (sy)->name.b)
-
/*----- Main code ---------------------------------------------------------*/
/* --- @sym_createTable@ --- *
/* --- Consider growing the array --- */
- if (!--t->c) {
+ if (t->c)
+ t->c--;
+ if (!t->c) {
unsigned long m = t->mask + 1; /* Next set bit in has word */
sym_base *p, *q, *r; /* More useful pointers */
size_t i, lim; /* Loop counter and limit */
} CATCH switch (exc_type) {
case EXC_NOMEM:
TRACK_POP;
- return (p);
+ return (bin->next);
default:
TRACK_POP;
RETHROW;
/* -*-c-*-
*
- * $Id: sym.h,v 1.1 1998/06/17 23:44:42 mdw Exp $
+ * $Id: sym.h,v 1.2 1998/11/26 19:27:34 mdw Exp $
*
* Symbol table management
*
/*----- Revision history --------------------------------------------------*
*
* $Log: sym.h,v $
- * Revision 1.1 1998/06/17 23:44:42 mdw
- * Initial revision
+ * Revision 1.2 1998/11/26 19:27:34 mdw
+ * Move SYM_NAME into the header file. Fix bugs.
+ *
+ * Revision 1.1.1.1 1998/06/17 23:44:42 mdw
+ * Initial version of mLib
*
*/
size_t len; /* Length of the symbol's name */
} sym_base;
+/* --- A macro to pick a symbol's name out from the mess --- */
+
+#define SYM_NAME(sy) \
+ (((sym_base *)(sy))->len > SYM_BUFSZ ? \
+ ((sym_base *)(sy))->name.p : \
+ ((sym_base *)(sy))->name.b)
+
/* --- An iterator block --- */
typedef struct sym_iter {