godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Major change: All queues now in same buffer

Browse Source
This commit is contained in:
bruce
1987-07-21 13:23:09 +00:00
parent 7a74547ec0
commit 882d285f35
11 changed files with 308 additions and 331 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
modules/src/em_opt/parser.g
View File

@@ -25,7 +25,8 @@ struct action *actions[MAXSTATES];
struct mnems patterns[MAXSTATES];
int higheststate = 0; /* Highest state yet allocated */
struct idf *ops; /* Chained list of all ops */
int longestpattern = 0;
int maxpattern = 0;
int maxreplacement = 0;
int nerrors = 0;
static int lencurrpatt;
@@ -77,8 +78,8 @@ patterns(struct exp_node **tests;)
[
OPCODE
{
if(++lencurrpatt>longestpattern)
longestpattern=lencurrpatt;
if(++lencurrpatt>maxpattern)
maxpattern=lencurrpatt;
list = addelem(list,opval, (struct exp_node *)NULL);
opval->id_used=1;
if(lencurrpatt==1)
@@ -169,7 +170,8 @@ action(struct mnem_list **list;)
[
OPCODE
{
lenthisrepl++;
if(++lenthisrepl>maxreplacement)
maxreplacement = lenthisrepl;
test= (struct exp_node *)NULL;
keepopval = opval;
}
@@ -347,7 +349,8 @@ constructlist(list,len)
int len;
{
struct mnem_elem **p;
p = (struct mnem_elem **)Malloc(len*sizeof(struct mnem_elem *));
p = (struct mnem_elem **)
Malloc((unsigned)(len*sizeof(struct mnem_elem *)));
while(len--) {
p[len] = list->elem;
list = list->next;