steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

remove failed proper-save from vm

db4
Doug Coleman 2009-01-21 23:32:23 -06:00
parent 1dc7ecfdc5
commit 09b82321b5
3 changed files with 0 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
vm/image.c
View File

@ -112,10 +112,7 @@ bool save_image(const F_CHAR *filename)
FILE* file;
F_HEADER h;
F_CHAR temporary_filename[] = STRING_LITERAL("##saving-factor-image##");
file = OPEN_WRITE(filename);
//file = OPEN_WRITE(temporary_filename);
if(file == NULL)
{
print_string("Cannot open image file: "); print_native_string(filename); nl();
@ -167,16 +164,6 @@ bool save_image(const F_CHAR *filename)
}
return true;
if(MOVE_FILE_FAILS(temporary_filename, filename))
{
print_string("Failed to rename tempoarary image file: "); print_string(strerror(errno)); nl();
//if(DELETE_FILE_FAILS(temporary_filename))
//print_string("Failed to clean up temporary image file: "); print_string(strerror(errno)); nl();
return false;
}
return true;
}
void primitive_save_image(void)

2
vm/os-unix.h
View File

@ -22,8 +22,6 @@ typedef char F_SYMBOL;
#define STRCMP strcmp
#define STRNCMP strncmp
#define STRDUP strdup
#define MOVE_FILE_FAILS(old,new) (rename((old),(new)) < 0)
#define DELETE_FILE_FAILS(old) (unlink((old)) < 0)
#define FIXNUM_FORMAT "%ld"
#define CELL_FORMAT "%lu"

2
vm/os-windows.h
View File

@ -19,8 +19,6 @@ typedef wchar_t F_CHAR;
#define STRCMP wcscmp
#define STRNCMP wcsncmp
#define STRDUP _wcsdup
#define MOVE_FILE_FAILS(old,new) (MoveFile((old),(new)) == 0)
#define DELETE_FILE_FAILS(old) (DeleteFile((old)) == 0)
#ifdef WIN64
#define CELL_FORMAT "%Iu"