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/branches/blume-private-devel/src/cm/compile/link.sml
ViewVC logotype

Diff of /sml/branches/blume-private-devel/src/cm/compile/link.sml

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

revision 1452, Mon Feb 9 20:33:28 2004 UTC revision 1453, Mon Feb 9 20:33:28 2004 UTC
# Line 50  Line 50 
50          exception Link of exn          exception Link of exn
51    
52          structure BF = Binfile          structure BF = Binfile
53            structure EX = Execute
54    
55          type bfc = BF.bfContents          type bfc = BF.bfContents
56          type bfcGetter = SmlInfo.info -> bfc          type bfcGetter = SmlInfo.info -> bfc
# Line 103  Line 104 
104                              else (evict gp i; false)                              else (evict gp i; false)
105                          end                          end
106          in          in
107              app (visit o #1) (SmlInfoMap.listItemsi (!smlmap))              app (ignore o visit o #1) (SmlInfoMap.listItemsi (!smlmap))
108          end          end
109    
110          fun newTraversal0 (GG.ERRORGROUP, _) =          fun newTraversal0 (GG.ERRORGROUP, _) =
# Line 132  Line 133 
133                      handle exn => exn_err ("unable to load library module",                      handle exn => exn_err ("unable to load library module",
134                                             error, descr, exn)                                             error, descr, exn)
135              in              in
136                  BF.exec (bfc, de)                  BF.exec (bfc, de, Link)
137                  handle exn =>                  handle Link exn =>
138                      exn_err ("link-time exception in library code",                      exn_err ("link-time exception in library code",
139                               error, descr, exn)                               error, descr, exn)
140              end              end
# Line 145  Line 146 
146                      case getE gp of                      case getE gp of
147                          NONE => NONE                          NONE => NONE
148                        | SOME e =>                        | SOME e =>
149                              (SOME (BF.exec (bfc, e))                              (SOME (BF.exec (bfc, e, Link))
150                               handle exn =>                               handle Link exn =>
151                                  exn_err ("link-time exception in user program",                                  exn_err ("link-time exception in user program",
152                                           SmlInfo.error gp i EM.COMPLAIN,                                           SmlInfo.error gp i EM.COMPLAIN,
153                                           SmlInfo.descr i,                                           SmlInfo.descr i,
# Line 351  Line 352 
352              and fsbn (_, n) = sbn n              and fsbn (_, n) = sbn n
353    
354              fun impexp (nth, _, _) gp = #1 (fsbn (nth ())) gp              fun impexp (nth, _, _) gp = #1 (fsbn (nth ())) gp
355                  handle Link exn => raise exn                  handle Link exn => raise EX.Link
356    
357              val exports' = SymbolMap.map impexp exports              val exports' = SymbolMap.map impexp exports
358    

Legend:
Removed from v.1452  
changed lines
  Added in v.1453

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