Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-and-itasks
clean-libraries
Commits
d6b7ee87
Commit
d6b7ee87
authored
Oct 29, 2019
by
John
Browse files
fix mistake in reading the windows image headers
parent
bf749fab
Changes
1
Hide whitespace changes
Inline
Side-by-side
Libraries/graph_copy/win/symbols_in_program.icl
View file @
d6b7ee87
...
...
@@ -329,8 +329,8 @@ read_symbols file_name files
#
(
ok
,
base_of_code
,
exe_file
)
=
freadi
exe_file
;
|
not
ok
=
abort
"Not a PECOFF image file (error in optional PE header)"
;
// base_of_data only for PE32
+
#
(
ok
,
base_of_data
,
exe_file
)
=
IF_INT_64_OR_32
(
freadi
exe_file
)
(
True
,
0
,
exe_file
);
// base_of_data only for PE32
#
(
ok
,
base_of_data
,
exe_file
)
=
IF_INT_64_OR_32
(
True
,
0
,
exe_file
)
(
freadi
exe_file
);
|
not
ok
=
abort
"Not a PECOFF image file (error in optional PE header)"
;
...
...
@@ -338,7 +338,7 @@ read_symbols file_name files
#
(
ok
,
image_base
,
exe_file
)
=
freadi
exe_file
;
|
not
ok
=
abort
"Not a PECOFF image file (error in optional PE header)"
;
#
(
ok
,
exe_file
)
=
fseek
exe_file
(
s_optional_header
-
IF_INT_64_OR_32
32
28
)
FSeekCur
;
#
(
ok
,
exe_file
)
=
fseek
exe_file
(
s_optional_header
-
IF_INT_64_OR_32
28
32
)
FSeekCur
;
|
not
ok
=
abort
"Not a PECOFF image file (error in optional PE header)"
;
...
...
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