Commit a9dc05d2 authored by John van Groningen's avatar John van Groningen
Browse files

read 4 bytes to read descriptors on 64 bit windows, instead of 8

parent 41545bee
...@@ -113,12 +113,12 @@ read_heap_file file_name files ...@@ -113,12 +113,12 @@ read_heap_file file_name files
(_,data_begin,file) = IF_INT_64_OR_32 (freadi8 file) (freadi file); (_,data_begin,file) = IF_INT_64_OR_32 (freadi8 file) (freadi file);
(_,small_integers,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); (_,characters,file) = IF_INT_64_OR_32 (freadi8 file) (freadi file);
(_,int_descriptor,file) = IF_INT_64_OR_32 (freadi8 file) (freadi file); (_,int_descriptor,file) = freadi file;
(_,char_descriptor,file) = IF_INT_64_OR_32 (freadi8 file) (freadi file); (_,char_descriptor,file) = freadi file;
(_,real_descriptor,file) = IF_INT_64_OR_32 (freadi8 file) (freadi file); (_,real_descriptor,file) = freadi file;
(_,bool_descriptor,file) = IF_INT_64_OR_32 (freadi8 file) (freadi file); (_,bool_descriptor,file) = freadi file;
(_,string_descriptor,file) = IF_INT_64_OR_32 (freadi8 file) (freadi file); (_,string_descriptor,file) = freadi file;
(_,array_descriptor,file) = IF_INT_64_OR_32 (freadi8 file) (freadi file); (_,array_descriptor,file) = freadi file;
# (error,file) = ferror file; # (error,file) = ferror file;
| error | error
......
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