[MLton-devel] cvs commit: mlprof bug fix

Stephen Weeks sweeks@users.sourceforge.net
Mon, 13 Oct 2003 18:18:45 -0700


sweeks      03/10/13 18:18:45

  Modified:    mlprof   main.sml
  Log:
  Don't search PATH when running the executable to get the show-prof
  data.  Use the filename given relative to the current directory.
  
  This should fix the problem that Jesper saw.

Revision  Changes    Path
1.54      +3 -1      mlton/mlprof/main.sml

Index: main.sml
===================================================================
RCS file: /cvsroot/mlton/mlton/mlprof/main.sml,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -r1.53 -r1.54
--- main.sml	14 Oct 2003 01:01:49 -0000	1.53
+++ main.sml	14 Oct 2003 01:18:45 -0000	1.54
@@ -118,7 +118,9 @@
 	    then Error.bug "can not run"
 	 else
 	    Process.callWithIn
-	    (afile, ["@MLton", "show-prof"],
+	    (OS.Path.mkAbsolute {path = afile,
+				 relativeTo = OS.FileSys.getDir ()},
+	     ["@MLton", "show-prof"],
 	     fn ins =>
 	     let
 		fun line () =




-------------------------------------------------------
This SF.net email is sponsored by: SF.net Giveback Program.
SourceForge.net hosts over 70,000 Open Source Projects.
See the people who have HELPED US provide better services:
Click here: http://sourceforge.net/supporters.php
_______________________________________________
MLton-devel mailing list
MLton-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mlton-devel