SCM Repository
Annotation of /sml/branches/SMLNJ/src/compiler/OldCGen/mips/mipsspec.sml
Parent Directory
| 
Revision Log
Revision 93 - (view) (download)
| 1 : | monnier | 16 | (* mipsspec.sml |
| 2 : | * | ||
| 3 : | * COPYRIGHT (c) 1996 Bell Laboratories. | ||
| 4 : | * | ||
| 5 : | *) | ||
| 6 : | |||
| 7 : | functor MipsSpec(E: ENDIAN) : MACH_SPEC = | ||
| 8 : | struct | ||
| 9 : | open DefaultMachSpec | ||
| 10 : | |||
| 11 : | val architecture = E.architecture | ||
| 12 : | val bigEndian = E.bigEndian | ||
| 13 : | val spillAreaSz = 0 | ||
| 14 : | val numRegs = 15 | ||
| 15 : | val numFloatRegs = 15 | ||
| 16 : | val numFloatCalleeSaves=0 | ||
| 17 : | val startgcOffset = 4 | ||
| 18 : | val pseudoRegOffset = 16 | ||
| 19 : | end | ||
| 20 : | |||
| 21 : | (* | ||
| 22 : | * $Log: mipsspec.sml,v $ | ||
| 23 : | monnier | 93 | * Revision 1.1.1.1 1998/04/08 18:39:49 george |
| 24 : | * Version 110.5 | ||
| 25 : | monnier | 16 | * |
| 26 : | *) |
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
