corrected brk and sbrk somewhat

diff --git a/lang/cem/libcc/mon/brk.e b/lang/cem/libcc/mon/brk.e
index 548cc30..c6a8c3d 100644 (file)
--- a/lang/cem/libcc/mon/brk.e
+++ b/lang/cem/libcc/mon/brk.e
@@ -28,14 +28,14 @@
 
  exp $brk
  pro $brk,0
- lal 0
- loi EM_PSIZE
  lpi $ctch
  sig
  lae .1
  sti EM_PSIZE
  loc 0
  ste .2
+ lal 0
+ loi EM_PSIZE
  str 2          ; The - possibly - occurring trap is caught
  lae .1
  loi EM_PSIZE

diff --git a/lang/cem/libcc/mon/sbrk.e b/lang/cem/libcc/mon/sbrk.e
index 9777c9f..5d54e1b 100644 (file)
--- a/lang/cem/libcc/mon/sbrk.e
+++ b/lang/cem/libcc/mon/sbrk.e
@@ -38,7 +38,7 @@
  ste .2
  lol 0
  ads EM_WSIZE  ; this is the new heap pointer, but watch out for overflow!
- dup EM_WSIZE
+ dup EM_PSIZE
  lor 2
  cmp           ; compare with old heap pointer
  zlt *1