vm/utilities.cpp

   1 #include "master.hpp"
   2
   3 namespace factor
   4 {
   5
   6 /* If memory allocation fails, bail out */
   7 vm_char *safe_strdup(const vm_char *str)
   8 {
   9         vm_char *ptr = STRDUP(str);
  10         if(!ptr) fatal_error("Out of memory in safe_strdup", 0);
  11         return ptr;
  12 }
  13
  14 cell read_cell_hex()
  15 {
  16         cell cell;
  17         if(scanf(CELL_HEX_FORMAT,&cell) < 0) exit(1);
  18         return cell;
  19 }
  20
  21 /* On Windows, memcpy() is in a different DLL and the non-optimizing
  22 compiler can't find it */
  23 VM_C_API void *factor_memcpy(void *dst, void *src, size_t len)
  24 {
  25         return memcpy(dst,src,len);
  26 }
  27
  28 }