From: Will Newton <[email protected]>
---
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
[email protected]
https://lists.gnu.org/mailman/listinfo/gcl-devel
