d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

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

Browse source
This commit is contained in:
eck 1989-12-18 16:11:26 +00:00
parent 2a15fcf645
commit 25291680b0
4 changed files with 38 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lang/cem/libcc.ansi/setjmp/.distr Normal file
View file

@ -0,0 +1,3 @@
LIST
Makefile
setjmp.e

1
lang/cem/libcc.ansi/setjmp/LIST Normal file
View file

@ -0,0 +1 @@
setjmp.e

11
lang/cem/libcc.ansi/setjmp/Makefile Normal file
View file

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

46
lang/cem/libcc.ansi/setjmp/setjmp.e
View file

@ -1,5 +1,5 @@
# #
mes 2,EM_WSIZE,EM_PSIZE mes 2,_EM_WSIZE,_EM_PSIZE
; ;
; layout of a setjmp buffer: ; layout of a setjmp buffer:
@ -21,7 +21,7 @@
; a GTO descriptor must be in the global data area ; a GTO descriptor must be in the global data area
gtobuf gtobuf
bss 3*EM_PSIZE,0,0 bss 3*_EM_PSIZE,0,0
inp $fill_ret_area inp $fill_ret_area
exp $setjmp exp $setjmp
@ -31,29 +31,29 @@ gtobuf
; longjmp must restore this mask ; longjmp must restore this mask
loc 0 loc 0
cal $sigblock cal $sigblock
asp EM_WSIZE asp _EM_WSIZE
lfr EM_WSIZE lfr _EM_WSIZE
lal 0 lal 0
loi EM_PSIZE loi _EM_PSIZE
stf 3*EM_PSIZE stf 3*_EM_PSIZE
#endif #endif
; create GTO descriptor for longjmp ; create GTO descriptor for longjmp
lxl 0 lxl 0
dch ; Local Base of caller dch ; Local Base of caller
lxa 0 ; Stackpointer of caller lxa 0 ; Stackpointer of caller
lal EM_PSIZE lal _EM_PSIZE
loi EM_PSIZE ; Return address of caller loi _EM_PSIZE ; Return address of caller
lal 0 lal 0
loi EM_PSIZE ; address of jmpbuf loi _EM_PSIZE ; address of jmpbuf
sti 3*EM_PSIZE ; LB, SP, and PC stored in jmpbuf sti 3*_EM_PSIZE ; LB, SP, and PC stored in jmpbuf
loc 0 loc 0
ret EM_WSIZE ; setjmp must return 0 ret _EM_WSIZE ; setjmp must return 0
end 0 end 0
pro $fill_ret_area,0 pro $fill_ret_area,0
; put argument in function result area ; put argument in function result area
lol 0 lol 0
ret EM_WSIZE ret _EM_WSIZE
end 0 end 0
exp $longjmp exp $longjmp
@ -61,27 +61,27 @@ gtobuf
#ifdef __BSD4_2 #ifdef __BSD4_2
; restore signal mask ; restore signal mask
lal 0 lal 0
loi EM_PSIZE loi _EM_PSIZE
lof 3*EM_PSIZE lof 3*_EM_PSIZE
cal $sigsetmask cal $sigsetmask
asp EM_WSIZE asp _EM_WSIZE
lfr EM_WSIZE lfr _EM_WSIZE
asp EM_WSIZE asp _EM_WSIZE
#endif #endif
lal 0 lal 0
loi EM_PSIZE ; address of jmpbuf loi _EM_PSIZE ; address of jmpbuf
lae gtobuf lae gtobuf
blm 3*EM_PSIZE ; fill GTO descriptor from jmpbuf blm 3*_EM_PSIZE ; fill GTO descriptor from jmpbuf
lol EM_PSIZE ; second parameter of longjmp: the return value lol _EM_PSIZE ; second parameter of longjmp: the return value
dup EM_WSIZE dup _EM_WSIZE
zne *3 zne *3
; of course, longjmp may not return 0! ; of course, longjmp may not return 0!
asp EM_WSIZE asp _EM_WSIZE
loc 1 loc 1
3 3
; put return value in function result area ; put return value in function result area
cal $fill_ret_area cal $fill_ret_area
asp EM_WSIZE asp _EM_WSIZE
gto gtobuf ; there we go ... gto gtobuf ; there we go ...
; ASP and GTO do not damage function result area ; ASP and GTO do not damage function result area
end 0 end 0