From e5e64b8cec6d3b36c2eae2ff9597199664bf5112 Mon Sep 17 00:00:00 2001 From: "Anthony J. Bentley" Date: Wed, 7 Jan 2015 23:36:08 -0700 Subject: [PATCH] rgbasm: trim ludicrously redundant comments. --- src/asm/fstack.c | 88 ++++---------- src/asm/main.c | 38 +----- src/asm/math.c | 129 +++++++------------- src/asm/output.c | 302 +++++++++++++++-------------------------------- src/asm/rpn.c | 68 +++-------- src/asm/symbol.c | 273 +++++++++++++----------------------------- 6 files changed, 266 insertions(+), 632 deletions(-) diff --git a/src/asm/fstack.c b/src/asm/fstack.c index c41745d5..5cc5fd00 100644 --- a/src/asm/fstack.c +++ b/src/asm/fstack.c @@ -1,8 +1,5 @@ /* - * RGBAsm - FSTACK.C (FileStack routines) - * - * INCLUDES - * + * FileStack routines */ #include @@ -23,13 +20,6 @@ #define PATH_MAX 256 #endif -/* - * RGBAsm - FSTACK.C (FileStack routines) - * - * VARIABLES - * - */ - struct sContext *pFileStack; struct sSymbol *pCurrentMacro; YY_BUFFER_STATE CurrentFlexHandle; @@ -55,12 +45,8 @@ ULONG ulMacroReturnValue; #define STAT_isREPTBlock 3 /* - * RGBAsm - FSTACK.C (FileStack routines) - * * Context push and pop - * */ - void pushcontext(void) { @@ -167,13 +153,10 @@ yywrap(void) { return (popcontext()); } -/* - * RGBAsm - FSTACK.C (FileStack routines) - * - * Dump the context stack to stderr - * - */ +/* + * Dump the context stack to stderr + */ void fstk_Dump(void) { @@ -189,13 +172,10 @@ fstk_Dump(void) fprintf(stderr, "%s(%ld)", tzCurrentFileName, nLineNo); } -/* - * RGBAsm - FSTACK.C (FileStack routines) - * - * Extra includepath stuff - * - */ +/* + * Extra includepath stuff + */ void fstk_AddIncludePath(char *s) { @@ -230,13 +210,10 @@ fstk_FindFile(char *fname) errno = ENOENT; return NULL; } -/* - * RGBAsm - FSTACK.C (FileStack routines) - * - * Set up an include file for parsing - * - */ +/* + * Set up an include file for parsing + */ void fstk_RunInclude(char *tzFileName) { @@ -262,13 +239,10 @@ fstk_RunInclude(char *tzFileName) yyunput('\n'); nLineNo -= 1; } -/* - * RGBAsm - FSTACK.C (FileStack routines) - * - * Set up a macro for parsing - * - */ +/* + * Set up a macro for parsing + */ ULONG fstk_RunMacro(char *s) { @@ -290,13 +264,10 @@ fstk_RunMacro(char *s) } else return (0); } -/* - * RGBAsm - FSTACK.C (FileStack routines) - * - * Set up a macroargument for parsing - * - */ +/* + * Set up a macroargument for parsing + */ void fstk_RunMacroArg(SLONG s) { @@ -316,13 +287,10 @@ fstk_RunMacroArg(SLONG s) } else fatalerror("No such macroargument"); } -/* - * RGBAsm - FSTACK.C (FileStack routines) - * - * Set up a stringequate for parsing - * - */ +/* + * Set up a stringequate for parsing + */ void fstk_RunString(char *s) { @@ -338,13 +306,10 @@ fstk_RunString(char *s) } else yyerror("No such string symbol '%s'", s); } -/* - * RGBAsm - FSTACK.C (FileStack routines) - * - * Set up a repeat block for parsing - * - */ +/* + * Set up a repeat block for parsing + */ void fstk_RunRept(ULONG count) { @@ -362,13 +327,10 @@ fstk_RunRept(ULONG count) yy_switch_to_buffer(CurrentFlexHandle); } } -/* - * RGBAsm - FSTACK.C (FileStack routines) - * - * Initialize the filestack routines - * - */ +/* + * Initialize the filestack routines + */ void fstk_Init(char *s) { diff --git a/src/asm/main.c b/src/asm/main.c index 617dd25c..f34e4970 100644 --- a/src/asm/main.c +++ b/src/asm/main.c @@ -1,10 +1,3 @@ -/* - * RGBAsm - MAIN.C - * - * INCLUDES - * - */ - #include #include #include @@ -22,13 +15,6 @@ int yyparse(void); void setuplex(void); -/* - * RGBAsm - MAIN.C - * - * VARIABLES - * - */ - clock_t nStartClock, nEndClock; SLONG nLineNo; ULONG nTotalLines, nPass, nPC, nIFDepth, nErrors; @@ -36,10 +22,7 @@ ULONG nTotalLines, nPass, nPC, nIFDepth, nErrors; extern int yydebug; /* - * RGBAsm - MAIN.C - * * Option stack - * */ struct sOptions DefaultOptions; @@ -190,13 +173,10 @@ opt_Pop(void) } else fatalerror("No entries in the option stack"); } -/* - * RGBAsm - MAIN.C - * - * Error handling - * - */ +/* + * Error handling + */ void verror(const char *fmt, va_list args) { @@ -226,12 +206,6 @@ fatalerror(const char *fmt, ...) va_end(args); exit(5); } -/* - * RGBAsm - MAIN.C - * - * Help text - * - */ static void usage(void) @@ -241,12 +215,6 @@ usage(void) " [-p pad_value] file.asm\n"); exit(1); } -/* - * RGBAsm - MAIN.C - * - * main - * - */ int main(int argc, char *argv[]) diff --git a/src/asm/math.c b/src/asm/math.c index c47fbb2f..7ddfb18e 100644 --- a/src/asm/math.c +++ b/src/asm/math.c @@ -1,8 +1,5 @@ /* - * RGBAsm - MATH.C (Fixedpoint math routines) - * - * INCLUDES - * + * Fixedpoint math routines */ #include @@ -19,24 +16,17 @@ #endif /* - * RGBAsm - MATH.C (Fixedpoint math routines) - * * Define the _PI symbol - * */ - void math_DefinePI(void) { sym_AddEqu("_PI", double2fix(PI)); } -/* - * RGBAsm - MATH.C (Fixedpoint math routines) - * - * Print a fixed point value - * - */ +/* + * Print a fixed point value + */ void math_Print(SLONG i) { @@ -47,143 +37,110 @@ math_Print(SLONG i) printf("-%ld.%05ld", (-i) >> 16, ((SLONG) (fix2double(-i) * 100000 + 0.5)) % 100000); } -/* - * RGBAsm - MATH.C (Fixedpoint math routines) - * - * Calculate sine - * - */ +/* + * Calculate sine + */ SLONG math_Sin(SLONG i) { return (double2fix(sin(fix2double(i) * 2 * PI / 65536))); } -/* - * RGBAsm - MATH.C (Fixedpoint math routines) - * - * Calculate cosine - * - */ +/* + * Calculate cosine + */ SLONG math_Cos(SLONG i) { return (double2fix(cos(fix2double(i) * 2 * PI / 65536))); } -/* - * RGBAsm - MATH.C (Fixedpoint math routines) - * - * Calculate tangent - * - */ +/* + * Calculate tangent + */ SLONG math_Tan(SLONG i) { return (double2fix(tan(fix2double(i) * 2 * PI / 65536))); } -/* - * RGBAsm - MATH.C (Fixedpoint math routines) - * - * Calculate sine^-1 - * - */ +/* + * Calculate arcsine + */ SLONG math_ASin(SLONG i) { return (double2fix(asin(fix2double(i)) / 2 / PI * 65536)); } -/* - * RGBAsm - MATH.C (Fixedpoint math routines) - * - * Calculate cosine^-1 - * - */ +/* + * Calculate arccosine + */ SLONG math_ACos(SLONG i) { return (double2fix(acos(fix2double(i)) / 2 / PI * 65536)); } -/* - * RGBAsm - MATH.C (Fixedpoint math routines) - * - * Calculate tangent^-1 - * - */ +/* + * Calculate arctangent + */ SLONG math_ATan(SLONG i) { return (double2fix(atan(fix2double(i)) / 2 / PI * 65536)); } -/* - * RGBAsm - MATH.C (Fixedpoint math routines) - * - * Calculate atan2 - * - */ +/* + * Calculate atan2 + */ SLONG math_ATan2(SLONG i, SLONG j) { return (double2fix (atan2(fix2double(i), fix2double(j)) / 2 / PI * 65536)); } -/* - * RGBAsm - MATH.C (Fixedpoint math routines) - * - * Multiplication - * - */ +/* + * Multiplication + */ SLONG math_Mul(SLONG i, SLONG j) { return (double2fix(fix2double(i) * fix2double(j))); } -/* - * RGBAsm - MATH.C (Fixedpoint math routines) - * - * Division - * - */ +/* + * Division + */ SLONG math_Div(SLONG i, SLONG j) { return (double2fix(fix2double(i) / fix2double(j))); -}/* - * RGBAsm - MATH.C (Fixedpoint math routines) - * - * Round - * - */ +} +/* + * Round + */ SLONG math_Round(SLONG i) { return double2fix(round(fix2double(i))); -}/* - * RGBAsm - MATH.C (Fixedpoint math routines) - * - * Ceil - * - */ +} +/* + * Ceil + */ SLONG math_Ceil(SLONG i) { return double2fix(ceil(fix2double(i))); -}/* - * RGBAsm - MATH.C (Fixedpoint math routines) - * - * Floor - * - */ +} +/* + * Floor + */ SLONG math_Floor(SLONG i) { diff --git a/src/asm/output.c b/src/asm/output.c index affd9272..f4fbdf16 100644 --- a/src/asm/output.c +++ b/src/asm/output.c @@ -1,8 +1,5 @@ /* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * - * INCLUDES - * + * Outputs an objectfile */ #include @@ -22,13 +19,6 @@ #define SECTIONCHUNK 0x4000 -/* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * - * Internal structures - * - */ - void out_SetCurrentSection(struct Section * pSect); struct Patch { @@ -52,12 +42,6 @@ struct SectionStackEntry { struct Section *pSection; struct SectionStackEntry *pNext; }; -/* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * - * VARIABLES - * - */ struct PatchSymbol *tHashedPatchSymbols[HASHSIZE]; struct Section *pSectionList = NULL, *pCurrentSection = NULL; @@ -67,12 +51,8 @@ char *tzObjectname; struct SectionStackEntry *pSectionStack = NULL; /* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * * Section stack routines - * */ - void out_PushSection(void) { @@ -99,13 +79,10 @@ out_PopSection(void) } else fatalerror("No entries in the section stack"); } -/* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * - * Count the number of symbols used in this object - * - */ +/* + * Count the number of symbols used in this object + */ ULONG countsymbols(void) { @@ -121,13 +98,10 @@ countsymbols(void) return (count); } -/* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * - * Count the number of sections used in this object - * - */ +/* + * Count the number of sections used in this object + */ ULONG countsections(void) { @@ -143,13 +117,10 @@ countsections(void) return (count); } -/* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * - * Count the number of patches used in this object - * - */ +/* + * Count the number of patches used in this object + */ ULONG countpatches(struct Section * pSect) { @@ -164,13 +135,10 @@ countpatches(struct Section * pSect) return (r); } -/* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * - * Write a long to a file (little-endian) - * - */ +/* + * Write a long to a file (little-endian) + */ void fputlong(ULONG i, FILE * f) { @@ -179,13 +147,10 @@ fputlong(ULONG i, FILE * f) fputc(i >> 16, f); fputc(i >> 24, f); } -/* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * - * Write a NULL-terminated string to a file - * - */ +/* + * Write a NULL-terminated string to a file + */ void fputstring(char *s, FILE * f) { @@ -193,13 +158,10 @@ fputstring(char *s, FILE * f) fputc(*s++, f); fputc(0, f); } -/* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * - * Return a sections ID - * - */ +/* + * Return a section's ID + */ ULONG getsectid(struct Section * pSect) { @@ -218,13 +180,10 @@ getsectid(struct Section * pSect) fatalerror("INTERNAL: Unknown section"); return ((ULONG) - 1); } -/* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * - * Write a patch to a file - * - */ +/* + * Write a patch to a file + */ void writepatch(struct Patch * pPatch, FILE * f) { @@ -235,13 +194,10 @@ writepatch(struct Patch * pPatch, FILE * f) fputlong(pPatch->nRPNSize, f); fwrite(pPatch->pRPN, 1, pPatch->nRPNSize, f); } -/* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * - * Write a section to a file - * - */ +/* + * Write a section to a file + */ void writesection(struct Section * pSect, FILE * f) { @@ -269,13 +225,10 @@ writesection(struct Section * pSect, FILE * f) } } } -/* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * - * Write a symbol to a file - * - */ +/* + * Write a symbol to a file + */ void writesymbol(struct sSymbol * pSym, FILE * f) { @@ -319,13 +272,10 @@ writesymbol(struct sSymbol * pSym, FILE * f) fputlong(offset, f); } } -/* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * - * Add a symbol to the object - * - */ +/* + * Add a symbol to the object + */ ULONG addsymbol(struct sSymbol * pSym) { @@ -355,13 +305,10 @@ addsymbol(struct sSymbol * pSym) return pPSym->ID; } -/* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * - * Add all exported symbols to the object - * - */ +/* + * Add all exported symbols to the object + */ void addexports(void) { @@ -378,13 +325,10 @@ addexports(void) } } } -/* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * - * Allocate a new patchstructure and link it into the list - * - */ +/* + * Allocate a new patchstructure and link it into the list + */ struct Patch * allocpatch(void) { @@ -401,13 +345,10 @@ allocpatch(void) return (pPatch); } -/* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * - * Create a new patch (includes the rpn expr) - * - */ +/* + * Create a new patch (includes the rpn expr) + */ void createpatch(ULONG type, struct Expression * expr) { @@ -473,13 +414,10 @@ createpatch(ULONG type, struct Expression * expr) pPatch->nRPNSize = rpnptr; } } -/* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * - * A quick check to see if we have an initialized section - * - */ +/* + * A quick check to see if we have an initialized section + */ void checksection(void) { @@ -488,14 +426,11 @@ checksection(void) else fatalerror("Code generation before SECTION directive"); } + /* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * * A quick check to see if we have an initialized section that can contain * this much initialized data - * */ - void checkcodesection(SLONG size) { @@ -524,13 +459,10 @@ checkcodesection(SLONG size) } else errx(1, "Section '%s' is too big", pCurrentSection->pzName); } -/* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * - * Write an objectfile - * - */ +/* + * Write an objectfile + */ void out_WriteObject(void) { @@ -561,13 +493,10 @@ out_WriteObject(void) fclose(f); } } -/* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * - * Prepare for pass #2 - * - */ +/* + * Prepare for pass #2 + */ void out_PrepPass2(void) { @@ -581,13 +510,10 @@ out_PrepPass2(void) pCurrentSection = NULL; pSectionStack = NULL; } -/* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * - * Set the objectfilename - * - */ +/* + * Set the objectfilename + */ void out_SetFileName(char *s) { @@ -599,16 +525,12 @@ out_SetFileName(char *s) pCurrentSection = NULL; pPatchSymbols = NULL; } -/* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * - * Find a section by name and type. If it doesn't exist, create it - * - */ +/* + * Find a section by name and type. If it doesn't exist, create it + */ struct Section * -out_FindSection(char *pzName, ULONG secttype, SLONG org, - SLONG bank) +out_FindSection(char *pzName, ULONG secttype, SLONG org, SLONG bank) { struct Section *pSect, **ppSect; @@ -652,13 +574,10 @@ out_FindSection(char *pzName, ULONG secttype, SLONG org, return (NULL); } -/* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * - * Set the current section - * - */ +/* + * Set the current section + */ void out_SetCurrentSection(struct Section * pSect) { @@ -668,37 +587,28 @@ out_SetCurrentSection(struct Section * pSect) pPCSymbol->nValue = nPC; pPCSymbol->pSection = pCurrentSection; } -/* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * - * Set the current section by name and type - * - */ +/* + * Set the current section by name and type + */ void out_NewSection(char *pzName, ULONG secttype) { out_SetCurrentSection(out_FindSection(pzName, secttype, -1, -1)); } -/* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * - * Set the current section by name and type - * - */ +/* + * Set the current section by name and type + */ void out_NewAbsSection(char *pzName, ULONG secttype, SLONG org, SLONG bank) { out_SetCurrentSection(out_FindSection(pzName, secttype, org, bank)); } -/* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * - * Output an absolute byte - * - */ +/* + * Output an absolute byte + */ void out_AbsByte(int b) { @@ -719,13 +629,10 @@ out_AbsByteGroup(char *s, int length) while (length--) out_AbsByte(*s++); } -/* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * - * Skip this many bytes - * - */ +/* + * Skip this many bytes + */ void out_Skip(int skip) { @@ -741,13 +648,10 @@ out_Skip(int skip) out_AbsByte(CurrentOptions.fillchar); } } -/* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * - * Output a NULL terminated string (excluding the NULL-character) - * - */ +/* + * Output a NULL terminated string (excluding the NULL-character) + */ void out_String(char *s) { @@ -755,12 +659,10 @@ out_String(char *s) while (*s) out_AbsByte(*s++); } + /* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * * Output a relocatable byte. Checking will be done to see if it * is an absolute value in disguise. - * */ void @@ -780,13 +682,10 @@ out_RelByte(struct Expression * expr) rpn_Reset(expr); } -/* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * - * Output an absolute word - * - */ +/* + * Output an absolute word + */ void out_AbsWord(int b) { @@ -800,14 +699,11 @@ out_AbsWord(int b) nPC += 2; pPCSymbol->nValue += 2; } -/* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * - * Output a relocatable word. Checking will be done to see if - * is an absolute value in disguise. - * - */ +/* + * Output a relocatable word. Checking will be done to see if + * it's an absolute value in disguise. + */ void out_RelWord(struct Expression * expr) { @@ -828,13 +724,10 @@ out_RelWord(struct Expression * expr) out_AbsWord(expr->nVal); rpn_Reset(expr); } -/* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * - * Output an absolute longword - * - */ +/* + * Output an absolute longword + */ void out_AbsLong(SLONG b) { @@ -849,14 +742,11 @@ out_AbsLong(SLONG b) nPC += 4; pPCSymbol->nValue += 4; } + /* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * * Output a relocatable longword. Checking will be done to see if * is an absolute value in disguise. - * */ - void out_RelLong(struct Expression * expr) { @@ -879,13 +769,10 @@ out_RelLong(struct Expression * expr) out_AbsLong(expr->nVal); rpn_Reset(expr); } -/* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * - * Output a PC-relative byte - * - */ +/* + * Output a PC-relative byte + */ void out_PCRelByte(struct Expression * expr) { @@ -899,13 +786,10 @@ out_PCRelByte(struct Expression * expr) out_AbsByte(b); rpn_Reset(expr); } -/* - * RGBAsm - OUTPUT.C - Outputs an objectfile - * - * Output a binary file - * - */ +/* + * Output a binary file + */ void out_BinaryFile(char *s) { diff --git a/src/asm/rpn.c b/src/asm/rpn.c index e7c7f9e7..f3d140e0 100644 --- a/src/asm/rpn.c +++ b/src/asm/rpn.c @@ -1,8 +1,5 @@ /* - * RGBAsm - RPN.C - Controls RPN expressions for objectfiles - * - * INCLUDES - * + * Controls RPN expressions for objectfiles */ #include @@ -29,49 +26,26 @@ mergetwoexpressions(struct Expression * expr, struct Expression * src1, #define joinexpr() mergetwoexpressions(expr,src1,src2) /* - * RGBAsm - RPN.C - Controls RPN expressions for objectfiles - * - * VARIABLES - * - */ - -//UBYTE rpnexpr[2048]; -//ULONG rpnptr = 0; -//ULONG rpnoutptr = 0; -//ULONG reloc = 0; -//ULONG pcrel = 0; - -/* - * RGBAsm - RPN.C - Controls RPN expressions for objectfiles - * * Add a byte to the RPN expression - * */ - void pushbyte(struct Expression * expr, int b) { expr->tRPN[expr->nRPNLength++] = b & 0xFF; } -/* - * RGBAsm - RPN.C - Controls RPN expressions for objectfiles - * - * Reset the RPN module - * - */ +/* + * Reset the RPN module + */ void rpn_Reset(struct Expression * expr) { expr->nRPNLength = expr->nRPNOut = expr->isReloc = expr->isPCRel = 0; } -/* - * RGBAsm - RPN.C - Controls RPN expressions for objectfiles - * - * Returns the next rpn byte in expression - * - */ +/* + * Returns the next rpn byte in expression + */ UWORD rpn_PopByte(struct Expression * expr) { @@ -80,37 +54,28 @@ rpn_PopByte(struct Expression * expr) } else return (expr->tRPN[expr->nRPNOut++]); } -/* - * RGBAsm - RPN.C - Controls RPN expressions for objectfiles - * - * Determine if the current expression is relocatable - * - */ +/* + * Determine if the current expression is relocatable + */ ULONG rpn_isReloc(struct Expression * expr) { return (expr->isReloc); } -/* - * RGBAsm - RPN.C - Controls RPN expressions for objectfiles - * - * Determine if the current expression can be pc-relative - * - */ +/* + * Determine if the current expression can be pc-relative + */ ULONG rpn_isPCRelative(struct Expression * expr) { return (expr->isPCRel); } -/* - * RGBAsm - RPN.C - Controls RPN expressions for objectfiles - * - * Add symbols, constants and operators to expression - * - */ +/* + * Add symbols, constants and operators to expression + */ void rpn_Number(struct Expression * expr, ULONG i) { @@ -187,6 +152,7 @@ rpn_RangeCheck(struct Expression * expr, struct Expression * src, SLONG low, return (expr->nVal >= low && expr->nVal <= high); } } + void rpn_CheckHRAM(struct Expression * expr, struct Expression * src) { diff --git a/src/asm/symbol.c b/src/asm/symbol.c index 21f11b51..9a07bfad 100644 --- a/src/asm/symbol.c +++ b/src/asm/symbol.c @@ -1,8 +1,5 @@ /* - * RGBAsm - SYMBOL.C - Symboltable and macroargs stuff - * - * INCLUDES - * + * Symboltable and macroargs stuff */ #include @@ -16,13 +13,6 @@ #include "asm/mymath.h" #include "asm/output.h" -/* - * RGBAsm - SYMBOL.C - Symboltable stuff - * - * VARIABLES - * - */ - struct sSymbol *tHashedSymbols[HASHSIZE]; struct sSymbol *pScope = NULL; struct sSymbol *pPCSymbol = NULL; @@ -44,12 +34,8 @@ Callback_NARG(struct sSymbol * sym) } /* - * RGBAsm - SYMBOL.C - Symboltable stuff - * * Get the nValue field of a symbol - * */ - SLONG getvaluefield(struct sSymbol * sym) { @@ -58,13 +44,10 @@ getvaluefield(struct sSymbol * sym) } else return (sym->nValue); } -/* - * RGBAsm - SYMBOL.C - Symboltable stuff - * - * Calculate the hash value for a string - * - */ +/* + * Calculate the hash value for a string + */ ULONG calchash(char *s) { @@ -75,13 +58,10 @@ calchash(char *s) return (hash % HASHSIZE); } -/* - * RGBAsm - SYMBOL.C - Symboltable stuff - * - * Create a new symbol by name - * - */ +/* + * Create a new symbol by name + */ struct sSymbol * createsymbol(char *s) { @@ -110,12 +90,8 @@ createsymbol(char *s) } } /* - * RGBAsm - SYMBOL.C - Symboltable stuff - * * Find a symbol by name and scope - * */ - struct sSymbol * findsymbol(char *s, struct sSymbol * scope) { @@ -134,13 +110,10 @@ findsymbol(char *s, struct sSymbol * scope) } return (NULL); } -/* - * RGBAsm - SYMBOL.C - Symboltable stuff - * - * Find the pointer to a symbol by name and scope - * - */ +/* + * Find the pointer to a symbol by name and scope + */ struct sSymbol ** findpsymbol(char *s, struct sSymbol * scope) { @@ -159,13 +132,10 @@ findpsymbol(char *s, struct sSymbol * scope) } return (NULL); } -/* - * RGBAsm - SYMBOL.C - Symboltable stuff - * - * Find a symbol by name and scope - * - */ +/* + * Find a symbol by name and scope + */ struct sSymbol * sym_FindSymbol(char *tzName) { @@ -178,13 +148,10 @@ sym_FindSymbol(char *tzName) return (findsymbol(tzName, pscope)); } -/* - * RGBAsm - SYMBOL.C - Symboltable stuff - * - * Purge a symbol - * - */ +/* + * Purge a symbol + */ void sym_Purge(char *tzName) { @@ -212,13 +179,10 @@ sym_Purge(char *tzName) yyerror("'%s' not defined", tzName); } } -/* - * RGBAsm - SYMBOL.C - Symboltable stuff - * - * Determine if a symbol has been defined - * - */ +/* + * Determine if a symbol has been defined + */ ULONG sym_isConstDefined(char *tzName) { @@ -260,13 +224,10 @@ sym_isDefined(char *tzName) else return (0); } -/* - * RGBAsm - SYMBOL.C - Symboltable stuff - * - * Determine if the symbol is a constant - * - */ +/* + * Determine if the symbol is a constant + */ ULONG sym_isConstant(char *s) { @@ -283,13 +244,10 @@ sym_isConstant(char *s) } return (0); } -/* - * RGBAsm - SYMBOL.C - Symboltable stuff - * - * Get a string equate's value - * - */ +/* + * Get a string equate's value + */ char * sym_GetStringValue(char *tzSym) { @@ -303,13 +261,10 @@ sym_GetStringValue(char *tzSym) return (NULL); } -/* - * RGBAsm - SYMBOL.C - Symboltable stuff - * - * Return a constant symbols value - * - */ +/* + * Return a constant symbols value + */ ULONG sym_GetConstantValue(char *s) { @@ -332,13 +287,10 @@ sym_GetConstantValue(char *s) return (0); } -/* - * RGBAsm - SYMBOL.C - Symboltable stuff - * - * Return a symbols value... "estimated" if not defined yet - * - */ +/* + * Return a symbols value... "estimated" if not defined yet + */ ULONG sym_GetValue(char *s) { @@ -374,13 +326,10 @@ sym_GetValue(char *s) return (0); } -/* - * RGBAsm - SYMBOL.C - Symboltable stuff - * - * Return a defined symbols value... aborts if not defined yet - * - */ +/* + * Return a defined symbols value... aborts if not defined yet + */ ULONG sym_GetDefinedValue(char *s) { @@ -406,13 +355,10 @@ sym_GetDefinedValue(char *s) return (0); } -/* - * RGBAsm - SYMBOL.C - Symboltable stuff - * - * Macro argument stuff - * - */ +/* + * Macro argument stuff + */ void sym_ShiftCurrentMacroArgs(void) { @@ -510,25 +456,19 @@ sym_UseCurrentMacroArgs(void) for (i = 1; i <= MAXMACROARGS; i += 1) sym_AddNewMacroArg(sym_FindMacroArg(i)); } -/* - * RGBAsm - SYMBOL.C - Symboltable stuff - * - * Find a macro by name - * - */ +/* + * Find a macro by name + */ struct sSymbol * sym_FindMacro(char *s) { return (findsymbol(s, NULL)); } -/* - * RGBAsm - SYMBOL.C - Symboltable stuff - * - * Add an equated symbol - * - */ +/* + * Add an equated symbol + */ void sym_AddEqu(char *tzSym, SLONG value) { @@ -551,13 +491,10 @@ sym_AddEqu(char *tzSym, SLONG value) } } } -/* - * RGBAsm - SYMBOL.C - Symboltable stuff - * - * Add a string equated symbol - * - */ +/* + * Add a string equated symbol + */ void sym_AddString(char *tzSym, char *tzValue) { @@ -580,13 +517,10 @@ sym_AddString(char *tzSym, char *tzValue) nsym->pScope = NULL; } } -/* - * RGBAsm - SYMBOL.C - Symboltable stuff - * - * check if symbol is a string equated symbol - * - */ +/* + * check if symbol is a string equated symbol + */ ULONG sym_isString(char *tzSym) { @@ -598,13 +532,10 @@ sym_isString(char *tzSym) } return (0); } -/* - * RGBAsm - SYMBOL.C - Symboltable stuff - * - * Alter a SET symbols value - * - */ +/* + * Alter a SET symbols value + */ void sym_AddSet(char *tzSym, SLONG value) { @@ -620,13 +551,10 @@ sym_AddSet(char *tzSym, SLONG value) nsym->pScope = NULL; } } -/* - * RGBAsm - SYMBOL.C - Symboltable stuff - * - * Add a local (.name) relocatable symbol - * - */ +/* + * Add a local (.name) relocatable symbol + */ void sym_AddLocalReloc(char *tzSym) { @@ -654,13 +582,10 @@ sym_AddLocalReloc(char *tzSym) fatalerror("Local label in main scope"); } } -/* - * RGBAsm - SYMBOL.C - Symboltable stuff - * - * Add a relocatable symbol - * - */ +/* + * Add a relocatable symbol + */ void sym_AddReloc(char *tzSym) { @@ -684,15 +609,11 @@ sym_AddReloc(char *tzSym) } } pScope = findsymbol(tzSym, NULL); - } -/* - * RGBAsm - SYMBOL.C - Symboltable stuff - * - * Export a symbol - * - */ +/* + * Export a symbol + */ void sym_Export(char *tzSym) { @@ -716,13 +637,10 @@ sym_Export(char *tzSym) } } -/* - * RGBAsm - SYMBOL.C - Symboltable stuff - * - * Import a symbol - * - */ +/* + * Import a symbol + */ void sym_Import(char *tzSym) { @@ -737,13 +655,10 @@ sym_Import(char *tzSym) nsym->nType |= SYMF_IMPORT; } } -/* - * RGBAsm - SYMBOL.C - Symboltable stuff - * - * Globalize a symbol (export if defined, import if not) - * - */ +/* + * Globalize a symbol (export if defined, import if not) + */ void sym_Global(char *tzSym) { @@ -765,13 +680,10 @@ sym_Global(char *tzSym) } } } -/* - * RGBAsm - SYMBOL.C - Symboltable stuff - * - * Add a macro definition - * - */ +/* + * Add a macro definition + */ void sym_AddMacro(char *tzSym) { @@ -796,25 +708,19 @@ sym_AddMacro(char *tzSym) } } } -/* - * RGBAsm - SYMBOL.C - Symboltable stuff - * - * Prepare for pass #1 - * - */ +/* + * Prepare for pass #1 + */ void sym_PrepPass1(void) { sym_Init(); } -/* - * RGBAsm - SYMBOL.C - Symboltable stuff - * - * Prepare for pass #2 - * - */ +/* + * Prepare for pass #2 + */ void sym_PrepPass2(void) { @@ -846,13 +752,10 @@ sym_PrepPass2(void) p_NARGSymbol = findsymbol("_NARG", NULL); p_NARGSymbol->Callback = Callback_NARG; } -/* - * RGBAsm - SYMBOL.C - Symboltable stuff - * - * Initialise the symboltable - * - */ +/* + * Initialize the symboltable + */ void sym_Init(void) { @@ -889,13 +792,10 @@ sym_Init(void) math_DefinePI(); } -/* - * RGBAsm - SYMBOL.C - Symboltable stuff - * - * DEBUG: Print the symbol table - * - */ +/* + * DEBUG: Print the symbol table + */ void sym_PrintSymbolTable(void) { @@ -943,13 +843,10 @@ sym_PrintSymbolTable(void) } } } -/* - * RGBAsm - SYMBOL.C - Symboltable stuff - * - * DEBUG: Dump the macroargs - * - */ +/* + * DEBUG: Dump the macroargs + */ void sym_DumpMacroArgs(void) {