CVS: sml-dist/src/compiler/Semant/modules sigmatchfn.sml, NONE, 1.1.2.1

Update of /cvsroot/smlnj/sml-dist/src/compiler/Semant/modules
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv10312

Added Files:
      Tag: primop-branch-2
	sigmatchfn.sml 
Log Message:
added sigmatchfn which was in Elaborate/modules/sigmatch.sml

--- NEW FILE: sigmatchfn.sml ---
(* Copyright 1996 by AT&T Bell Laboratories *)
(* sigmatchfn.sml *)

(* functorized to factor out dependencies on FLINT... *)
functor SigMatchFn (structure EV : EVALENTITY) : SIGMATCH =
struct

local structure A  = Absyn
      structure B  = Bindings
      structure DA = Access
      (* structure DI = DebIndex *)
      structure EE = EntityEnv
      structure EM = ErrorMsg
      structure EP = EntPath
      structure EPC = EntPathContext
      structure EU = ElabUtil
      structure INS = EV.Instantiate
      (* structure II = InlInfo *)
      structure IP = InvPath
[...1454 lines suppressed...]
       resExp=M.CONSTstr M.bogusStrEntity}
| applyFct _ = bug "applyFct:bad functor"

(*** top leve wrappers: used for profiling the compilation time *)
(*
val matchStr = 
  Stats.doPhase (Stats.makePhase "Compiler 034 1-matchStr") matchStr

val matchFct = 
  Stats.doPhase (Stats.makePhase "Compiler 034 2-matchFct") matchFct

val packStr = 
  Stats.doPhase (Stats.makePhase "Compiler 034 3-packStr") packStr

val applyFct = 
  Stats.doPhase (Stats.makePhase "Compiler 034 4-applyFct") applyFct
*)

end (* local *)
end (* structure SigMatch *)