changed EM_* to _EM_*, added Makefile, LIST and .distr

diff --git a/lang/cem/libcc.ansi/setjmp/.distr b/lang/cem/libcc.ansi/setjmp/.distr
new file mode 100644 (file)
index 0000000..8e82c22
--- /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 (file)
index 0000000..305ef0b
--- /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 (file)
index 0000000..de83a34
--- /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 3a1e81f..5519075 100644 (file)
--- 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