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/CodeGen/ppc/ppcCG.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/CodeGen/ppc/ppcCG.sml

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

revision 823, Tue May 8 21:25:15 2001 UTC revision 984, Wed Nov 21 19:00:08 2001 UTC
# Line 4  Line 4 
4  structure PPCCG =  structure PPCCG =
5    MachineGen    MachineGen
6    ( structure MachSpec   = PPCSpec    ( structure MachSpec   = PPCSpec
7        structure ClientPseudoOps = PPCClientPseudoOps
8      structure PseudoOps  = PPCPseudoOps      structure PseudoOps  = PPCPseudoOps
9      structure Ext        = SMLNJMLTreeExt(* generic extension *)      structure Ext        = SMLNJMLTreeExt(* generic extension *)
10      structure CpsRegs    = PPCCpsRegs      structure CpsRegs    = PPCCpsRegs
# Line 15  Line 16 
16    
17      structure OmitFramePtr = struct      structure OmitFramePtr = struct
18        exception NotImplemented        exception NotImplemented
19        structure F=PPCFlowGraph        structure CFG=PPCCFG
20        structure I=PPCInstr        structure I=PPCInstr
21        val vfp = PPCCpsRegs.vfp        val vfp = PPCCpsRegs.vfp
22        fun omitframeptr _ = raise NotImplemented        fun omitframeptr _ = raise NotImplemented
# Line 29  Line 30 
30             structure ExtensionComp = SMLNJMLTreeExtComp             structure ExtensionComp = SMLNJMLTreeExtComp
31                 (structure I = PPCInstr                 (structure I = PPCInstr
32                  structure T = PPCMLTree                  structure T = PPCMLTree
33                    structure CFG = PPCCFG
34                    structure TS = PPCMLTreeStream
35                 )                 )
36             val bit64mode=false             val bit64mode=false
37             val multCost=ref 6 (* an estimate *)             val multCost=ref 6 (* an estimate *)
# Line 36  Line 39 
39    
40      structure Jumps =      structure Jumps =
41         PPCJumps(structure Instr=PPCInstr         PPCJumps(structure Instr=PPCInstr
42                    structure MLTreeEval=PPCMLTreeEval
43                  structure Shuffle=PPCShuffle)                  structure Shuffle=PPCShuffle)
44    
45      structure BackPatch =      structure BackPatch =
46         BBSched2(structure Flowgraph = PPCFlowGraph         BBSched2(structure CFG = PPCCFG
47                    structure Placement = DefaultBlockPlacement(PPCCFG)
48                  structure Jumps = Jumps                  structure Jumps = Jumps
49                  structure Emitter = PPCMCEmitter)                  structure Emitter = PPCMCEmitter)
50    
51      structure RA =      structure RA =
52         RISC_RA         RISC_RA
53           (structure I         = PPCInstr           (structure I         = PPCInstr
54            structure Flowgraph = PPCFlowGraph            structure Flowgraph = PPCCFG
55            structure CpsRegs   = PPCCpsRegs            structure CpsRegs   = PPCCpsRegs
56            structure InsnProps = InsnProps            structure InsnProps = InsnProps
57            structure Rewrite   = PPCRewrite(PPCInstr)            structure Rewrite   = PPCRewrite(PPCInstr)

Legend:
Removed from v.823  
changed lines
  Added in v.984

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