added rcsid
authorsater <none@none>
Sat, 19 May 1984 11:40:08 +0000 (11:40 +0000)
committersater <none@none>
Sat, 19 May 1984 11:40:08 +0000 (11:40 +0000)
added code to check for write errors on codefile

mach/proto/cg/fillem.c
mach/proto/cg/gencode.c

index 3a365ec..e33439f 100644 (file)
@@ -1,3 +1,7 @@
+#ifndef NORCSID
+static char rcsid2[] = "$Header$";
+#endif
+
 #include <stdio.h>
 #include "assert.h"
 #include <em_spec.h>
@@ -203,6 +207,7 @@ dopseudo() {
        case EOF:
                swtxt();
                popstr(0);
+               tstoutput();
                exit(0);
        default:
                error("Unknown opcode %d",savetab1);
@@ -330,6 +335,7 @@ dopseudo() {
 #ifdef REGVARS
                unlinkregs();
 #endif
+               tstoutput();
                break;
        default:
                error("No table entry for %d",savetab1);
index 8667277..ea1ccbe 100644 (file)
@@ -1,3 +1,7 @@
+#ifndef NORCSID
+static char rcsid[] = "$Header$";
+#endif
+
 #include "assert.h"
 #include <stdio.h>
 #include "param.h"
@@ -59,6 +63,12 @@ out_finish() {
                fclose(codefile);
 }
 
+tstoutput() {
+
+       if (ferror(codefile))
+               error("Write error on output");
+}
+
 gencode(code) register char *code; {
        register c;
        int tokno,fldno,insno,regno,subno;