Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Tobias Decking
GHC
Commits
aa8e9422
Commit
aa8e9422
authored
Sep 29, 2006
by
brianlsmith@gmail.com
Browse files
Remove casts from lvalues to allow compilation under GCC 4.0
parent
a84a227c
Changes
1
Hide whitespace changes
Inline
Side-by-side
rts/Linker.c
View file @
aa8e9422
...
...
@@ -2492,14 +2492,14 @@ ocResolve_PEi386 ( ObjectCode* oc )
+
sym
->
Value
);
}
else
{
copyName
(
sym
->
Name
,
strtab
,
symbol
,
1000
-
1
);
(
void
*
)
S
=
lookupLocalSymbol
(
oc
,
symbol
);
S
=
(
UInt32
)
lookupLocalSymbol
(
oc
,
symbol
);
if
((
void
*
)
S
!=
NULL
)
goto
foundit
;
(
void
*
)
S
=
lookupSymbol
(
symbol
);
S
=
(
UInt32
)
lookupSymbol
(
symbol
);
if
((
void
*
)
S
!=
NULL
)
goto
foundit
;
zapTrailingAtSign
(
symbol
);
(
void
*
)
S
=
lookupLocalSymbol
(
oc
,
symbol
);
S
=
(
UInt32
)
lookupLocalSymbol
(
oc
,
symbol
);
if
((
void
*
)
S
!=
NULL
)
goto
foundit
;
(
void
*
)
S
=
lookupSymbol
(
symbol
);
S
=
(
UInt32
)
lookupSymbol
(
symbol
);
if
((
void
*
)
S
!=
NULL
)
goto
foundit
;
/* Newline first because the interactive linker has printed "linking..." */
errorBelch
(
"
\n
%s: unknown symbol `%s'"
,
oc
->
fileName
,
symbol
);
...
...
Write
Preview
Supports
Markdown
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