only allow small-edge levels in the extra heap

This commit is contained in:
ManDude
2023-03-14 22:58:57 +00:00
parent dfdcc439e4
commit 2e2ebc3554
+2 -12
View File
@@ -24,7 +24,7 @@ into 7 sections, which might explain the weird sizes in the center.
(define-extern level-update-after-load (function level login-state level))
(define-extern *level-type-list* type)
(defglobalconstant NUM_LEVEL_PAGES (+ 146 25 25 25 25))
(defglobalconstant NUM_LEVEL_PAGES (+ 146 25 25 24 24))
(defglobalconstant LEVEL_PAGE_SIZE_KB 126) ;; original value
(defglobalconstant LEVEL_PAGE_SIZE (* LEVEL_PAGE_SIZE_KB 1024)) ;; original value
@@ -894,16 +894,6 @@ into 7 sections, which might explain the weird sizes in the center.
(set! bits-to-use #b001100)
(goto cfg-83)
)
(when (memory-unused? *level* #b11000000)
(set! offset-in-level-heap (+ 24 24 25 25 24 24))
(set! bits-to-use #b11000000)
(goto cfg-83)
)
(when (memory-unused? *level* #b1100000000)
(set! offset-in-level-heap (+ 24 24 25 25 24 24 25 25))
(set! bits-to-use #b1100000000)
(goto cfg-83)
)
)
(((load-buffer-mode small-edge))
;; check one side
@@ -923,7 +913,7 @@ into 7 sections, which might explain the weird sizes in the center.
(goto cfg-83)
)
(when (memory-unused? *level* #b1100000000)
(set! offset-in-level-heap (+ 24 24 25 25 24 24 25 25))
(set! offset-in-level-heap (+ 24 24 25 25 24 24 24 24))
(set! bits-to-use #b1100000000)
(goto cfg-83)
)