Allocation overflow check was incorrectly using signed comparison

instead of an unsigned one.
2008-05-25 14:39:03 -07:00 · 2008-05-25 14:39:03 -07:00 · 7f0f127081
parent 467095677e
commit 7f0f127081
3 changed files with 2 additions and 2 deletions
--- a/scheme/ikarus.boot.prebuilt
+++ b/scheme/ikarus.boot.prebuilt
--- a/scheme/ikarus.compiler.altcogen.ss
+++ b/scheme/ikarus.compiler.altcogen.ss
@ -487,7 +487,7 @@
  (define (alloc-check size)
    (E (make-shortcut
         (make-conditional ;;; PCB ALLOC-REDLINE
-           (make-primcall '<= 
+           (make-primcall 'u<= 
             (list (make-primcall 'int+ (list apr size)) 
                   (make-primcall 'mref 
                     (list pcr 
--- a/scheme/last-revision
+++ b/scheme/last-revision
@ -1 +1 @@
-1487
+1488