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/trunk/src/compiler/CodeGen/main/machspec.sml
ViewVC logotype

Annotation of /sml/trunk/src/compiler/CodeGen/main/machspec.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 812 - (view) (download)

1 : monnier 245 (* machspec.sml
2 :     *
3 :     * COPYRIGHT (c) 1995 AT&T Bell Laboratories.
4 :     *
5 :     *)
6 :    
7 :     structure DefaultMachSpec : MACH_SPEC =
8 :     struct
9 :    
10 :     val architecture = ""
11 : george 717
12 : monnier 245 val numRegs = 0
13 :     val numFloatRegs = 0
14 :     val bigEndian = false
15 :     val spillAreaSz = 0
16 : monnier 429 val initialSpillOffset = 0
17 : monnier 245 val startgcOffset = 0
18 :     val pseudoRegOffset = 0
19 :     val constBaseRegOffset = 0
20 :    
21 :     val polling = false
22 :     val unboxedFloats = true
23 :     val representations = true
24 :     val newClosure = true
25 :     val numArgRegs = 10
26 :     val maxRepRegs = 10
27 :     val numFloatArgRegs = 0
28 :     val numCalleeSaves = 3
29 :     val numFloatCalleeSaves = 0
30 :     val untaggedInt = false
31 :    
32 :     type value_tag = {
33 :     tagbits : int,
34 :     tagval : int
35 :     }
36 :    
37 :     val intTag = {tagbits=1,tagval=1}
38 :     val ptrTag = {tagbits=2,tagval=0}
39 :     val descTag= {tagbits=2,tagval=2}
40 :    
41 :     (* representations of object descriptors *)
42 :     structure ObjDesc = ObjectDesc
43 :    
44 :     val valueSize = 4
45 :     val charSize = 1
46 :     val realSize = 8
47 :     val realAlign = true
48 :    
49 :     val quasiStack = false
50 :     val quasiFree = false
51 :     val quasiFrameSz = 7
52 :    
53 :     val newListRep = false
54 :     val listCellSz = 2
55 :    
56 :     val floatRegParams = true
57 :    
58 :     val writeAllocateHack = false
59 :    
60 :     val fixedArgPassing = false
61 :    
62 :     val spillRematerialization = false
63 : blume 812
64 :     (* the following defaults happen to be the values for x86 *)
65 :     val ML_STATE_OFFSET = 176
66 :     val VProcOffMSP = 4
67 :     val InMLOffVSP = 8
68 :     val LimitPtrMaskOffVSP = 200
69 : monnier 245 end (* DefaultMachSpec *)
70 :    

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