diff options
Diffstat (limited to 'driver')
| -rw-r--r-- | driver/split/ghc-split.pl (renamed from driver/split/ghc-split.lprl) | 18 | ||||
| -rw-r--r-- | driver/split/ghc.mk | 2 |
2 files changed, 9 insertions, 11 deletions
diff --git a/driver/split/ghc-split.lprl b/driver/split/ghc-split.pl index dd12a8aed5..1ddc0798ab 100644 --- a/driver/split/ghc-split.lprl +++ b/driver/split/ghc-split.pl @@ -1,10 +1,9 @@ -%************************************************************************ -%* * -\section[Driver-obj-splitting]{Splitting into many \tr{.o} files (for libraries)} -%* * -%************************************************************************ +#************************************************************************ +#* * +#* \section[Driver-obj-splitting]{Splitting into many \tr{.o} files (for libraries)} +#* * +#************************************************************************ -\begin{code} $TargetPlatform = $TARGETPLATFORM; ($Pgm = $0) =~ s|.*/||; @@ -209,13 +208,14 @@ sub ReadTMPIUpToAMarker { $str =~ tr/\r//d if $TargetPlatform =~ /-mingw32$/m; # in case Perl doesn't convert line endings $str; } -\end{code} +=pod We must (a)~strip the marker off the block, (b)~record any literal C constants that are defined here, and (c)~inject copies of any C constants that are used-but-not-defined here. -\begin{code} +=cut + sub process_asm_block { local($str) = @_; @@ -430,5 +430,3 @@ sub tidy_up_and_die { print STDERR $msg; exit (($return_val == 0) ? 0 : 1); } -\end{code} - diff --git a/driver/split/ghc.mk b/driver/split/ghc.mk index 20b244d9dc..9d34a59a24 100644 --- a/driver/split/ghc.mk +++ b/driver/split/ghc.mk @@ -10,7 +10,7 @@ # # ----------------------------------------------------------------------------- -driver/split_PERL_SRC = ghc-split.lprl +driver/split_PERL_SRC = ghc-split.pl driver/split_dist_PROGNAME = ghc-split driver/split_dist_TOPDIR = YES driver/split_dist_INSTALL = YES |