projects / unix-history / blob
? search:
summary | tags | clone url | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
BSD 4 release
[unix-history] / usr / src / cmd / as / asparse.c
/* Copyright (c) 1980 Regents of the University of California */
static char sccsid[] = "@(#)asparse.c 4.7 8/20/80";
#include <stdio.h>
#include "as.h"
#include "asexpr.h"
#include "asscan.h"
#include "assyms.h"
int lgensym[10];
char genref[10];
long bitfield;
int bitoff;
int curlen; /* current length of literals */
/*
* The following three variables are communication between various
* modules to special case a number of things. They are properly
* categorized as hacks.
*/
extern struct symtab *lastnam;/*last name seen by the lexical analyzer*/
int exprisname; /*last factor in an expression was a name*/
int droppedLP; /*one is analyzing an expression beginning with*/
/*a left parenthesis, which has already been*/
/*shifted. (Used to parse (<expr>)(rn)*/
char yytext[NCPS+2]; /*the lexical image*/
int yylval; /*the lexical value; sloppy typing*/
/*
* Expression and argument managers
*/
struct exp *xp; /*next free expression slot, used by expr.c*/
struct exp explist[NEXP]; /*max of 20 expressions in one opcode*/
struct arg arglist[NARG]; /*building up operands in instructions*/
/*
* Sets to accelerate token discrimination
*/
char tokensets[(LASTTOKEN) - (FIRSTTOKEN) + 1];
static char UDotsname[32]; /*name of the assembly source*/
int yyparse()
{
register struct exp *locxp;
/*
* loc1xp and ptrloc1xp are used in the
* expression lookahead
*/
struct exp *loc1xp; /*must be non register*/
struct exp **ptrloc1xp = & loc1xp;
struct exp *pval; /*hacking expr:expr*/
register struct symtab *np;
register int argcnt;
register int val; /*what yylex gives*/
register int auxval; /*saves val*/
register struct arg *ap; /*first free argument*/
struct symtab *p;
register struct symtab *stpt;
struct strdesc *stringp; /*handles string lists*/
int regno; /*handles arguments*/
int *ptrregno = &regno;
int sawmul; /*saw * */
int sawindex; /*saw [rn]*/
int sawsize;
int seg_type; /*the kind of segment: data or text*/
int seg_number; /*the segment number*/
int space_value; /*how much .space needs*/
int fill_rep; /*how many reps for .fill */
int fill_size; /*how many bytes for .fill */
int field_width; /*how wide a field is to be*/
int field_value; /*the value to stuff in a field*/
char *stabname; /*name of stab dealing with*/
ptrall stabstart; /*where the stab starts in the buffer*/
int reloc_how; /* how to relocate expressions */
xp = explist;
ap = arglist;
val = yylex();
while (val != PARSEEOF){ /* primary loop */
while (INTOKSET(val, LINSTBEGIN)){
if (val == INT) {
int i = ((struct exp *)yylval)->e_xvalue;
shift;
if (val != COLON)
goto nocolon;
if (i < 0 || i > 9) {
yyerror("Local labels are 0-9");
goto errorfix;
}
sprintf(yytext, "L%d\001%d", i, lgensym[i]);
lgensym[i]++;
genref[i] = 0;
yylval = (int)*lookup(passno == 1);
val = NAME;
np = (struct symtab *)yylval;
goto restlab;
}
if (val == NL){
lineno++;
shift;
} else
if (val == SEMI)
shift;
else { /*its a name, so we have a label or def */
if (val != NAME){
ERROR("Name expected for a label");
}
np = (struct symtab *)yylval;
shiftover(NAME);
nocolon:
if (val != COLON) {
#ifdef FLEXNAMES
yyerror("\"%s\" is not followed by a ':' for a label definition",
#else not FLEXNAMES
yyerror("\"%.*s\" is not followed by a ':' for a label definition",
NCPS,
#endif not FLEXNAMES
np->s_name);
goto errorfix;
}
restlab:
shift;
flushfield(NBPW/4);
if ((np->s_type&XTYPE)!=XUNDEF) {
if( (np->s_type&XTYPE)!=dotp->e_xtype
|| np->s_value!=dotp->e_xvalue
|| ( (passno==1)
&&(np->s_index != dotp->e_xloc)
)
){
#ifndef DEBUG
if (np->s_name[0] != 'L')
#endif not DEBUG
{
if (passno == 1)
#ifdef FLEXNAMES
yyerror("%s redefined",
#else not FLEXNAMES
yyerror("%.*s redefined",
NCPS,
#endif not FLEXNAMES
np->s_name);
else
#ifdef FLEXNAMES
yyerror("%s redefined: PHASE ERROR, 1st: %d, 2nd: %d",
#else not FLEXNAMES
yyerror("%.*s redefined: PHASE ERROR, 1st: %d, 2nd: %d",
NCPS,
#endif not FLEXNAMES
np->s_name,
np->s_value,
dotp->e_xvalue);
}
}
}
np->s_type &= ~(XTYPE|XFORW);
np->s_type |= dotp->e_xtype;
np->s_value = dotp->e_xvalue;
if (passno == 1){
np->s_index = dotp-usedot;
if (np->s_name[0] == 'L'){
nlabels++;
}
np->s_tag = LABELID;
}
} /*end of this being a label*/
} /*end of to consuming all labels, NLs and SEMIS */
xp = explist;
ap = arglist;
/*
* process the INSTRUCTION body
*/
switch(val){
default:
ERROR("Unrecognized instruction or directive");
case IABORT:
shift;
sawabort();
/*NOTREACHED*/
break;
case PARSEEOF:
tokptr -= sizeof(toktype);
*tokptr++ = VOID;
tokptr[1] = VOID;
tokptr[2] = PARSEEOF;
break;
case IFILE:
shift;
stringp = (struct strdesc *)yylval;
shiftover(STRING);
dotsname = &UDotsname[0];
movestr(dotsname, stringp->str,
stringp->str_lg >= 32? 32 :stringp->str_lg);
dotsname[stringp->str_lg] = '\0';
break;
case ILINENO:
shift; /*over the ILINENO*/
expr(locxp, val);
lineno = locxp->e_xvalue;
break;
case ISET: /* .set <name> , <expr> */
shift;
np = (struct symtab *)yylval;
shiftover(NAME);
shiftover(CM);
expr(locxp, val);
np->s_type &= (XXTRN|XFORW);
np->s_type |= locxp->e_xtype&(XTYPE|XFORW);
np->s_value = locxp->e_xvalue;
if (passno==1)
np->s_index = locxp->e_xloc;
if ((locxp->e_xtype&XTYPE) == XUNDEF)
yyerror("Illegal set?");
break;
case ILSYM: /*.lsym name , expr */
shift;
np = (struct symtab *)yylval;
shiftover(NAME);
shiftover(CM);
expr(locxp, val);
/*
* Build the unique occurance of the
* symbol.
* The character scanner will have
* already entered it into the symbol
* table, but we should remove it
*/
if (passno == 1){
stpt = (struct symtab *)symalloc();
#ifdef FLEXNAMES
stpt->s_name = np->s_name;
#else
movestr(stpt->s_name, np->s_name, NCPS);
#endif
np->s_tag = OBSOLETE; /*invalidate original */
nforgotten++;
np = stpt;
if (locxp->e_xtype != XABS)
("Illegal lsym");
np->s_value=locxp->e_xvalue;
np->s_type=XABS;
np->s_tag = ILSYM;
}
break;
case IGLOBAL: /*.globl <name> */
shift;
np = (struct symtab *)yylval;
shiftover(NAME);
np->s_type |= XXTRN;
break;
case IDATA: /*.data [ <expr> ] */
case ITEXT: /*.text [ <expr> ] */
seg_type = -val;
shift;
if (INTOKSET(val, EBEGOPS+YUKKYEXPRBEG+SAFEEXPRBEG)){
expr(locxp, val);
seg_type = -seg_type; /*now, it is positive*/
}
if (seg_type < 0) { /*there wasn't an associated expr*/
seg_number = 0;
seg_type = -seg_type;
} else {
if (locxp->e_xtype != XABS || (seg_number=locxp->e_xvalue) >= NLOC) {
yyerror("illegal location counter");
seg_number = 0;
}
}
if (seg_type == IDATA)
seg_number += NLOC;
flushfield(NBPW/4);
dotp = &usedot[seg_number];
#ifdef UNIX
if (passno==2) { /* go salt away in pass 2*/
txtfil = usefile[seg_number];
relfil = rusefile[seg_number];
}
#endif UNIX
#ifdef VMS
if (passno==2) {
puchar(vms_obj_ptr,6); /* setpl */
puchar(vms_obj_ptr,seg_number); /* psect # */
plong(vms_obj_ptr,dotp->e_xvalue);/* offset */
puchar(vms_obj_ptr,80); /* setrb */
if((vms_obj_ptr-sobuf) > 400){
write(objfil,sobuf,vms_obj_ptr-sobuf);
vms_obj_ptr=sobuf+1; /*flush buf*/
}
}
#endif VMS
break;
/*
* Storage filler directives:
*
* .byte [<exprlist>]
*
* exprlist: empty | exprlist outexpr
* outexpr: <expr> | <expr> : <expr>
*/
case IBYTE: curlen = NBPW/4; goto elist;
case IINT:
case ILONG: curlen = NBPW; goto elist;
case IWORD:
curlen = NBPW/2;
elist:
seg_type = val;
shift;
/*
* Expression List processing
*/
if (INTOKSET(val, EBEGOPS+YUKKYEXPRBEG+SAFEEXPRBEG)){
do{
/*
* expression list consists of a list of :
* <expr>
* <expr> : <expr>
* (pack expr2 into expr1 bits
*/
expr(locxp, val);
/*
* now, pointing at the next token
*/
if (val == COLON){
shiftover(COLON);
expr(pval, val);
if (locxp->e_xtype != XABS)
yyerror("Width not absolute");
field_width = locxp->e_xvalue;
locxp = pval;
if (bitoff + field_width >
curlen)
flushfield(curlen);
if (field_width > curlen)
yyerror("Expression crosses field boundary");
} else {
field_width = curlen;
flushfield(curlen);
}
if ((locxp->e_xtype&XTYPE)!=XABS) {
if (bitoff)
yyerror("Illegal relocation in field");
switch(curlen){
case NBPW/4: reloc_how = TYPB; break;
case NBPW/2: reloc_how = TYPW; break;
case NBPW: reloc_how = TYPL; break;
}
if (passno == 1){
dotp->e_xvalue += ty_nbyte[reloc_how];
} else {
outrel(locxp, reloc_how);
}
} else {
field_value = locxp->e_xvalue & ( (1L << field_width)-1);
bitfield |= field_value << bitoff;
bitoff += field_width;
}
if ( auxval = (val == CM)) shift;
xp = explist;
} while (auxval);
} /*existed an expression at all*/
flushfield(curlen);
if ( ( curlen == NBPW/4) && bitoff)
dotp->e_xvalue ++;
break;
/*end of case IBYTE, IWORD, ILONG, IINT*/
case ISPACE: /* .space <expr> */
shift;
expr(locxp, val);
if (locxp->e_xtype != XABS)
yyerror("Space size not absolute");
space_value = locxp->e_xvalue;
ospace:
flushfield(NBPW/4);
#ifdef UNIX
while (space_value > 96){
outs(strbuf[2].str, 96);
space_value -= 96;
}
outs(strbuf[2].str, space_value);
#endif UNIX
#ifdef VMS
dotp->e_xvalue += space_value; /*bump pc*/
if (passno==2){
if(*(strbuf[2].str)==0) {
puchar(vms_obj_ptr,81); /* AUGR */
pulong(vms_obj_ptr,space_value);/* incr */
} else yyerror("VMS, encountered non-0 .space");
if ((vms_obj_ptr-sobuf) > 400) {
write(objfil,sobuf,vms_obj_ptr-sobuf);
vms_obj_ptr=sobuf+1; /*pur buf*/
}
}
#endif VMS
break;
#ifdef UNIX
/*
* .fill rep, size, value
* repeat rep times: fill size bytes with (truncated) value
* size must be between 1 and 8
*/
case IFILL:
shift;
expr(locxp, val);
if (locxp->e_xtype != XABS)
yyerror("Fill repetition count not absolute");
fill_rep = locxp->e_xvalue;
shiftover(CM);
expr(locxp, val);
if (locxp->e_xtype != XABS)
yyerror("Fill size not absolute");
fill_size = locxp->e_xvalue;
if (fill_size <= 0 || fill_size > 8)
yyerror("Fill count not in in 1..8");
shiftover(CM);
expr(locxp, val);
if (passno == 2 && locxp->e_xtype != XABS)
yyerror("Fill value not absolute");
flushfield(NBPW/4);
if (passno == 1) {
locxp->e_xvalue += fill_rep * fill_size;
} else {
while(fill_rep-- > 0)
bwrite(&locxp->e_xvalue, fill_size, txtfil);
}
break;
#endif UNIX
case IASCII: /* .ascii [ <stringlist> ] */
case IASCIZ: /* .asciz [ <stringlist> ] */
auxval = val;
shift;
/*
* Code to consume a string list
*
* stringlist: empty | STRING | stringlist STRING
*/
while (val == STRING){
flushfield(NBPW/4);
if (bitoff)
dotp->e_xvalue++;
stringp = (struct strdesc *)yylval;
#ifdef UNIX
outs(stringp->str, stringp->str_lg);
#endif UNIX
#ifdef VMS
{
register int i;
for (i=0; i < stringp->str_lg; i++){
dotp->e_xvalue += 1;
if (passno==2){
puchar(vms_obj_ptr,-1);
puchar(vms_obj_ptr,stringp->str[i]);
if (vms_obj_ptr-sobuf > 400) {
write(objfil,sobuf,vms_obj_ptr-sobuf);
vms_obj_ptr = sobuf + 1;
}
}
}
}
#endif VMS
shift; /*over the STRING*/
if (val == CM) /*could be a split string*/
shift;
}
if (auxval == IASCIZ){
flushfield(NBPW/4);
#ifdef UNIX
outb(0);
#endif UNIX
#ifdef VMS
if (passno == 2) {
puchar(vms_obj_ptr,-1);
puchar(vms_obj_ptr,0);
}
dotp->e_xvalue += 1;
#endif VMS
}
break;
case IORG: /* .org <expr> */
shift;
expr(locxp, val);
if (locxp->e_xtype==XABS)
orgwarn++;
else if ((locxp->e_xtype & ~XXTRN) != dotp->e_xtype)
yyerror("Illegal expression to set origin");
space_value = locxp->e_xvalue - dotp->e_xvalue;
if (space_value < 0)
yyerror("Backwards 'org'");
goto ospace;
break;
/*
*
* Process stabs. Stabs are created only by the f77
* and the C compiler with the -g flag set.
* We only look at the stab ONCE, during pass 1, and
* virtually remove the stab from the intermediate file
* so it isn't seen during pass2. This makes for some
* hairy processing to handle labels occuring in
* stab entries, but since most expressions in the
* stab are integral we save lots of time in the second
* pass by not looking at the stabs.
* A stab that is tagged floating will be bumped during
* the jxxx resolution phase. A stab tagged fixed will
* not be be bumped.
*
* .stab: Old fashioned stabs
* .stabn: For stabs without names
* .stabs: For stabs with string names
* .stabd: For stabs for line numbers or bracketing,
* without a string name, without
* a final expression. The value of the
* final expression is taken to be the current
* location counter, and is patched by the 2nd pass
*
* .stab{<expr>,}*NCPS,<expr>, <expr>, <expr>, <expr>
* .stabn <expr>, <expr>, <expr>, <expr>
* .stabs STRING, <expr>, <expr>, <expr>, <expr>
* .stabd <expr>, <expr>, <expr> # .
*/
case ISTAB:
#ifndef FLEXNAMES
stabname = ".stab";
if (passno == 2) goto errorfix;
stpt = (struct symtab *)yylval;
/*
* Make a pointer to the .stab slot.
* There is a pointer in the way (stpt), and
* tokptr points to the next token.
*/
stabstart = tokptr;
(char *)stabstart -= sizeof(struct symtab *);
(char *)stabstart -= sizeof(toktype);
shift;
for (argcnt = 0; argcnt < NCPS; argcnt++){
expr(locxp, val);
stpt->s_name[argcnt] = locxp->e_xvalue;
xp = explist;
shiftover(CM);
}
goto tailstab;
#else FLEXNAMES
yyerror(".stab directive not supported in; report this compiler bug to system administrator");
goto errorfix;
#endif FLEXNAMES
tailstab:
expr(locxp, val);
if (! (locxp->e_xvalue & STABTYPS)){
yyerror("Invalid type in %s",stabname);
goto errorfix;
}
stpt->s_ptype = locxp->e_xvalue;
shiftover(CM);
expr(locxp, val);
stpt->s_other = locxp->e_xvalue;
shiftover(CM);
expr(locxp, val);
stpt->s_desc = locxp->e_xvalue;
shiftover(CM);
exprisname = 0;
expr(locxp, val);
p = locxp->e_xname;
if (p == NULL) { /*absolute expr to begin with*/
stpt->s_value = locxp->e_xvalue;
stpt->s_index = dotp - usedot;
if (exprisname){
switch(stpt->s_ptype){
case N_GSYM:
case N_FNAME:
case N_RSYM:
case N_SSYM:
case N_LSYM:
case N_PSYM:
case N_BCOMM:
case N_ECOMM:
case N_LENG:
stpt->s_tag = STABFIXED;
break;
default:
stpt->s_tag = STABFLOATING;
break;
}
} else
stpt->s_tag = STABFIXED;
}
else { /*really have a name*/
stpt->s_dest = locxp->e_xname;
stpt->s_index = p->s_index;
stpt->s_type = p->s_type | STABFLAG;
/*
* We will assign a more accruate
* guess of locxp's location when
* we sort the symbol table
* The final value of value is
* given by stabfix()
*/
stpt->s_tag = STABFLOATING;
}
/*
* tokptr now points at one token beyond
* the current token stored in val and yylval,
* which are the next tokens after the end of
* this .stab directive. This next token must
* be either a SEMI or NL, so is of width just
* one. Therefore, to point to the next token
* after the end of this stab, just back up one..
*/
buildskip(stabstart, (char *)tokptr - sizeof(toktype));
break; /*end of the .stab*/
case ISTABDOT:
stabname = ".stabd";
stpt = (struct symtab *)yylval;
/*
* We clobber everything after the
* .stabd and its pointer... we MUST
* be able to get back to this .stabd
* so that we can resolve its final value
*/
stabstart = tokptr;
shift; /*over the ISTABDOT*/
if (passno == 1){
expr(locxp, val);
if (! (locxp->e_xvalue & STABTYPS)){
yyerror("Invalid type in .stabd");
goto errorfix;
}
stpt->s_ptype = locxp->e_xvalue;
shiftover(CM);
expr(locxp, val);
stpt->s_other = locxp->e_xvalue;
shiftover(CM);
expr(locxp, val);
stpt->s_desc = locxp->e_xvalue;
/*
*
* Now, clobber everything but the
* .stabd pseudo and the pointer
* to its symbol table entry
* tokptr points to the next token,
* build the skip up to this
*/
buildskip(stabstart, (toktype *)tokptr - sizeof(toktype));
}
/*
* pass 1: Assign a good guess for its position
* (ensures they are sorted into right place)/
* pass 2: Fix the actual value
*/
stpt->s_value = dotp->e_xvalue;
stpt->s_index = dotp - usedot;
stpt->s_tag = STABFLOATING; /*although it has no effect in pass 2*/
break;
case ISTABNONE: stabname = ".stabn"; goto shortstab;
case ISTABSTR: stabname = ".stabs";
shortstab:
auxval = val;
if (passno == 2) goto errorfix;
stpt = (struct symtab *)yylval;
stabstart = tokptr;
(char *)stabstart -= sizeof(struct symtab *);
(char *)stabstart -= sizeof(toktype);
shift;
if (auxval == ISTABSTR){
stringp = (struct strdesc *)yylval;
shiftover(STRING);
#ifndef FLEXNAMES
auxval = stringp->str_lg > NCPS ? NCPS : stringp->str_lg;
#else
stringp->str[stringp->str_lg] = 0;
#endif
shiftover(CM);
} else {
stringp = &(strbuf[2]);
#ifndef FLEXNAMES
auxval = NCPS;
#endif
}
#ifndef FLEXNAMES
movestr(stpt->s_name, stringp->str, auxval);
#else
stpt->s_name = savestr(stringp->str);
#endif
goto tailstab;
break;
case ICOMM: /* .comm <name> , <expr> */
case ILCOMM: /* .lcomm <name> , <expr> */
auxval = val;
shift;
np = (struct symtab *)yylval;
shiftover(NAME);
shiftover(CM);
expr(locxp, val);
if (locxp->e_xtype != XABS)
yyerror("comm size not absolute");
if (passno==1 && (np->s_type&XTYPE)!=XUNDEF)
#ifdef FLEXNAMES
yyerror("Redefinition of %s",
#else not FLEXNAMES
yyerror("Redefinition of %.*s",
NCPS,
#endif not FLEXNAMES
np->s_name);
if (passno==1) {
np->s_value = locxp->e_xvalue;
if (auxval == ICOMM)
np->s_type |= XXTRN;
else {
np->s_type &= ~XTYPE;
np->s_type |= XBSS;
}
}
break;
case IALIGN: /* .align <expr> */
stpt = (struct symtab *)yylval;
shift;
expr(locxp, val);
jalign(locxp, stpt);
break;
case INST0: /* instructions w/o arguments*/
insout(yylval, (struct arg *)0, 0);
shift;
break;
case INSTn: /* instructions with arguments*/
case IJXXX: /* UNIX style jump instructions */
auxval = val;
seg_type = yylval;
/*
* Code to process an argument list
*/
ap = arglist;
xp = explist;
shift; /* bring in the first token for the arg list*/
for (argcnt = 1; argcnt <= 6; argcnt++, ap++){
/*
* code to process an argument proper
*/
sawindex = sawmul = sawsize = 0;
{
switch(val) {
default:
disp:
if( !(INTOKSET(val,
EBEGOPS
+YUKKYEXPRBEG
+SAFEEXPRBEG)) ) {
ERROR("expression expected");
}
expr(ap->a_xp,val);
overdisp:
if ( val == LP || sawsize){
shiftover(LP);
findreg(regno);
shiftover(RP);
ap->a_atype = ADISP;
ap->a_areg1 = regno;
} else {
ap->a_atype = AEXP;
ap->a_areg1 = 0;
}
goto index;
case SIZESPEC:
sizespec:
sawsize = yylval;
shift;
goto disp;
case REG:
case REGOP:
findreg(regno);
ap->a_atype = AREG;
ap->a_areg1 = regno;
break;
case MUL:
sawmul = 1;
shift;
if (val == LP) goto base;
if (val == LITOP) goto imm;
if (val == SIZESPEC) goto sizespec;
if (INTOKSET(val,
EBEGOPS
+YUKKYEXPRBEG
+SAFEEXPRBEG)) goto disp;
ERROR("expression, '(' or '$' expected");
break;
case LP:
base:
shift; /*consume the LP*/
/*
* hack the ambiguity of
* movl (expr) (rn), ...
* note that (expr) could also
* be (rn) (by special hole in the
* grammar), which we ensure
* means register indirection, instead
* of an expression with value n
*/
if (val != REG && val != REGOP){
droppedLP = 1;
val = exprparse(val, &(ap->a_xp));
droppedLP = 0;
goto overdisp;
}
findreg(regno);
shiftover(RP);
if (val == PLUS){
shift;
ap->a_atype = AINCR;
} else
ap->a_atype = ABASE;
ap->a_areg1 = regno;
goto index;
case LITOP:
imm:
shift;
expr(locxp, val);
ap->a_atype = AIMM;
ap->a_areg1 = 0;
ap->a_xp = locxp;
goto index;
case MP:
shift; /* -(reg) */
findreg(regno);
shiftover(RP);
ap->a_atype = ADECR;
ap->a_areg1 = regno;
index: /*look for [reg] */
if (val == LB){
shift;
findreg(regno);
shiftover(RB);
sawindex = 1;
ap->a_areg2 = regno;
}
break;
} /*end of the switch to process an arg*/
} /*end of processing an argument*/
if (sawmul){
/*
* Make a concession for *(%r)
* meaning *0(%r)
*/
if (ap->a_atype == ABASE) {
ap->a_atype = ADISP;
xp->e_xtype = XABS;
xp->e_xvalue = 0;
xp->e_xloc = 0;
ap->a_xp = xp++;
}
ap->a_atype |= ASTAR;
sawmul = 0;
}
if (sawindex){
ap->a_atype |= AINDX;
sawindex = 0;
}
ap->a_dispsize = sawsize == 0 ? d124 : sawsize;
if (val != CM) break;
shiftover(CM);
} /*processing all the arguments*/
if (argcnt > 6){
yyerror("More than 6 arguments");
goto errorfix;
}
insout(seg_type, arglist,
auxval == INSTn ? argcnt : - argcnt);
break;
case IFLOAT: curlen = 4; goto floatlist;
case IQUAD:
case IDOUBLE:
curlen = 8;
floatlist:
/*
* eat a list of floating point numbers
*/
shift;
if (val == FLTNUM){
/* KLS MOD */
float flocal;
do{
if (val == CM) shift;
if (val != FLTNUM) {
ERROR("floating number expected");
}
dotp->e_xvalue += curlen;
#ifdef UNIX
if (passno == 2) {
if(curlen == 8)
bwrite((char *)&(((union Double *)yylval)->dvalue),
curlen, txtfil);
else {
flocal = ((union Double *)yylval)->dvalue;
bwrite((char *)&flocal, curlen, txtfil);
}
}
#endif UNIX
#ifdef VMS
if (passno == 2) {
puchar(vms_obj_ptr,-4);
pulong(vms_obj_ptr,
((struct exp *)yylval)
->doub_MSW);
if (curlen==8) {
puchar(vms_obj_ptr,-4);
pulong(vms_obj_ptr,
((struct exp *)yylval)
->doub_LSW);
}
if((vms_obj_ptr-sobuf) > 400) {
write(objfil,sobuf,vms_obj_ptr-sobuf);
vms_obj_ptr = sobuf + 1;
}
}
#endif VMS
shift;
xp = explist;
} while (val == CM);
}
break;
} /*end of the switch for looking at each reserved word*/
continue;
errorfix:
/*
* got here by either requesting to skip to the
* end of this statement, or by erroring out and
* wanting to apply panic mode recovery
*/
while ( (val != NL)
&& (val != SEMI)
&& (val != PARSEEOF)
){
shift;
}
if (val == NL)
lineno++;
shift;
} /*end of the loop to read the entire file, line by line*/
} /*end of yyparse*/
/*
* Process a register declaration of the form
* % <expr>
*
* Note:
* The scanner has already processed funny registers of the form
* %dd[+-]*, where dd is a decimal number in the range 00 to 15 (optional
* preceding zero digit). If there was any space between the % and
* the digit, the scanner wouldn't have recognized it, so we
* hack it out here.
*/
int funnyreg(val, regnoback) /*what the read head will sit on*/
int val; /*what the read head is sitting on*/
int *regnoback; /*call by return*/
{
register struct exp *locxp;
struct exp *loc1xp;
struct exp **ptrloc1xp = & loc1xp;
expr(locxp, val); /*and leave the current read head with value*/
if ( (passno == 2) &&
( locxp->e_xtype & XTYPE != XABS
|| locxp->e_xvalue < 0
|| locxp->e_xvalue >= 16
)
){
yyerror("Illegal register");
return(0);
}
*regnoback = locxp->e_xvalue;
return(val);
}
/*VARARGS1*/
yyerror(s, a1, a2,a3,a4,a5)
char *s;
{
#define sink stdout
if (anyerrs == 0 && ! silent)
fprintf(sink, "Assembler:\n");
anyerrs++;
if (silent) return;
fprintf(sink, "\"%s\", line %d: ", dotsname, lineno);
fprintf(sink, s, a1, a2,a3,a4,a5);
fprintf(sink, "\n");
}
/*VARARGS1*/
yywarning(s, a1, a2,a3,a4,a5)
char *s;
{
#define sink stdout
if (anyerrs == 0 && ! silent)
fprintf(sink, "Assembler:\n");
if (silent) return;
fprintf(sink, "\"%s\", line %d: WARNING: ", dotsname, lineno);
fprintf(sink, s, a1, a2,a3,a4,a5);
fprintf(sink, "\n");
}
Continuous source code history from original PDP-7 UNIX to FreeBSD 2, the first fully unencumbered FreeBSD release.