Add the NOCTURNAL EMISSION, PLEASE LAUNDER SHEETS IMMEDIATELY error message.

diff --git a/doc/ick.txi b/doc/ick.txi
index 4f1259edbbfb50c461ab40b629f8d3357fe32bfb..528291f43177c7f2e4e3bb8985cc29c5350742cf 100644 (file)
--- a/doc/ick.txi
+++ b/doc/ick.txi
@@ -1942,6 +1942,17 @@ at all; you can't even follow it by comments, not even if you know in
 advance that they won't be @code{REINSTATE}d.  This error happens at
 compile time if a command is found after a @code{TRY AGAIN}.
 
+@ieanchor E994
+@cindex illegal opcode
+@quotation
+NOCTURNAL EMISSION, PLEASE LAUNDER SHEETS IMMEDIATELY
+@end quotation
+
+This error should never happen, and if it dies indicates a compiler
+bug. It means the emitter function in the code degenerator has
+encountered an unknown opcode. Please send a copy of the program
+that triggered it to the INTERCAL maintainers.
+
 @ieanchor E995
 @quotation
 DO YOU REALLY EXPECT ME TO HAVE IMPLEMENTED THAT?

diff --git a/src/feh2.c b/src/feh2.c
index 9b49ba8373ae66c615c9d3dc44fcc673b8a65fed..5134a106e4eaa199ed0fdc726b837835acb77999 100644 (file)
--- a/src/feh2.c
+++ b/src/feh2.c
@@ -2288,7 +2288,7 @@ void emit(tuple *tn, FILE *fp)
        case DISABLE: (void) fprintf(fp,"\t    if(!ick_abstained[revlinetype[i]])"
                                    "\t\tick_abstained[revlinetype[i]]=1;\n"); break;
        case MANYFROM:(void) fprintf(fp,"\tick_abstained[revlinetype[i]]+=j;\n"); break;
-       default:      ick_lose(IE778, emitlineno, (const char *)NULL);
+       default:      ick_lose(IE994, emitlineno, (const char *)NULL);
        }
        switch(npc)
        {
@@ -2570,7 +2570,7 @@ void emit(tuple *tn, FILE *fp)
     case WHILE: /* AIS: fall through to the error, because this shouldn't
                   come up yet. */
     default:
-       ick_lose(IE778, emitlineno, (const char *)NULL);
+       ick_lose(IE994, emitlineno, (const char *)NULL);
        /*@-unreachable@*/ break; /*@=unreachable@*/
     }
 
@@ -2739,7 +2739,7 @@ void emitslat(FILE* fp)
   {
     fprintf(fp,
            "void ick_os%lx(%s a, void(*f)())\n{\n  static int l=0;\n"
-           "  if(l)\n  {\n    if(!f) ick_lose(IE778, ick_lineno, (const char *)NULL);\n"
+           "  if(l)\n  {\n    if(!f) ick_lose(IE994, ick_lineno, (const char *)NULL);\n"
            "    f(a,0);\n    return;\n  }\n  l=1;\n",
            (unsigned long)np,t);
     temp=cons(C_A, 0, 0);

diff --git a/src/ick_lose.h b/src/ick_lose.h
index 38f66caebaa23958fb309833ded11eee88e5b9bf..d95ce9d4dbc3eb95c426e64fbc4f10c45af8a8f4 100644 (file)
--- a/src/ick_lose.h
+++ b/src/ick_lose.h
@@ -162,7 +162,9 @@
 /* Unknown invocation flag */
 #define IE990 "990 FLAG ETIQUETTE FAILURE BAD SCOUT NO BISCUIT.\n\
        ON THE WAY TO %d\n"
-
+/* Code generator encountered an unknown opcode in a tuple */
+#define IE994 "994 NOCTURNAL EMISSION, PLEASE LAUNDER SHEETS IMMEDIATELY.\n\
+       ON THE WAY TO %d\n"
 /*
  *  AIS: These errors are specific to PIC-INTERCAL
  */