From: Will Newton <w...@linaro.org> --- gcl/o/main.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/gcl/o/main.c b/gcl/o/main.c index decb9f3..7e5bee7 100644 --- a/gcl/o/main.c +++ b/gcl/o/main.c @@ -286,7 +286,7 @@ object src_env1[2]={(object)1,Cnil},*src_env=src_env1+1; int main(int argc, char **argv, char **envp) { - gcl_init_alloc(&argc); + gcl_init_alloc(&argv); #ifdef CAN_UNRANDOMIZE_SBRK #include <stdio.h> @@ -732,7 +732,7 @@ DEFUN("CATCH-FATAL",object,fScatch_fatal,SI,1,1,NONE,OI,OO,OO,OO,(fixnum i),"") LFD(siLreset_stack_limits)(void) { - int i=0; + long i=0; check_arg(0); if(catch_fatal <0) catch_fatal=1; -- 1.9.3 _______________________________________________ Gcl-devel mailing list Gcl-devel@gnu.org https://lists.gnu.org/mailman/listinfo/gcl-devel