[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