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 lpb leaving adp 8
pat nop pat nop
kills ALL
gen MOV_NV R0,R0 gen MOV_NV R0,R0
pat rck pat rck

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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