From 25291680b01efb95df2dfeebb6a22bd4a053752a Mon Sep 17 00:00:00 2001
From: eck <none@none>
Date: Mon, 18 Dec 1989 16:11:26 +0000
Subject: [PATCH] changed EM_* to _EM_*, added Makefile, LIST and .distr

---
 lang/cem/libcc.ansi/setjmp/.distr   |  3 ++
 lang/cem/libcc.ansi/setjmp/LIST     |  1 +
 lang/cem/libcc.ansi/setjmp/Makefile | 11 +++++++
 lang/cem/libcc.ansi/setjmp/setjmp.e | 46 ++++++++++++++---------------
 4 files changed, 38 insertions(+), 23 deletions(-)
 create mode 100644 lang/cem/libcc.ansi/setjmp/.distr
 create mode 100644 lang/cem/libcc.ansi/setjmp/LIST
 create mode 100644 lang/cem/libcc.ansi/setjmp/Makefile

diff --git a/lang/cem/libcc.ansi/setjmp/.distr b/lang/cem/libcc.ansi/setjmp/.distr
new file mode 100644
index 000000000..8e82c2222
--- /dev/null
+++ b/lang/cem/libcc.ansi/setjmp/.distr
@@ -0,0 +1,3 @@
+LIST
+Makefile
+setjmp.e
diff --git a/lang/cem/libcc.ansi/setjmp/LIST b/lang/cem/libcc.ansi/setjmp/LIST
new file mode 100644
index 000000000..305ef0b22
--- /dev/null
+++ b/lang/cem/libcc.ansi/setjmp/LIST
@@ -0,0 +1 @@
+setjmp.e
diff --git a/lang/cem/libcc.ansi/setjmp/Makefile b/lang/cem/libcc.ansi/setjmp/Makefile
new file mode 100644
index 000000000..de83a34bc
--- /dev/null
+++ b/lang/cem/libcc.ansi/setjmp/Makefile
@@ -0,0 +1,11 @@
+CFLAGS=-L -LIB
+
+.SUFFIXES: .o .e .c
+
+.e.o:
+	$(CC) $(CFLAGS) -c -o $@ $*.e
+
+clean:
+	rm -rf setjmp.o OLIST
+
+setjmp.o:
diff --git a/lang/cem/libcc.ansi/setjmp/setjmp.e b/lang/cem/libcc.ansi/setjmp/setjmp.e
index 3a1e81ff4..551907519 100644
--- a/lang/cem/libcc.ansi/setjmp/setjmp.e
+++ b/lang/cem/libcc.ansi/setjmp/setjmp.e
@@ -1,5 +1,5 @@
 #
- mes 2,EM_WSIZE,EM_PSIZE
+ mes 2,_EM_WSIZE,_EM_PSIZE
 
 ;
 ; layout of a setjmp buffer:
@@ -21,7 +21,7 @@
 
 ; a GTO descriptor must be in the global data area
 gtobuf
- bss 3*EM_PSIZE,0,0
+ bss 3*_EM_PSIZE,0,0
 
  inp $fill_ret_area
  exp $setjmp
@@ -31,29 +31,29 @@ gtobuf
 ; longjmp must restore this mask
  loc 0
  cal $sigblock
- asp EM_WSIZE
- lfr EM_WSIZE
+ asp _EM_WSIZE
+ lfr _EM_WSIZE
  lal 0
- loi EM_PSIZE
- stf 3*EM_PSIZE
+ loi _EM_PSIZE
+ stf 3*_EM_PSIZE
 #endif
 ; create GTO descriptor for longjmp
  lxl 0
  dch		; Local Base of caller
  lxa 0		; Stackpointer of caller
- lal EM_PSIZE
- loi EM_PSIZE	; Return address of caller
+ lal _EM_PSIZE
+ loi _EM_PSIZE	; Return address of caller
  lal 0
- loi EM_PSIZE	; address of jmpbuf
- sti 3*EM_PSIZE	; LB, SP, and PC stored in jmpbuf
+ loi _EM_PSIZE	; address of jmpbuf
+ sti 3*_EM_PSIZE	; LB, SP, and PC stored in jmpbuf
  loc 0
- ret EM_WSIZE	; setjmp must return 0
+ ret _EM_WSIZE	; setjmp must return 0
  end 0
 
  pro $fill_ret_area,0
 ; put argument in function result area
  lol 0
- ret EM_WSIZE
+ ret _EM_WSIZE
  end 0
 
  exp $longjmp
@@ -61,27 +61,27 @@ gtobuf
 #ifdef __BSD4_2
 ; restore signal mask
  lal 0
- loi EM_PSIZE
- lof 3*EM_PSIZE
+ loi _EM_PSIZE
+ lof 3*_EM_PSIZE
  cal $sigsetmask
- asp EM_WSIZE
- lfr EM_WSIZE
- asp EM_WSIZE
+ asp _EM_WSIZE
+ lfr _EM_WSIZE
+ asp _EM_WSIZE
 #endif
  lal 0
- loi EM_PSIZE	; address of jmpbuf
+ loi _EM_PSIZE	; address of jmpbuf
  lae gtobuf
- blm 3*EM_PSIZE	; fill GTO descriptor from jmpbuf
- lol EM_PSIZE	; second parameter of longjmp: the return value
- dup EM_WSIZE
+ blm 3*_EM_PSIZE	; fill GTO descriptor from jmpbuf
+ lol _EM_PSIZE	; second parameter of longjmp: the return value
+ dup _EM_WSIZE
  zne *3
 ; of course, longjmp may not return 0!
- asp EM_WSIZE
+ asp _EM_WSIZE
  loc 1
 3
 ; put return value in function result area
  cal $fill_ret_area
- asp EM_WSIZE
+ asp _EM_WSIZE
  gto gtobuf	; there we go ...
 ; ASP and GTO do not damage function result area
  end 0
-- 
2.34.1