Commit b3ee0f81 authored by John van Groningen's avatar John van Groningen

undo changes in last revision, read 8 bytes to read descriptors on 64 bit windows, instead of 4,

(iwrite_heap.c was not yet committed)
parent a9dc05d2
......@@ -113,13 +113,12 @@ read_heap_file file_name files
(_,data_begin,file) = IF_INT_64_OR_32 (freadi8 file) (freadi file);
(_,small_integers,file) = IF_INT_64_OR_32 (freadi8 file) (freadi file);
(_,characters,file) = IF_INT_64_OR_32 (freadi8 file) (freadi file);
(_,int_descriptor,file) = freadi file;
(_,char_descriptor,file) = freadi file;
(_,real_descriptor,file) = freadi file;
(_,bool_descriptor,file) = freadi file;
(_,string_descriptor,file) = freadi file;
(_,array_descriptor,file) = freadi file;
(_,int_descriptor,file) = IF_INT_64_OR_32 (freadi8 file) (freadi file);
(_,char_descriptor,file) = IF_INT_64_OR_32 (freadi8 file) (freadi file);
(_,real_descriptor,file) = IF_INT_64_OR_32 (freadi8 file) (freadi file);
(_,bool_descriptor,file) = IF_INT_64_OR_32 (freadi8 file) (freadi file);
(_,string_descriptor,file) = IF_INT_64_OR_32 (freadi8 file) (freadi file);
(_,array_descriptor,file) = IF_INT_64_OR_32 (freadi8 file) (freadi file);
# (error,file) = ferror file;
| error
= abort "error reading heap file";
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment