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/compiler/TopLevel/main/compbasic.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/TopLevel/main/compbasic.sml

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

revision 591, Mon Apr 3 01:19:20 2000 UTC revision 592, Mon Apr 3 07:04:12 2000 UTC
# Line 17  Line 17 
17    
18  type compInfo   = {mkStamp: unit -> Stamps.stamp,  type compInfo   = {mkStamp: unit -> Stamps.stamp,
19                     mkLvar: Symbol.symbol option -> Access.lvar,                     mkLvar: Symbol.symbol option -> Access.lvar,
                    coreEnv: StaticEnv.staticEnv,  
20                     anyErrors: bool ref,                     anyErrors: bool ref,
21                     error: ErrorMsg.errorFn,                     error: ErrorMsg.errorFn,
22                     errorMatch: SourceMap.region -> string,                     errorMatch: SourceMap.region -> string,
23                     transform: absyn -> absyn,                     transform: absyn -> absyn,
24                     sourceName : string}                     sourceName : string}
25    
26  fun mkCompInfo(source: source, coreEnv: StaticEnv.staticEnv,  fun mkCompInfo(source: source, transform : absyn -> absyn,
                transform : absyn -> absyn,  
27                 mkMkStamp : unit -> Stamps.generator) : compInfo =                 mkMkStamp : unit -> Stamps.generator) : compInfo =
28    let val {error,errorMatch,anyErrors} = ErrorMsg.errors source    let val {error,errorMatch,anyErrors} = ErrorMsg.errors source
29        val _ = LambdaVar.clear()        val _ = LambdaVar.clear()
# Line 36  Line 34 
34         error = error,         error = error,
35         errorMatch = errorMatch,         errorMatch = errorMatch,
36         anyErrors = anyErrors,         anyErrors = anyErrors,
        coreEnv = coreEnv,  
37         transform = transform,         transform = transform,
38         sourceName = #fileOpened source}         sourceName = #fileOpened source}
39    end    end
# Line 44  Line 41 
41  fun anyErrors ({anyErrors=ref b,...} : compInfo) = b  fun anyErrors ({anyErrors=ref b,...} : compInfo) = b
42    
43  end (* structure CompBasic *)  end (* structure CompBasic *)
   

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

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