Skip to content
Snippets Groups Projects
Commit 63d09d2b authored by sof's avatar sof
Browse files

[project @ 1999-09-16 17:14:33 by sof]

Handle -syslib com for non-installed builds ; dLL_ifs.hi is not a normal .hi file
parent 53c4bc4b
No related merge requests found
......@@ -133,8 +133,11 @@ if (!$Include_prelude) {
foreach $lib ( @Syslibs ) {
local($dir);
# Yuck ^ 2
if ( $lib eq 'win32' && ! $INSTALLING ) {
$dir = "${TopPwd}/hslibs/${lib}/src";
} elsif ( $lib eq 'com' && ! $INSTALLING ) {
$dir = "${TopPwd}/hdirect/lib";
} else {
$dir = ($INSTALLING) ? "${InstLibDirGhc}/imports/${lib}"
: "${TopPwd}/ghc/lib/${lib}";
......@@ -338,7 +341,11 @@ sub preprocess_import_dirs {
for ($_ = readdir(DIR); $_; $_ = readdir(DIR)) {
next unless /(.*)\.hi$/;
$thing = $1;
if ($ModuleIn{$thing} && $ModuleIn{$thing} ne $d) {
#
# dLL_ifs.hi is used to indicate whether a directory
# contains interface files whose object codes reside in a Win32 DLL.
#
if ($ModuleIn{$thing} && $ModuleIn{$thing} ne $d && $thing ne 'dLL_ifs') {
print STDERR "$Pgm: warning: $thing.hi appears in both $ModuleIn{$thing} and $d!\n" if ($Warnings);
} else {
$ModuleIn{$thing} = $d;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment