Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/cm/compile/compile.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/compile/compile.sml

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

revision 592, Mon Apr 3 07:04:12 2000 UTC revision 632, Sat Apr 29 15:50:42 2000 UTC
# Line 326  Line 326 
326                                                   SOME memo)                                                   SOME memo)
327                                              else otherwise ()                                              else otherwise ()
328                                          end                                          end
329                                    fun bottleneck () =
330                                        (* Are we the only runable task? *)
331                                        Servers.allIdle () andalso
332                                        Concur.noTasks ()
333                                  fun compile_again () =                                  fun compile_again () =
334                                      (Say.vsay ["[compiling ",                                      (Say.vsay ["[compiling ",
335                                                 SmlInfo.descr i, "]\n"];                                                 SmlInfo.descr i, "]\n"];
336                                       compile_here (stat, sym, pids, split))                                       compile_here (stat, sym, pids, split))
337                                    fun compile_there' p =
338                                        not (bottleneck ()) andalso
339                                        compile_there p
340                                  fun compile () = let                                  fun compile () = let
341                                      val sp = SmlInfo.sourcepath i                                      val sp = SmlInfo.sourcepath i
342                                  in                                  in
343                                      if compile_there sp then                                      if compile_there' sp then
344                                          tryload ("received", compile_again)                                          tryload ("received", compile_again)
345                                      else compile_again ()                                      else compile_again ()
346                                  end                                  end

Legend:
Removed from v.592  
changed lines
  Added in v.632

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