From e2ab98dea0809b24b3cc20aac999a59808abae2c Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Mon, 23 Feb 1987 14:22:16 +0000
Subject: [PATCH] *** empty log message ***

---
 modules/src/em_code/Makefile   |  4 ++--
 modules/src/em_code/em_code.3X | 14 ++++++++------
 modules/src/em_code/make.fun   |  1 +
 3 files changed, 11 insertions(+), 8 deletions(-)

diff --git a/modules/src/em_code/Makefile b/modules/src/em_code/Makefile
index 4aeca1357..88fe5d117 100644
--- a/modules/src/em_code/Makefile
+++ b/modules/src/em_code/Makefile
@@ -17,11 +17,11 @@ compare:	all
 em_code.3:	em_code.3X
 		tbl < em_code.3X > em_code.3
 
-libeme.a:	make.sh e/em_private.h e/em.c
+libeme.a:	make.sh e/em_private.h e/em.c e/C_failed.c
 		EMHOME=$(EMHOME); export EMHOME; sh make.sh e
 		-sh -c 'ranlib libeme.a'
 
-libemk.a:	make.sh k/em_private.h k/em.c
+libemk.a:	make.sh k/em_private.h k/em.c k/C_failed.c
 		EMHOME=$(EMHOME); export EMHOME; sh make.sh k
 		-sh -c 'ranlib libemk.a'
 
diff --git a/modules/src/em_code/em_code.3X b/modules/src/em_code/em_code.3X
index 37a5464ac..0e11895c4 100644
--- a/modules/src/em_code/em_code.3X
+++ b/modules/src/em_code/em_code.3X
@@ -408,13 +408,15 @@ Informatica Rapport IR-81, Vrije Universiteit, Amsterdam, 1983.
 .SH DIAGNOSTICS
 .I C_open
 returns 1 if the open is successful and 0 if not.
-The other routines do not give any information about their completion.
+.PP
+When a write fails, the routine
+.I C_failed
+is called. The user can override its default definition by supplying his
+own. The default just gives an error message and quits.
 .SH BUGS
-.IP \(bu
-Feel free to report them to the author.
-.IP \(bu
 It is not possible to indicate that the argument of
 .B C_con_cst ()
 must be seen as an unsigned value.
-.SH AUTHOR
-Erik Baalbergen <erikb@vu44.UUCP>
+.PP
+.I C_failed
+is never called when generating readable EM code.
diff --git a/modules/src/em_code/make.fun b/modules/src/em_code/make.fun
index 15363c5aa..378225533 100755
--- a/modules/src/em_code/make.fun
+++ b/modules/src/em_code/make.fun
@@ -41,6 +41,7 @@ rm -f *.o
 .
 $a
 cc -c -O -I$1 -I$EMHOME/modules/h -I$EMHOME/h $1/em.c
+cc -c -O -I$1 -I$EMHOME/modules/h -I$EMHOME/h $1/C_failed.c
 mv em.o em$1.o
 rm -f libem$1.a
 ar rc libem$1.a *.o
-- 
2.34.1