Changeset 2226 for trunk/tsuite

Timestamp:

07/19/08 00:47:50 (6 months ago)

Author:

gary

Message:

script can not access source & obj files with relative path

Files:

• trunk/tsuite/programs/run_programs.pl (modified) (3 diffs)

trunk/tsuite/programs/run_programs.pl

@@ -9 +9 @@
 # location of source and object files
 $DirSource  = "c:/Projects/Cloudy/trunk/source_hot/";
+$DirSource  = "../../../source/";
 
 if( $UseGcc )
@@ -14 +15 @@
         # object tfiles for gcc
         $DirObject  = "c:/Projects/Cloudy/trunk/source/sys_gcc";
+        $DirObject  = "../../../source/sys_gcc";
 }
 else
 {
         $DirObject  = "c:/Projects/Cloudy/trunk/icl/release";
+        $DirObject  = "..\\..\\..\\icl\\release\\\\";
 }
 
@@ -45 +48 @@
      else
      {
-        system( "icl  $out.cpp /I\"$DirSource\" \"$DirObject\"/*.obj  ");
+        system( "icl  $out.cpp /I\"$DirSource\" \"$DirObject\"*.obj  ");
         $exec = "$out.exe" ;
      }