Only call NOP routine when debugging table

This commit is contained in:
ceriel 1991-09-04 10:55:52 +00:00
parent 89b73247c7
commit 564cbc6eba
13 changed files with 29 additions and 13 deletions

View file

@ -2172,6 +2172,7 @@ pat lor $1==2 yields {absolute, "_RegHp"}
pat lpb leaving adp 8
pat nop
kills ALL
gen MOV_NV R0,R0
pat rck

View file

@ -2746,7 +2746,9 @@ kills ALL
pat nop
kills ALL
/* gen proccall {label, ".nop"} */
#ifdef DEBUG
gen proccall {label, ".nop"}
#endif
pat rck $1==4
with BXREG ACC

View file

@ -2035,7 +2035,9 @@ gen Call {label,".mon"}
pat nop
kills ALL
#ifdef DEBUG
gen Call {label,".nop"}
#endif
pat rck
with hl_or_de STACK

View file

@ -3288,7 +3288,7 @@ kills ALL
pat nop
kills ALL
#if 0
#if DEBUG
gen joehoe {label, ".nop"}
#endif

View file

@ -5872,11 +5872,12 @@ with STACK
kills ALL
gen jsr {absolute4, ".mon"}
/* used by the ANSI-compiler to indicate volatile */
pat nop
with STACK
kills ALL
/* gen jsr {absolute4, ".nop"} */
#ifdef DEBUG
gen jsr {absolute4, ".nop"}
#endif
#if WORD_SIZE==2
pat rck $1==2

View file

@ -5872,11 +5872,12 @@ with STACK
kills ALL
gen jsr {absolute4, ".mon"}
/* used by the ANSI-compiler to indicate volatile */
pat nop
with STACK
kills ALL
/* gen jsr {absolute4, ".nop"} */
#ifdef DEBUG
gen jsr {absolute4, ".nop"}
#endif
#if WORD_SIZE==2
pat rck $1==2

View file

@ -5872,11 +5872,12 @@ with STACK
kills ALL
gen jsr {absolute4, ".mon"}
/* used by the ANSI-compiler to indicate volatile */
pat nop
with STACK
kills ALL
/* gen jsr {absolute4, ".nop"} */
#ifdef DEBUG
gen jsr {absolute4, ".nop"}
#endif
#if WORD_SIZE==2
pat rck $1==2

View file

@ -5872,11 +5872,12 @@ with STACK
kills ALL
gen jsr {absolute4, ".mon"}
/* used by the ANSI-compiler to indicate volatile */
pat nop
with STACK
kills ALL
/* gen jsr {absolute4, ".nop"} */
#ifdef DEBUG
gen jsr {absolute4, ".nop"}
#endif
#if WORD_SIZE==2
pat rck $1==2

View file

@ -2227,9 +2227,11 @@ gen jsr {absolute4, ".mon"}
pat nop
kills ALL
#ifdef DEBUG
gen move {absolute4, "hol0"}, {TOS}
jsr {absolute4, ".print"}
jsr {absolute4, ".prnl"}
#endif
pat rck $1==4
kills ALL

View file

@ -2675,7 +2675,10 @@ lor $1==2 | | | {relative2,"reghp~"} | |
mon | | remove(all)
"jsr pc,mon~" | | |
nop | | remove(all)
"jsr pc,nop~" | | |
#ifdef DEBUG
"jsr pc,nop~"
#endif
| | |
#ifdef DORCK
rck $1==2 | source2 |
remove(all)

View file

@ -2190,7 +2190,9 @@ gen jsr pc,{label, "mon~"}
pat nop
kills ALL
#ifdef DEBUG
gen jsr pc,{label, "nop~"}
#endif
pat rck $1==2
with src2

View file

@ -4454,7 +4454,7 @@ lpb | bigsource4 |
mon | STACK |
"jsb\t.mon" | | |
nop | STACK |
#ifdef TESTING
#ifdef DEBUG
"jsb\t.nop"
#endif
| | |

View file

@ -1711,7 +1711,7 @@ mon | STACK | "calr mon" | | |
nop | STACK |
#ifdef DEBUG
"calr noop"
#ENDIF
#endif
| | |
rtt | | | | ret 0 |
sig | REG | allocate(REG)