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/compiler/CodeGen/x86/x86MLTree.sml
ViewVC logotype

Diff of /sml/trunk/compiler/CodeGen/x86/x86MLTree.sml

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

revision 823, Tue May 8 21:25:15 2001 UTC revision 909, Fri Aug 24 17:48:53 2001 UTC
# Line 1  Line 1 
1  structure X86PseudoOps =  structure X86PseudoOps =
2    PseudoOpsLittle(structure M=X86Spec val nop = SOME(0wx90:Word8.word))    PseudoOpsLittle(structure M=X86Spec val nop = SOME(0wx90:Word8.word))
   
3  structure X86Stream = InstructionStream(X86PseudoOps)  structure X86Stream = InstructionStream(X86PseudoOps)
4    
5  (* MLTree specialization *)  (* MLTree specialization *)
# Line 10  Line 9 
9            structure Stream=X86Stream            structure Stream=X86Stream
10            structure Extension=X86_SMLNJMLTreeExt)            structure Extension=X86_SMLNJMLTreeExt)
11    
12    
13  (* specialised X86 instruction set *)  (* specialised X86 instruction set *)
14  structure X86Instr =  structure X86Instr =
15    X86Instr(    X86Instr(
# Line 20  Line 20 
20          val eqRext = eq and eqFext = eq and eqCCext = eq and eqSext = eq          val eqRext = eq and eqFext = eq and eqCCext = eq and eqSext = eq
21          ))          ))
22    
23    structure X86MemRegs = X86MemRegs(X86Instr)
24  structure X86Props = X86Props(X86Instr)  structure X86Props = X86Props(X86Instr)
   
25  structure X86Rewrite = X86Rewrite(X86Instr)  structure X86Rewrite = X86Rewrite(X86Instr)
   
26  structure X86Shuffle = X86Shuffle(X86Instr)  structure X86Shuffle = X86Shuffle(X86Instr)
27    
28    (* Assembly code emmitter *)
29    structure X86AsmEmitter=
30      X86AsmEmitter(structure Instr=X86Instr
31                    structure Shuffle=X86Shuffle
32                    structure MemRegs=X86MemRegs
33                    val memRegBase=SOME(X86Instr.C.esp))
34    
 (* Flowgraph data structure specialized to X86 instructions *)  
 structure X86FlowGraph =  
   FlowGraph(structure I=X86Instr  
             structure P=X86PseudoOps  
            )  
35    
36    (* Machine code emitter *)
37    structure X86MCEmitter =
38      X86MCEmitter(structure Instr=X86Instr
39                   structure Shuffle=X86Shuffle
40                   structure AsmEmitter=X86AsmEmitter
41                   structure MemRegs=X86MemRegs
42                   val memRegBase=SOME(X86Instr.C.esp))
43    
44    (* Flowgraph data structure specialized to X86 instructions *)
45    structure X86CFG =
46      ControlFlowGraph
47         (structure I = X86Instr
48          structure PseudoOps = X86PseudoOps
49          structure GraphImpl = DirectedGraph
50          structure InsnProps = X86Props
51          structure Asm = X86AsmEmitter)
52    

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

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