Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Tracker SCM

SCM Repository

[smlnj] View of /sml/trunk/src/compiler/CodeGen/hppa/hppaspec.sml
ViewVC logotype

View of /sml/trunk/src/compiler/CodeGen/hppa/hppaspec.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 812 - (download) (annotate)
Fri Apr 20 15:07:30 2001 UTC (21 years, 5 months ago) by blume
File size: 593 byte(s)
merged changes from my devel branch (inML flag twiddling)
(* machspec.sml
 *
 * COPYRIGHT (c) 1995 AT&T Bell Laboratories.
 *
 *)

structure HppaSpec : MACH_SPEC = 
struct

    open DefaultMachSpec

    val architecture	= "hppa"
    val spillAreaSz	= 4000
    val initialSpillOffset = 116
    val numRegs		= 17	(* length HppaCpsRegs.miscregs + 3 *)
    val numFloatRegs	= 25
      (* length HppaCpsRegs.floatregs + length HppaCpsRegs.savedfpregs *)
    val bigEndian	= true
    val startgcOffset	= ~28
    val constBaseRegOffset = 8192

    val ML_STATE_OFFSET = ~40
    val VProcOffMSP = 4
    val InMLOffVSP = 8
    val LimitPtrMaskOffVSP = 200
end

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