Changeset 7829 for script

Timestamp:

11/04/05 00:16:31 (3 years ago)

Author:

autrijus

Message:

* don't pass random unneeded GHC flags to pugscc.

Files:

• script/pugscc (modified) (2 diffs)

script/pugscc

@@ -86 +86 @@
     writeFile("$base/MainCC.hs", $program);
 
-    my $archlib = `pugs -V:installsitearch`;
-    $archlib =~ /installsitearch:\s*(.+)/ or die "Cannot find sitearch";
-    my $core = "$1/CORE/pugs";
-
-    # XXX - Maybe enable -threaded based on config?
-    # XXX - This chunk should be read off Pugs config anyway.
-    my @ghc_flags = (
-        "-L$base", "-L$core", "-L$core/pcre", "-L$core/syck", "-L$core/cbits",
-        "-I$base", "-I$core", "-I$core/pcre", "-I$core/syck", "-I$core/cbits",
-        "-i$base", "-i$core", "-i$core/pcre", "-i$core/syck", "-i$core/cbits",
-        qw(-static -Wall -fno-warn-unused-imports -fno-warn-unused-binds -fno-warn-missing-signatures -fno-warn-name-shadowing),
-    );
-
-    if ($ENV{PUGS_EMBED} and $ENV{PUGS_EMBED} =~ /perl5/i) {
-        push @ghc_flags, ("-I$Config{archlib}/CORE", "-L$Config{archlib}/CORE", "-i$Config{archlib}/CORE", "-lperl");
-    }
-
-    push @ghc_flags, "$core/pcre/pcre.o";
-    push @ghc_flags, bsd_glob("$core/cbits/*.o");
-    push @ghc_flags, bsd_glob("$core/syck/*.o");
-    push @ghc_flags, "$core/UnicodeC.o";
-
     #fix_path(@ghc_flags);
 
@@ -113 +91 @@
         $ghc_exe,
         "-v0", "-o", $out, "--make", "-main-is", "MainCC.mainCC",
-        @ghc_flags, "$base/MainCC.hs"
+        "$base/MainCC.hs"
     );