From 45b3560040daa2bb5b7b549d979e58688644db90 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Sat, 14 Apr 2018 12:48:12 -0700
Subject: [PATCH] Fix compiler allocations for 64K machine

---
 src/toolsrc/codegen.pla | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/toolsrc/codegen.pla b/src/toolsrc/codegen.pla
index 24498fa..d098aa0 100644
--- a/src/toolsrc/codegen.pla
+++ b/src/toolsrc/codegen.pla
@@ -180,7 +180,7 @@ def emit_select(tag)#0
 end
 def emit_caseblock(cnt, oflist, taglist)#0
     byte i
-    
+
     if not cnt or cnt > 256; exit_err(ERR_OVER|ERR_STATE); fin
     emit_pending_seq
     emit_byte(cnt)
@@ -534,7 +534,7 @@ def init_idglobal#0
     fixup_num   = FIXUPNUM
     globalbufsz = IDGLOBALSZ
     localbufsz  = IDLOCALSZ
-    if isult(heapavail, $4000)
+    if isult(heapavail, $6000)
         dfd_num     = DFDNUM/2
         tag_num     = TAGNUM/2
         fixup_num   = FIXUPNUM/2