Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 338eb87)
- si_get_limit() must deal with size_t for heap-size too
authorMatthew Mondor <mmondor@pulsar-zone.net>
Sun, 6 Sep 2015 11:47:12 +0000 (07:47 -0400)
committerMatthew Mondor <mmondor@pulsar-zone.net>
Sun, 6 Sep 2015 11:47:12 +0000 (07:47 -0400)
- add comments for the size_t exceptions

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

diff --git a/src/c/stacks.d b/src/c/stacks.d
index af42f2a..c93426a 100644 (file)
--- a/src/c/stacks.d
+++ b/src/c/stacks.d
@@ -638,6 +638,10 @@ si_set_limit(cl_object type, cl_object limit)
                 cl_index the_size = ecl_to_size(limit);
                 ecl_stack_set_size(env, the_size);
         } else {
+                /*
+                 * size_t can be larger than cl_index, and ecl_to_size()
+                 * creates a fixnum which is too small for size_t on 32-bit.
+                 */
                 size_t the_size = (size_t)ecl_to_ulong(limit);
                 _ecl_set_max_heap_size(fix_heap_size(the_size));
         }
@@ -659,7 +663,8 @@ si_get_limit(cl_object type)
         else if (type == @'ext::lisp-stack')
                 output = env->stack_limit_size;
         else
-                output = cl_core.max_heap_size;
+                /* size_t can be larger than cl_index */
+                @(return ecl_make_unsigned_integer(cl_core.max_heap_size));
 
         @(return ecl_make_unsigned_integer(output))
 }
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)