diff options
| author | Demi Obenour <demiobenour@gmail.com> | 2016-11-29 14:44:05 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-11-29 14:44:06 -0500 |
| commit | 68450878b44ddb63beb3c589cd60d43461900986 (patch) | |
| tree | b92176cb2cd5a9c11d2342a65dd7db941a5a69bf /driver | |
| parent | c2268ba0eeb36a48da77ba95c72525c398c8b306 (diff) | |
| download | haskell-68450878b44ddb63beb3c589cd60d43461900986.tar.gz | |
Purge GHC of literate Perl
Test Plan: GHC CI
Reviewers: austin, bgamari
Reviewed By: bgamari
Subscribers: snowleopard, thomie
Maniphest Tasks: T74
Differential Revision: https://phabricator.haskell.org/D2732
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 |