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 /sml/branches/SMLNJ/src/compiler/CodeGen/hppa/hppaCG.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/compiler/CodeGen/hppa/hppaCG.sml

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

revision 468, Wed Nov 10 22:42:52 1999 UTC revision 469, Wed Nov 10 22:42:52 1999 UTC
# Line 42  Line 42 
42           )           )
43    
44      structure RA =      structure RA =
45         RegAlloc         RegAlloc2
46           (structure I         = HppaInstr           (structure I         = HppaInstr
47            structure MachSpec  = HppaSpec            structure MachSpec  = HppaSpec
48            structure Flowgraph = HppaFlowGraph            structure Flowgraph = HppaFlowGraph
# Line 50  Line 50 
50            structure InsnProps = InsnProps            structure InsnProps = InsnProps
51            structure Rewrite   = HppaRewrite(HppaInstr)            structure Rewrite   = HppaRewrite(HppaInstr)
52            structure Asm       = HppaAsmEmitter            structure Asm       = HppaAsmEmitter
           functor Ra = HppaRegAlloc  
53    
54            (* NOTE: the spill offset grows backwards on the stack!            (* NOTE: the spill offset grows backwards on the stack!
55             *)             *)
# Line 63  Line 62 
62            fun low11(n)  = wtoi(Word.andb(itow n, 0wx7ff))            fun low11(n)  = wtoi(Word.andb(itow n, 0wx7ff))
63            fun high21(n) = wtoi(Word.~>>(itow n, 0w11))            fun high21(n) = wtoi(Word.~>>(itow n, 0w11))
64    
65              fun pure(I.LOAD _) = true
66                | pure(I.LOADI _) = true
67                | pure(I.FLOAD _) = true
68                | pure(I.FLOADX _) = true
69                | pure(I.ARITH _) = true
70                | pure(I.ARITHI _) = true
71                | pure(I.FARITH _) = true
72                | pure(I.FUNARY _) = true
73                | pure(I.FCNV _) = true
74                | pure(I.ANNOTATION{i,...}) = pure i
75                | pure _ = false
76    
77            (* make copy *)            (* make copy *)
78            fun copyR((rds as [_], rss as [_]), _) =            fun copyR((rds as [_], rss as [_]), _) =
79                I.COPY{dst=rds, src=rss, impl=ref NONE, tmp=NONE}                I.COPY{dst=rds, src=rss, impl=ref NONE, tmp=NONE}

Legend:
Removed from v.468  
changed lines
  Added in v.469

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