瀏覽代碼

added rcsid
added code to check for write errors on codefile

sater 40 年之前
父節點
當前提交
445ee4ccb8
共有 2 個文件被更改,包括 16 次插入0 次删除
  1. 6 0
      mach/proto/cg/fillem.c
  2. 10 0
      mach/proto/cg/gencode.c

+ 6 - 0
mach/proto/cg/fillem.c

@@ -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);

+ 10 - 0
mach/proto/cg/gencode.c

@@ -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;