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 245 - (view) (download)
Original Path: sml/branches/SMLNJ/src/compiler/CodeGen/main/machspec.sml

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 :     val numRegs = 0
12 :     val numFloatRegs = 0
13 :     val bigEndian = false
14 :     val spillAreaSz = 0
15 :     val startgcOffset = 0
16 :     val pseudoRegOffset = 0
17 :     val constBaseRegOffset = 0
18 :    
19 :     val polling = false
20 :     val unboxedFloats = true
21 :     val representations = true
22 :     val newClosure = true
23 :     val numArgRegs = 10
24 :     val maxRepRegs = 10
25 :     val numFloatArgRegs = 0
26 :     val numCalleeSaves = 3
27 :     val numFloatCalleeSaves = 0
28 :     val untaggedInt = false
29 :    
30 :     type value_tag = {
31 :     tagbits : int,
32 :     tagval : int
33 :     }
34 :    
35 :     val intTag = {tagbits=1,tagval=1}
36 :     val ptrTag = {tagbits=2,tagval=0}
37 :     val descTag= {tagbits=2,tagval=2}
38 :    
39 :     (* representations of object descriptors *)
40 :     structure ObjDesc = ObjectDesc
41 :    
42 :     val valueSize = 4
43 :     val charSize = 1
44 :     val realSize = 8
45 :     val realAlign = true
46 :    
47 :     val quasiStack = false
48 :     val quasiFree = false
49 :     val quasiFrameSz = 7
50 :    
51 :     val newListRep = false
52 :     val listCellSz = 2
53 :    
54 :     val floatRegParams = true
55 :    
56 :     val writeAllocateHack = false
57 :    
58 :     val fixedArgPassing = false
59 :    
60 :     val spillRematerialization = false
61 :     end (* DefaultMachSpec *)
62 :    
63 :     (*
64 :     * $Log$
65 :     *)

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