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 }