[Scsh-checkins] CVS: scsh-0.6/c init.c,1.1,1.2

[Martin Gasbichler <mainzelm@users.sourceforge.net>]

Update of /cvsroot/scsh/scsh-0.6/c
In directory usw-pr-cvs1:/tmp/cvs-serv13952/c

Modified Files:
        init.c 
Log Message:
Removed definitions that also exist in main.c
Increased initial heap size


Index: init.c
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/c/init.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** init.c      2001/01/01 18:02:51     1.1
--- init.c      2001/11/08 08:22:15     1.2
***************
*** 8,35 ****
  #include "scheme48heap.h"
  
- /* I bumped this up from 1.5 Mcell because the debugging info put us over
- ** the top. -Olin
- */
- #if !defined(DEFAULT_HEAP_SIZE)
- /* 4 megacell = 16 megabytes (8 meg per semispace) */
- #define DEFAULT_HEAP_SIZE 4000000L
- #endif
- 
- #if !defined(DEFAULT_STACK_SIZE)
- /* 2500 cells = 10000 bytes */
- #define DEFAULT_STACK_SIZE 2500L
- #endif
- 
- #if defined(STATIC_AREAS)
- #define DEFAULT_IMAGE_NAME NULL
- #else
- 
- /* DEFAULT_IMAGE_NAME should be defined using the -D switch to cc. */
- #if !defined(DEFAULT_IMAGE_NAME)
- #define DEFAULT_IMAGE_NAME "scheme48.image"
- #endif
- 
- #endif /* STATIC_AREAS */
- 
  extern void   s48_sysdep_init(void);
  extern void   s48_initialize_external_modules(void);
--- 8,11 ----
***************
*** 42,50 ****
  char *prog_name;
  
  int s48_main (long heap_size, long stack_size,
              char *image_name, int argc, char** argv)
  {
!   return internal_s48_main(heap_size, stack_size, "libscsh", "libscsh", 
!                          image_name, argc, argv);
  }
      
--- 18,31 ----
  char *prog_name;
  
+ void *heap, *stack;
+ 
  int s48_main (long heap_size, long stack_size,
              char *image_name, int argc, char** argv)
  {
!   int ret = internal_s48_main(heap_size, stack_size, "libscsh", "libscsh", 
!                             image_name, argc, argv);
!   free(heap);
!   free(stack);
!   return ret;
  }
      
***************
*** 54,58 ****
  {
    long return_value;
-   void *heap, *stack;
    long required_heap_size;
    int warn_undefined_imported_bindings_p = 1;
--- 35,38 ----