NOP does nothing but stacking

diff --git a/mach/6500/cg/table b/mach/6500/cg/table
index d96e408..3db0b19 100644 (file)
--- a/mach/6500/cg/table
+++ b/mach/6500/cg/table
@@ -2151,9 +2151,11 @@ lpb      | | | | adp 2 |
 mon    | R16 |
                "jsr Mon"
                                        | %[1] | |
-nop    | |
+nop    | STACK |
+#ifdef DEBUG
                allocate(R16)
                "jsr Printstack"
+#endif
                                        | | |
 rck    | R16 | | | |
 rtt    | |

diff --git a/mach/z80/cg/table b/mach/z80/cg/table
index 42a366d..3f36dc8 100644 (file)
--- a/mach/z80/cg/table
+++ b/mach/z80/cg/table
@@ -1357,8 +1357,12 @@ lni      | |                      allocate(HL_REG)
                                "inc (hl)"
                                erase(HL)               | | |
 lpb            | |             |                       | adp 4 |
-nop            | |             allocate(ALL_REG)
-                               "call .nop"     | | |
+nop            | STACK |
+#ifdef DEBUG
+                               allocate(ALL_REG)
+                               "call .nop"
+#endif
+                                                       | | |
 rck $1 == 2 | STACK |           allocate(ALL_REG)
                                "call .rck"
                                                                        | | |

diff --git a/mach/z8000/cg/table b/mach/z8000/cg/table
index 08b0400..5a2ac02 100644 (file)
--- a/mach/z8000/cg/table
+++ b/mach/z8000/cg/table
@@ -1708,7 +1708,11 @@ lin      | | "ld hol0, $$$1"  samecc     | | |
 lni    | | "inc hol0"  | | |
 lpb    | | | | adp SL  |
 mon    | STACK | "calr mon"    | | |
-nop    | STACK | "calr noop"           | | |
+nop    | STACK |
+#ifdef DEBUG
+       "calr noop"
+#ENDIF
+                                       | | |
 rtt    | | | | ret 0   |
 sig    | REG   | allocate(REG)
                  move( {da2, "trppc"}, %[a] )