From 5ec718d774cae82f7a2bfedd52e19e5f3c38ee60 Mon Sep 17 00:00:00 2001
From: Richard Tucker <rit@harlequin.com>
Date: Thu, 13 Nov 1997 16:49:34 +0000
Subject: [PATCH] Don't leave obj files lying around

Copied from Perforce
 Change: 18995
 ServerID: perforce.ravenbrook.com
---
 mps/qa/test/script/compile | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/mps/qa/test/script/compile b/mps/qa/test/script/compile
index 09a1c05040d..c25b2f72dda 100644
--- a/mps/qa/test/script/compile
+++ b/mps/qa/test/script/compile
@@ -126,16 +126,17 @@ sub compile {
 }
 
 sub compile_and_link {
- local($srcfile, $exefile, $linkfiles) = @_;
+ local($srcfile, $exefile, $linkfiles, $objfile) = @_;
 
  &compiler_settings;
  $linkfiles = " ".$linkfiles;
  $linkfiles =~ s/ +/ $obj_dir\//g;
  $linkfiles = $linkfiles." ";
  $linkfiles =~ s/\.o /$obj_suffix /g;
+ $objfile = "$obj_dir/tmp_obj$obj_suffix";
 
- $command = "$cc_command $cc_opts $cc_exe$exefile $srcfile ".
-  "$linkfiles $MPS_LINK_OBJ $cc_link $cc_include $cc_link_opts";
+ $command = "$cc_command $cc_opts $cc_obj$objfile $cc_exe$exefile ".
+ "$srcfile $linkfiles $MPS_LINK_OBJ $cc_link $cc_include $cc_link_opts";
  
  if (&mysystem($command)) {
   return 0;