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/sparc/sparcMLTreeExtComp.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/CodeGen/sparc/sparcMLTreeExtComp.sml

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

revision 840, Fri Jun 15 19:05:19 2001 UTC revision 909, Fri Aug 24 17:48:53 2001 UTC
# Line 1  Line 1 
1  functor SparcMLTreeExtComp  functor SparcMLTreeExtComp
2     (structure T : MLTREE where Extension = Sparc_SMLNJMLTreeExt     (structure T : MLTREE where Extension = Sparc_SMLNJMLTreeExt
3      structure I : SPARCINSTR where T = T) : MLTREE_EXTENSION_COMP =      structure I : SPARCINSTR where T = T
4        structure CFG : CONTROL_FLOW_GRAPH where I = I) : MLTREE_EXTENSION_COMP =
5  struct  struct
6     structure T = T     structure T = T
7     structure I = I     structure I = I
8     structure C = I.C     structure C = I.C
9     structure Ext = Sparc_SMLNJMLTreeExt     structure Ext = Sparc_SMLNJMLTreeExt
10     structure SparcCompInstrExt = SparcCompInstrExt(I)     structure CFG = CFG
11       structure SparcCompInstrExt =
12         SparcCompInstrExt(structure I = I structure CFG = CFG)
13    
14     type reducer =     type reducer =
15       (I.instruction,C.cellset,I.operand,I.addressing_mode) T.reducer       (I.instruction,C.cellset,I.operand,I.addressing_mode, CFG.cfg) T.reducer
16    
17     fun unimplemented _ = MLRiscErrorMsg.impossible "SparcMLTreeExtComp"     fun unimplemented _ = MLRiscErrorMsg.impossible "SparcMLTreeExtComp"
18    

Legend:
Removed from v.840  
changed lines
  Added in v.909

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