Changeset 560 for abuse/trunk/src/lisp/lisp.cppTweet

Timestamp:

Apr 30, 2011, 12:24:53 AM (11 years ago)

Author:

Sam Hocevar

Message:

lisp: remove arguments to lisp_init(), they are no longer useful now
that we can dynamically resize everything.

File:

• abuse/trunk/src/lisp/lisp.cpp (modified) (1 diff)

abuse/trunk/src/lisp/lisp.cpp

@@ -3150 +3150 @@
 
 void l_comp_init();
-void lisp_init(long perm_size, long tmp_size)
-{
-  unsigned int i;
-  LSymbol::root = NULL;
-  total_user_functions = 0;
-
-  free_space[0] = space[0] = (uint8_t *)malloc(perm_size);
-  space_size[0] = perm_size;
-
-  free_space[1] = space[1] = (uint8_t *)malloc(tmp_size);
-  space_size[1] = tmp_size;
-
-
-  current_space=PERM_SPACE;
-
-
-  l_comp_init();
-  for(i = 0; i < sizeof(sys_funcs) / sizeof(*sys_funcs); i++)
-    add_sys_function(sys_funcs[i].name,
-                     sys_funcs[i].min_args, sys_funcs[i].max_args, i);
-  clisp_init();
-  current_space=TMP_SPACE;
-  dprintf("Lisp : %d symbols defined, %d system functions, %d pre-compiled functions\n",
-      LSymbol::count, sizeof(sys_funcs) / sizeof(*sys_funcs), total_user_functions);
+
+void lisp_init()
+{
+    LSymbol::root = NULL;
+    total_user_functions = 0;
+
+    free_space[0] = space[0] = (uint8_t *)malloc(0x1000);
+    space_size[0] = 0x1000;
+
+    free_space[1] = space[1] = (uint8_t *)malloc(0x1000);
+    space_size[1] = 0x1000;
+
+    current_space = PERM_SPACE;
+
+    l_comp_init();
+    for(size_t i = 0; i < sizeof(sys_funcs) / sizeof(*sys_funcs); i++)
+        add_sys_function(sys_funcs[i].name,
+                         sys_funcs[i].min_args, sys_funcs[i].max_args, i);
+    clisp_init();
+    current_space = TMP_SPACE;
+    dprintf("Lisp: %d symbols defined, %d system functions, "
+            "%d pre-compiled functions\n", LSymbol::count,
+            sizeof(sys_funcs) / sizeof(*sys_funcs), total_user_functions);
 }