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

Some corrections to make it work on small machines

Browse Source
This commit is contained in:
ceriel
1988-01-14 13:34:42 +00:00
parent 629fc3f824
commit 1ee5101ba7
6 changed files with 39 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
modules/src/em_code/C_out.c
View File

@@ -10,6 +10,8 @@ static pseudo();
extern char em_flag[];
#define flags(pp) (em_flag[(pp)->em_opcode - sp_fmnem] & EM_PAR)
struct e_instr *
C_alloc()
{
@@ -30,12 +32,11 @@ C_out(p)
switch(p->em_type) {
case EM_MNEM:
OP(p->em_opcode);
if (em_flag[p->em_opcode - sp_fmnem] == PAR_B &&
p->em_argtype == cst_ptyp) {
if (flags(p) == PAR_B && p->em_argtype == cst_ptyp) {
p->em_ilb = p->em_cst;
p->em_argtype = ilb_ptyp;
}
if (em_flag[p->em_opcode - sp_fmnem] != PAR_NO) arg(p, 0);
if (flags(p) != PAR_NO) arg(p, 0);
NL();
break;
@@ -86,7 +87,7 @@ arg(p, comma)
switch(p->em_argtype) {
case 0:
if (p->em_type == EM_MNEM && em_flag[p->em_opcode - sp_fmnem] != PAR_W) {
if (p->em_type == EM_MNEM && flags(p) != PAR_W) {
abort();
}
CCEND();