136 lines
2.6 KiB
C
136 lines
2.6 KiB
C
#ifndef NORCSID
|
|
static char rcsid[] = "$Header$";
|
|
#endif
|
|
|
|
#include <em_spec.h>
|
|
#include <em_flag.h>
|
|
#include "assert.h"
|
|
#include "param.h"
|
|
#include "tables.h"
|
|
#include "types.h"
|
|
#include <cg_pattern.h>
|
|
#include "data.h"
|
|
#include "result.h"
|
|
#include "extern.h"
|
|
|
|
/*
|
|
* (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
*
|
|
* This product is part of the Amsterdam Compiler Kit.
|
|
*
|
|
* Permission to use, sell, duplicate or disclose this software must be
|
|
* obtained in writing. Requests for such permissions may be sent to
|
|
*
|
|
* Dr. Andrew S. Tanenbaum
|
|
* Wiskundig Seminarium
|
|
* Vrije Universiteit
|
|
* Postbox 7161
|
|
* 1007 MC Amsterdam
|
|
* The Netherlands
|
|
*
|
|
* Author: Hans van Staveren
|
|
*/
|
|
|
|
#ifndef NDEBUG
|
|
#include <stdio.h>
|
|
extern char em_mnem[][4];
|
|
#endif
|
|
|
|
byte *trypat(bp,len) register byte *bp; {
|
|
register patlen,i;
|
|
result_t result;
|
|
|
|
getint(patlen,bp);
|
|
if (len == 3) {
|
|
if (patlen < 3)
|
|
return(0);
|
|
} else {
|
|
if (patlen != len)
|
|
return(0);
|
|
}
|
|
for(i=0;i<patlen;i++)
|
|
if (emp[i].em_instr != (*bp++&BMASK))
|
|
return(0);
|
|
for (i=0;i<patlen;i++)
|
|
if (emp[i].em_optyp==OPNO)
|
|
dollar[i].e_typ=EV_UNDEF;
|
|
else if ((dollar[i].e_typ=argtyp(emp[i].em_instr))==EV_INT)
|
|
dollar[i].e_v.e_con=emp[i].em_u.em_ioper;
|
|
else
|
|
dollar[i].e_v.e_str=emp[i].em_soper;
|
|
getint(i,bp);
|
|
if (i!=0) {
|
|
struct emline *svp = saveemp;
|
|
|
|
saveemp = emp;
|
|
result = compute(&enodes[i]);
|
|
if (result.e_typ != EV_INT || result.e_v.e_con == 0) {
|
|
saveemp = svp;
|
|
return(0);
|
|
}
|
|
}
|
|
#ifndef NDEBUG
|
|
if (Debug) {
|
|
fprintf(stderr,"Matched:");
|
|
for (i=0;i<patlen;i++)
|
|
fprintf(stderr," %3.3s",em_mnem[emp[i].em_instr-sp_fmnem]);
|
|
fprintf(stderr,"\n");
|
|
}
|
|
#endif
|
|
saveemp = emp;
|
|
emp += patlen;
|
|
return(bp);
|
|
}
|
|
|
|
extern char em_flag[];
|
|
|
|
argtyp(mn) {
|
|
|
|
switch(em_flag[mn-sp_fmnem]&EM_PAR) {
|
|
case PAR_W:
|
|
case PAR_S:
|
|
case PAR_Z:
|
|
case PAR_O:
|
|
case PAR_N:
|
|
case PAR_L:
|
|
case PAR_F:
|
|
case PAR_R:
|
|
case PAR_C:
|
|
return(EV_INT);
|
|
default:
|
|
return(EV_STR);
|
|
}
|
|
}
|
|
|
|
byte *nextem(toplevel) {
|
|
register i;
|
|
short hash[3];
|
|
register byte *bp;
|
|
byte *cp;
|
|
int index;
|
|
register struct emline *ep;
|
|
|
|
if (toplevel) {
|
|
if (nemlines && emp>emlines) {
|
|
nemlines -= emp-emlines;
|
|
for (i=0,ep=emlines;i<nemlines;i++)
|
|
*ep++ = *emp++;
|
|
emp=emlines;
|
|
}
|
|
fillemlines();
|
|
}
|
|
hash[0] = emp[0].em_instr;
|
|
hash[1] = (hash[0]<<4) ^ emp[1].em_instr;
|
|
hash[2] = (hash[1]<<4) ^ emp[2].em_instr;
|
|
for (i=2;i>=0;i--) {
|
|
index = pathash[hash[i]&BMASK];
|
|
while (index != 0) {
|
|
bp = &pattern[index];
|
|
if ( bp[PO_HASH] == (hash[i]>>8))
|
|
if ((cp=trypat(&bp[PO_MATCH],i+1)) != 0)
|
|
return(cp);
|
|
index = (bp[PO_NEXT]&BMASK) | (bp[PO_NEXT+1]<<8);
|
|
}
|
|
}
|
|
return(0);
|
|
}
|