vm/os-genunix.c

   1 #include "master.h"
   2
   3 void c_to_factor_toplevel(CELL quot)
   4 {
   5         c_to_factor(quot);
   6 }
   7
   8 void init_signals(void)
   9 {
  10         unix_init_signals();
  11 }
  12
  13 void early_init(void) { }
  14
  15 #define SUFFIX ".image"
  16 #define SUFFIX_LEN 6
  17
  18 const char *default_image_path(void)
  19 {
  20         const char *path = vm_executable_path();
  21
  22         if(!path)
  23                 return "factor.image";
  24
  25         /* We can't call strlen() here because with gcc 4.1.2 this
  26         causes an internal compiler error. */
  27         int len = 0;
  28         const char *iter = path;
  29         while(*iter) { len++; iter++; }
  30
  31         char *new_path = safe_malloc(PATH_MAX + SUFFIX_LEN + 1);
  32         memcpy(new_path,path,len + 1);
  33         memcpy(new_path + len,SUFFIX,SUFFIX_LEN + 1);
  34         return new_path;
  35 }