Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Open sidebar
clean-and-itasks
clean-ide
Commits
b3ee0f81
Commit
b3ee0f81
authored
Dec 13, 2006
by
John van Groningen
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
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
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
7 deletions
+6
-7
HeapProfile/ShowHeapProfile.icl
HeapProfile/ShowHeapProfile.icl
+6
-7
No files found.
HeapProfile/ShowHeapProfile.icl
View file @
b3ee0f81
...
...
@@ -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"
;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment