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)

HeapProfile/ShowHeapProfile.icl

@@ -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";