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

adapted to new semantics of the EHEAP error: no longer fatal

Browse source
This commit is contained in:
ceriel 1988-04-11 11:03:22 +00:00
parent 6eb15567ae
commit 0c45ef1b5a
2 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
mach/pdp/int/em_int.s
View file

@ -2964,8 +2964,10 @@ str.s0: clr r0; bisb (pcx)+,r0
blos 5f; add $unixextra,sybreak+2; blos 5f; add $unixextra,sybreak+2;
sys indir;sybreak / ask for more core sys indir;sybreak / ask for more core
jec 5b; jec 5b;
1:
jsr pc,e.heap; / core claim failed jsr pc,e.heap; / core claim failed
5: cmp r1,globmax; jlo e.heap; next
5: cmp r1,globmax; jlo 1b
mov r1,hp; next mov r1,hp; next
/------------------------------------------------------------------------------ /------------------------------------------------------------------------------
@ -3161,7 +3163,7 @@ e.badmon: mov $EBADMON,-(sp); br error
e.case: mov $ECASE,-(sp); br fatal e.case: mov $ECASE,-(sp); br fatal
e.oddz: mov $EODDZ,-(sp); br fatal e.oddz: mov $EODDZ,-(sp); br fatal
e.illins: mov $EILLINS,-(sp); br fatal e.illins: mov $EILLINS,-(sp); br fatal
e.heap: mov $EHEAP,-(sp); br fatal e.heap: mov $EHEAP,-(sp); br error
e.memflt: mov $EMEMFLT,-(sp); br fatal e.memflt: mov $EMEMFLT,-(sp); br fatal
e.badgto: mov $EBADGTO,-(sp); br error e.badgto: mov $EBADGTO,-(sp); br error
/------------------------------------------------------------------------------ /------------------------------------------------------------------------------

5
mach/pdp/libem/strhp.s
View file

@ -1,7 +1,7 @@
.sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
.sect .text .sect .text
.define strhp~ .define strhp~
.extern fat~,reghp~,_end .extern trp~,reghp~,_end
! $Header$ ! $Header$
indir = 0 indir = 0
@ -21,6 +21,7 @@ strhp~:
bcs 3f bcs 3f
1: jmp (r0) 1: jmp (r0)
3: mov $EHEAP,-(sp) 3: mov $EHEAP,-(sp)
jmp fat~ jsr trp~
jmp (r0)
.sect .data .sect .data
2: sys break; .data2 _end 2: sys break; .data2 _end