Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /sml/branches/primop-branch-3/compiler/CodeGen/amd64/amd64MLTreeExtComp.sml
ViewVC logotype

Annotation of /sml/branches/primop-branch-3/compiler/CodeGen/amd64/amd64MLTreeExtComp.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2636 - (view) (download)

1 : mblume 2066 functor AMD64MLTreeExtComp
2 :     ( structure T : MLTREE where Extension = AMD64_SMLNJMLTreeExt
3 :     structure I : AMD64INSTR where T = T
4 :     structure TS : MLTREE_STREAM
5 :     where T = T
6 :     structure CFG : CONTROL_FLOW_GRAPH
7 :     where I=I
8 :     and P = TS.S.P
9 :     val fast_fp : bool ref
10 :     ) : MLTREE_EXTENSION_COMP =
11 :     struct
12 :     structure T = T
13 :     structure I = I
14 :     structure C = I.C
15 :     structure CB = CellsBasis
16 :     structure Ext = AMD64_SMLNJMLTreeExt
17 :     structure CFG = CFG
18 :     structure TS = TS
19 :     structure AMD64CompInstrExt =
20 :     AMD64CompInstrExt
21 :     (structure I=I
22 :     structure TS = TS
23 :     structure CFG = CFG)
24 :    
25 :     type reducer =
26 :     (I.instruction,C.cellset,I.operand,I.addressing_mode,CFG.cfg) TS.reducer
27 :    
28 :     fun unimplemented _ = MLRiscErrorMsg.impossible "AMD64MLTreeExtComp"
29 :    
30 :     val compileSext = AMD64CompInstrExt.compileSext
31 :     val compileRext = unimplemented
32 :     val compileCCext = unimplemented
33 : dbm 2636 fun compileFext (TS.REDUCER{reduceFexp, emit, ...}:reducer) = raise Fail "TODO"
34 : mblume 2066 end

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