Changeset 12928


Ignore:
Timestamp:
Oct 9, 2009, 12:48:53 AM (10 years ago)
Author:
gz
Message:

Add a sanity check in configure-egc

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-aprims.lisp

    r12410 r12928  
    11391139are rounded up to a multiple of 64Kbytes in OpenMCL 0.14 and to a multiple
    11401140of 32KBytes in earlier versions.)"
    1141   (let* ((was-enabled (egc-active-p)))
     1141  (let* ((was-enabled (egc-active-p))
     1142         (e2size (require-type e2size '(unsigned-byte 18)))
     1143         (e1size (require-type e1size '(unsigned-byte 18)))
     1144         (e0size (require-type e0size '(integer 1 #.(ash 1 18)))))
     1145    (unless (<= e0size e1size e2size)
     1146      (error "Generation ~s threshold cannot be smaller than generation ~s threshold"
     1147             (if (> e0size e1size) 1 2) (if (> e0size e1size) 0 1)))
    11421148    (unwind-protect
    11431149         (progn
    11441150           (egc nil)
    1145            (setq e2size (logand (lognot #xffff) (+ #xffff (ash (require-type e2size '(unsigned-byte 18)) 10)))
    1146                  e1size (logand (lognot #xffff) (+ #xffff (ash (require-type e1size '(unsigned-byte 18)) 10)))
    1147                  e0size (logand (lognot #xffff) (+ #xffff (ash (require-type e0size '(integer 1 #.(ash 1 18))) 10))))
     1151           (setq e2size (logand (lognot #xffff) (+ #xffff (ash e2size 10)))
     1152                 e1size (logand (lognot #xffff) (+ #xffff (ash e1size 10)))
     1153                 e0size (logand (lognot #xffff) (+ #xffff (ash e0size 10))))
    11481154           (%configure-egc e0size e1size e2size))
    11491155      (egc was-enabled))))
Note: See TracChangeset for help on using the changeset viewer.