Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: a9f0539)
- Use FIXNUM_BITS rather than ECL_FIXNUM_BITS which was undefined
authorMatthew Mondor <mmondor@pulsar-zone.net>
Sun, 30 Aug 2015 06:14:57 +0000 (02:14 -0400)
committerMatthew Mondor <mmondor@pulsar-zone.net>
Sun, 30 Aug 2015 06:14:57 +0000 (02:14 -0400)
  (the old code was bogus too on that respect)
- To prevent 32-bit rounding append L to the default heap size definitions
- Also print the fixnum bit size and default heap in the debug log

src/c/main.d patch | blob | blame | history

diff --git a/src/c/main.d b/src/c/main.d
index 867aaf9..c121515 100755 (executable)
--- a/src/c/main.d
+++ b/src/c/main.d
@@ -66,10 +66,12 @@ const char *ecl_self;
 
 /* HEAP */
 
-#if ECL_FIXNUM_BITS <= 32
-#define HEAP_SIZE_DEFAULT (1024 * 1024 * 1024)
+#if FIXNUM_BITS <= 32
+/* 1GB */
+#define HEAP_SIZE_DEFAULT 1073741824L
 #else
-#define HEAP_SIZE_DEFAULT (4096 * 1024 * 1024)
+/* 4GB */
+#define HEAP_SIZE_DEFAULT 4294967296L
 #endif
 
 /* XXX Could eventually be conditional on a DEBUG definition if kept */
@@ -101,6 +103,8 @@ w(const char *fmt, ...)
 size_t
 fix_heap_size(size_t target)
 {
+        w("FIXNUM_BITS = %d", FIXNUM_BITS);
+        w("HEAP_SIZE_DEFAULT = %zd", HEAP_SIZE_DEFAULT);
         w("Entering fix_heap_size(%zd)", target);
 
 #if defined(HAVE_SYS_RESOURCE_H) && defined(RLIMIT_DATA)
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)