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/FLINT/main/flintcomp.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/FLINT/main/flintcomp.sml

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

revision 818, Fri May 4 20:58:47 2001 UTC revision 879, Thu Jul 19 18:59:38 2001 UTC
# Line 5  Line 5 
5                     val collect: unit -> CodeObj.code_object) : CODEGENERATOR =                     val collect: unit -> CodeObj.code_object) : CODEGENERATOR =
6  struct  struct
7    
8  local structure CB = CompBasic  local structure MachSpec = Gen.MachSpec
       (*        structure CGC = Control.CG *)  
       structure MachSpec = Gen.MachSpec  
9        structure Convert = Convert(MachSpec)        structure Convert = Convert(MachSpec)
10        structure CPStrans = CPStrans(MachSpec)        structure CPStrans = CPStrans(MachSpec)
11        structure CPSopt = CPSopt(MachSpec)        structure CPSopt = CPSopt(MachSpec)
# Line 88  Line 86 
86  val fcs : (FLINT.prog -> FLINT.prog) list ref = ref []  val fcs : (FLINT.prog -> FLINT.prog) list ref = ref []
87    
88  (** compiling FLINT code into the binary machine code *)  (** compiling FLINT code into the binary machine code *)
89  fun flintcomp(flint, compInfo as {error, sourceName=src, ...}: CB.compInfo,  fun flintcomp(flint,
90                  compInfo as {error, sourceName=src, ...}: CompInfo.compInfo,
91                splitting) =                splitting) =
92    let fun err severity s =    let fun err severity s =
93          error (0,0) severity (concat["Real constant out of range: ",s,"\n"])          error (0,0) severity (concat["Real constant out of range: ",s,"\n"])

Legend:
Removed from v.818  
changed lines
  Added in v.879

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