d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Added a new operator for ncg: is_rom()

Browse source
This commit is contained in:
ceriel 1990-02-09 16:34:17 +00:00
parent 069d94c39b
commit 3f950c9f17
5 changed files with 14 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
h/cgg_cg.h
View file

@ -129,6 +129,7 @@ typedef struct exprnode *node_p;
#define EX_OR 41 #define EX_OR 41
#define EX_XOR 42 #define EX_XOR 42
#define EX_AND 43 #define EX_AND 43
#define EX_ISROM 44
typedef struct { /* to stack coercions */ typedef struct { /* to stack coercions */

8
mach/proto/ncg/compute.c
View file

@ -71,6 +71,7 @@ char opdesc[] = {
LLDEF|RLDEF, /* EX_OR */ LLDEF|RLDEF, /* EX_OR */
LLDEF|RLDEF, /* EX_XOR */ LLDEF|RLDEF, /* EX_XOR */
LLDEF|RLDEF, /* EX_AND */ LLDEF|RLDEF, /* EX_AND */
0, /* EX_ISROM */
}; };
string salloc(),strcpy(),strcat(); string salloc(),strcpy(),strcat();
@ -208,6 +209,13 @@ result_t compute(node) register node_p node; {
return(undefres); return(undefres);
result.e_v.e_con = gp->gl_rom[node->ex_rnode]; result.e_v.e_con = gp->gl_rom[node->ex_rnode];
return(result); return(result);
case EX_ISROM:
leaf2=dollar[node->ex_lnode];
if (leaf2.e_typ != EV_ADDR)
result.e_v.e_con = 0;
else
result.e_v.e_con = lookglo(leaf2.e_v.e_addr.ea_str) != 0;
return(result);
case EX_LOWW: case EX_LOWW:
result.e_v.e_con = saveemp[node->ex_lnode].em_u.em_loper&0xFFFF; result.e_v.e_con = saveemp[node->ex_lnode].em_u.em_loper&0xFFFF;
return(result); return(result);

2
mach/proto/ncg/fillem.c
View file

@ -279,7 +279,7 @@ dopseudo() {
} }
break; break;
} }
if (rommask != 0) { if (nromwords != 0) {
romcont[MAXROM]=rommask; romcont[MAXROM]=rommask;
enterglo(labstr,romcont); enterglo(labstr,romcont);
} }

4
util/ncgg/cgg.y
View file

@ -75,7 +75,7 @@ iocc_t iops[20];
%token FROM TO %token FROM TO
%token TEST MOVE STACK RETURN %token TEST MOVE STACK RETURN
%token PATTERNS PAT WITH EXACT KILLS USES REUSING GEN YIELDS LEAVING %token PATTERNS PAT WITH EXACT KILLS USES REUSING GEN YIELDS LEAVING
%token DEFINED SAMESIGN SFIT UFIT ROM LOWW HIGHW %token DEFINED SAMESIGN SFIT UFIT ROM LOWW HIGHW ISROM
%token CMPEQ CMPNE CMPLT CMPGT CMPLE CMPGE OR2 AND2 LSHIFT RSHIFT NOT COMP %token CMPEQ CMPNE CMPLT CMPGT CMPLE CMPGE OR2 AND2 LSHIFT RSHIFT NOT COMP
%token INREG REGVAR REG_ANY REG_FLOAT REG_LOOP REG_POINTER %token INREG REGVAR REG_ANY REG_FLOAT REG_LOOP REG_POINTER
%token <yy_int> ADORNACCESS %token <yy_int> ADORNACCESS
@ -1015,6 +1015,8 @@ expr
{ $$ = make_expr(TYPBOOL,EX_UFIT,i_expr($3),i_expr($5)); } { $$ = make_expr(TYPBOOL,EX_UFIT,i_expr($3),i_expr($5)); }
| ROM '(' emarg ',' NUMBER ')' | ROM '(' emarg ',' NUMBER ')'
{ $$ = make_expr(TYPINT,EX_ROM,$3-1,chkincl($5,1,3)-1); } { $$ = make_expr(TYPINT,EX_ROM,$3-1,chkincl($5,1,3)-1); }
| ISROM '(' emarg ')'
{ $$ = make_expr(TYPINT,EX_ISROM,$3-1,0); }
| LOWW '(' emarg ')' | LOWW '(' emarg ')'
{ $$ = make_expr(TYPINT,EX_LOWW,$3-1,0); } { $$ = make_expr(TYPINT,EX_LOWW,$3-1,0); }
| HIGHW '(' emarg ')' | HIGHW '(' emarg ')'

1
util/ncgg/keywords
View file

@ -24,6 +24,7 @@ from FROM
gen GEN gen GEN
highw HIGHW highw HIGHW
inreg INREG inreg INREG
is_rom ISROM
kills KILLS kills KILLS
leaving LEAVING leaving LEAVING
loww LOWW loww LOWW