From: rrt <unknown>
Date: Wed, 14 Mar 2001 10:16:19 +0000 (+0000)
Subject: [project @ 2001-03-14 10:16:19 by rrt]
X-Git-Tag: Approximately_9120_patches~2416
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b797673bb4e7afcd935b62c258424934fc68713b;p=ghc-hetmet.git

[project @ 2001-03-14 10:16:19 by rrt]
Get 'dis /tmp offa ma back, it stops me doin' Windows hack!
---

diff --git a/ghc/driver/split/ghc-split.lprl b/ghc/driver/split/ghc-split.lprl
index 6ed909a..3fe2b81 100644
--- a/ghc/driver/split/ghc-split.lprl
+++ b/ghc/driver/split/ghc-split.lprl
@@ -45,7 +45,7 @@ sub split_asm_file {
 #	if $prologue_stuff eq $s_stuff;
 
     # lie about where this stuff came from
-    $prologue_stuff =~ s|"/tmp/ghc\d+\.c"|"$ifile_root\.hc"|g;
+    $prologue_stuff =~ s|"${Tmp_prefix}\.c"|"$ifile_root\.hc"|g;
 
     while ( $_ ne '' ) { # not EOF
 	$octr++;