URL
https://opencores.org/ocsvn/System09/System09/trunk
Subversion Repositories System09
[/] [System09/] [trunk/] [Tools/] [as09/] [symtab.c] - Rev 153
Go to most recent revision | Compare with Previous | Blame | View Log
/* * install --- add a symbol to the table */ install(str,val) char *str; int val; { struct link *lp; struct nlist *np,*p,*backp; int i; char *LastChar(); /* ver TER_2.0 */ if( !alpha(*str) ){ error("Illegal Symbol Name"); return(NO); } if( (np = lookup(str)) != NULL ){ if (*LastChar(str) == '@') { /* redefinable symbol ver TER_2.0 */ np->def = val; /* redefined */ return(YES); } if( Pass==2 ){ np->def2 = 2; /* defined for this pass=Pass ver TER_2.0 */ if( np->def == val ) return(YES); else{ error("Phasing Error"); return(NO); } } error("Symbol Redefined"); return(NO); } /* enter new symbol */ #ifdef DEBUG printf("Installing %s as %d\n",str,val); #endif np = (struct nlist *) alloc(sizeof(struct nlist)); if( np == (struct nlist *)ERR ){ error("Symbol table full"); return(NO); } np->name = alloc(strlen(str)+1); if( np->name == (char *)ERR ){ error("Symbol table full"); return(NO); } strcpy(np->name,str); np->def = val; np->def2 = 1; /* defined for this pass=Pass ver TER_2.0 */ np->Lnext = NULL; np->Rnext = NULL; lp = (struct link *) alloc(sizeof(struct link)); np->L_list = lp; lp->L_num = Line_num; lp->next = NULL; p = root; backp = NULL; while (p != NULL) { backp = p; i = strcmp (str,p->name); if (i<0) p=p->Lnext; else p=p->Rnext; } if (backp == NULL) root = np; else if (strcmp(str,backp->name)<0) backp->Lnext = np; else backp->Rnext = np; return (YES); } /* * lookup --- find string in symbol table */ struct nlist * lookup(char *name) { struct nlist *np; int i; char *c; /* ver TER_2.0 */ c = name; /* copy symbol pointer */ while(alphan(*c)) /* search for end of symbol */ c++; /* next char */ *c = EOS; /* disconnect anything after for good compare */ /* end of mods for ver TER_2.0 */ np = root; /* and now go on and look for symbol */ while (np != NULL) { i = strcmp(name,np->name); if (i == 0) { Last_sym = np->def; return (np); } else if (i < 0) np = np->Lnext; else np = np->Rnext; } Last_sym = 0; /* if (Pass == 2) error ("symbol Undefined on pass 2"); */ /* commented out ver TER_2.0 2 Jul 89 */ /* function used in IFD */ return (NULL); } #define NMNE (sizeof(table)/ sizeof(struct oper)) #define NPSE (sizeof(pseudo)/ sizeof(struct oper)) /* * mne_look --- mnemonic lookup * * Return pointer to an oper structure if found. * Searches both the machine mnemonic table and the pseudo table. */ struct oper * mne_look(str) char *str; { struct oper *low,*high,*mid; int cond; /* Search machine mnemonics first */ low = &table[0]; high = &table[ NMNE-1 ]; while (low <= high){ mid = low + (high-low)/2; if( ( cond = strcmp(str,mid->mnemonic)) < 0) high = mid - 1; else if (cond > 0) low = mid + 1; else return(mid); } /* Check for pseudo ops */ low = &pseudo[0]; high = &pseudo[ NPSE-1 ]; while (low <= high){ mid = low + (high-low)/2; if( ( cond = strcmp(str,mid->mnemonic)) < 0) high = mid - 1; else if (cond > 0) low = mid + 1; else return(mid); } return(NULL); }
Go to most recent revision | Compare with Previous | Blame | View Log