X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?p=rmac;a=blobdiff_plain;f=token.h;h=f8df49ae19cc2c50bc197790e9397d20d363638e;hp=65b5b831a7dc1d5c126d28c8c7198009a0814dd4;hb=05d0350b35a6a6b255cb2a3fab7796f5d4ee4d02;hpb=96a5cd69571096f11a3a2a40f6133374f0adc9bb

diff --git a/token.h b/token.h
index 65b5b83..f8df49a 100644
--- a/token.h
+++ b/token.h
@@ -84,13 +84,16 @@
 #define MULTX           64			// Multiple-character tokens
 #define DOT             128			// [bwlsBWSL] for what follows a '.'
 
+// Macro to check for specific optimizations or override
+#define CHECK_OPTS(x)	(optim_flags[x] && !optimizeOff)
+
 // Conditional assembly structures
 IFENT {
 	IFENT * if_prev;		// Ptr prev .if state block (or NULL)
 	WORD if_state;			// 0:enabled, 1:disabled
 };
 
-// Pointer to IFILE or IMACRO
+// Pointer to IFILE or IMACRO or IREPT
 IUNION {
 	IFILE * ifile;
 	IMACRO * imacro;
@@ -99,12 +102,12 @@ IUNION {
 
 // Ptr to IFILEs, IMACROs, and so on; back-ptr to previous input objects
 INOBJ {
-	WORD in_type;			// 0=IFILE, 1=IMACRO ...
+	WORD in_type;			// 0=IFILE, 1=IMACRO, 2=IREPT
 	IFENT * in_ifent;		// Pointer to .if context on entry
 	INOBJ * in_link;		// Pointer to previous INOBJ
 	TOKEN * in_otok;		// Old `tok' value
 	TOKEN * in_etok;		// Old `etok' value
-	IUNION inobj;			// IFILE or IMACRO ...
+	IUNION inobj;			// IFILE or IMACRO or IREPT
 };
 
 // Information about a file
@@ -128,20 +131,19 @@ TOKENSTREAM {
 // Information about a macro invocation
 IMACRO {
 	IMACRO * im_link;		// Pointer to ancient IMACROs
-	struct LineList * im_nextln;	// Next line to include
+	LLIST * im_nextln;		// Next line to include
 	WORD im_nargs;			// # of arguments supplied on invocation
 	WORD im_siz;			// Size suffix supplied on invocation
 	LONG im_olduniq;		// Old value of 'macuniq'
 	SYM * im_macro;			// Pointer to macro we're in
 	char im_lnbuf[LNSIZ];	// Line buffer
-	uint32_t argBase;		// Base in argPtrs[] for current macro
 	TOKENSTREAM argument[20];	// Assume no more than 20 arguments in an invocation
 };
 
 // Information about a .rept invocation
 IREPT {
-	LONG * ir_firstln;		// Pointer to first line
-	LONG * ir_nextln;		// Pointer to next line
+	LLIST * ir_firstln;		// Pointer to first line
+	LLIST * ir_nextln;		// Pointer to next line
 	VALUE ir_count;			// Repeat count (decrements)
 };
 
@@ -157,6 +159,7 @@ extern char tolowertab[];
 extern INOBJ * cur_inobj;
 extern int mjump_align;
 extern char * string[];
+int optimizeOff;
 
 // Exported functions
 int include(int, char *);