Changeset 559Tweet

Timestamp:

Apr 30, 2011, 12:24:51 AM (6 years ago)

Author:

sam

Message:

lisp: remove space resizing methods, they're useless now that automatic
grow works.

Location:

abuse/trunk/src

Files:

• lisp/lisp.cpp (modified) (2 diffs)
• loader2.cpp (modified) (1 diff)

abuse/trunk/src/lisp/lisp.cpp

@@ -2467 +2467 @@
     }
     case SYS_FUNC_RESIZE_TMP:
-        resize_tmp(lnumber_value(CAR(arg_list)->Eval()));
+        // Deprecated and useless
         break;
     case SYS_FUNC_RESIZE_PERM:
-        resize_perm(lnumber_value(CAR(arg_list)->Eval()));
+        // Deprecated and useless
         break;
     case SYS_FUNC_COS:
@@ -3149 +3149 @@
 }
 
-void resize_perm(size_t new_size)
-{
-  if (new_size<((char *)free_space[PERM_SPACE]-(char *)space[PERM_SPACE]))
-  {
-    lbreak("resize perm : %d is to small to hold current heap\n", new_size);
-    exit(0);
-  } else if (new_size>space_size[PERM_SPACE])
-  {
-    lbreak("Only smaller resizes allowed for now.\n");
-    exit(0);
-  } else
-    dprintf("doesn't work yet!\n");
-}
-
-void resize_tmp(size_t new_size)
-{
-  if (new_size<((char *)free_space[TMP_SPACE]-(char *)space[TMP_SPACE]))
-  {
-    lbreak("resize perm : %d is to small to hold current heap\n", new_size);
-    exit(0);
-  } else if (new_size>space_size[TMP_SPACE])
-  {
-    printf("Only smaller resizes allowed for now.\n");
-    exit(0);
-  } else if (free_space[TMP_SPACE]==space[TMP_SPACE])
-  {
-    free_space[TMP_SPACE] = space[TMP_SPACE] = (uint8_t *)realloc(space[TMP_SPACE], new_size);
-    space_size[TMP_SPACE] = new_size;
-    dprintf("Lisp : tmp space resized to %d\n", new_size);
-  } else dprintf("Lisp :tmp not empty, cannot resize\n");
-}
-
 void l_comp_init();
 void lisp_init(long perm_size, long tmp_size)

abuse/trunk/src/loader2.cpp

@@ -362 +362 @@
   compiled_init();
   clear_tmp();
-  resize_tmp(0x4000);
 
   dprintf("Engine : Registering base graphics\n");