Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/lamont/src/compiler/c-util/run-cc.sml
ViewVC logotype

Diff of /branches/lamont/src/compiler/c-util/run-cc.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1730, Tue Mar 13 10:28:50 2012 UTC revision 1731, Tue Mar 13 14:07:55 2012 UTC
# Line 48  Line 48 
48            val cmd = String.concatWith " " ([Paths.ld, "-r", "-o", tmpFile, objFile] @ ldOpts)            val cmd = String.concatWith " " ([Paths.ld, "-r", "-o", tmpFile, objFile] @ ldOpts)
49            fun link () = (            fun link () = (
50                  system cmd;                  system cmd;
51                    Log.msg(concat["rename ", tmpFile, " to ", objFile, "\n"]);
52                  OS.FileSys.rename{old=tmpFile, new=objFile}                  OS.FileSys.rename{old=tmpFile, new=objFile}
53                    handle ex => (OS.FileSys.remove tmpFile; raise ex))                    handle ex => (OS.FileSys.remove tmpFile; raise ex))
54            in            in

Legend:
Removed from v.1730  
changed lines
  Added in v.1731

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0