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 /MLRISC/trunk/x86/staged-allocation/test.sml
ViewVC logotype

Diff of /MLRISC/trunk/x86/staged-allocation/test.sml

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

revision 3009, Tue Apr 29 00:36:12 2008 UTC revision 3010, Wed Apr 30 00:42:37 2008 UTC
# Line 1  Line 1 
1    (*
2     * User defined constant type.  Dummy for now.
3     * In practice, you'll want to use this type to implement constants with
4     * values that cannot be determined until final code generation, e.g.
5     * stack frame offset.
6     *)
7    structure UserConst =
8    struct
9       type const = unit
10       fun toString() = ""
11       fun hash() = 0w0
12       fun valueOf _ = 0
13       fun == _ = true
14    end
15    
16    (*
17     * User defined datatype for representing aliasing.   Dummy for now.
18     * You'll need this to represent aliasing information.
19     *)
20    structure UserRegion =
21    struct
22       type region = unit
23       fun toString () = ""
24       val memory = ()
25       val stack = ()
26       val readonly = ()
27       val spill = ()
28    end
29    
30    (*
31     * User defined datatype for representing pseudo assembly operators.
32     * Dummy for now.
33     *
34     * You'll need this to represent assembler directives.
35     *)
36    structure UserPseudoOps =
37    struct
38       type pseudo_op = unit
39       fun toString () = ""
40       fun emitValue _ = ()
41       fun sizeOf _ = 0
42       fun adjustLabels _ = true
43    end
44    
45    
46    
47  structure C = X86Cells  structure C = X86Cells
48  structure Cells = C  structure Cells = C
49    
# Line 366  Line 412 
412      (* machine-specific data *)      (* machine-specific data *)
413      val wordTy = 32      val wordTy = 32
414      val wordSzB = wordTy div 8      val wordSzB = wordTy div 8
415      val param0 = T.REG(wordTy, Cells.edi)      fun li i = T.LI (T.I.fromInt (wordTy, i))
416        val param0 = T.LOAD(wordTy, T.ADD(32, li 8, T.REG(32,Cells.ebp)), ())
417    
418    structure CSizes = IA32CSizes    structure CSizes = IA32CSizes
419    

Legend:
Removed from v.3009  
changed lines
  Added in v.3010

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