Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Shayne Fletcher
Glasgow Haskell Compiler
Commits
6c54855b
Commit
6c54855b
authored
Jan 10, 2008
by
Clemens Fruhwirth
Browse files
ghc-inplace defaults to -fhardwire-lib-paths. Change that to -dynload wrapped
parent
e1b45af1
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/ghc-inplace.c
View file @
6c54855b
...
...
@@ -7,22 +7,23 @@
int
main
(
int
argc
,
char
**
argv
)
{
char
**
args
;
args
=
malloc
(
sizeof
(
char
*
)
*
(
argc
+
3
));
args
=
malloc
(
sizeof
(
char
*
)
*
(
argc
+
4
));
if
(
args
==
NULL
)
{
fprintf
(
stderr
,
"Malloc failed
\n
"
);
exit
(
1
);
}
args
[
0
]
=
"GHC_PATH"
;
/* Gets replaced by sed */
args
[
1
]
=
"-BTOP_ABS"
;
/* Gets replaced by sed */
args
[
2
]
=
"-fhardwire-lib-paths"
;
args
[
2
]
=
"-dynload"
;
args
[
3
]
=
"wrapped"
;
if
((
argc
>=
2
)
&&
(
strcmp
(
argv
[
1
],
"-v"
)
==
0
))
{
printf
(
"Using %s %s %s
\n
"
,
args
[
0
],
args
[
1
],
args
[
2
]);
printf
(
"Using %s %s
%s
%s
\n
"
,
args
[
0
],
args
[
1
],
args
[
2
]
,
args
[
3
]
);
fflush
(
stdout
);
}
memcpy
(
args
+
3
,
argv
+
1
,
sizeof
(
char
*
)
*
(
argc
-
1
));
args
[
argc
+
2
]
=
NULL
;
memcpy
(
args
+
4
,
argv
+
1
,
sizeof
(
char
*
)
*
(
argc
-
1
));
args
[
argc
+
3
]
=
NULL
;
return
run
(
argv
[
0
],
"GHC_PATH"
,
/* Gets replaced by sed */
argc
+
2
,
argc
+
3
,
args
);
}
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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