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/trunk/src/MLRISC/hppa/hppa.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/hppa/hppa.sml

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

revision 113, Fri Jun 5 19:41:21 1998 UTC revision 127, Mon Sep 7 19:06:29 1998 UTC
# Line 15  Line 15 
15       sharing Flowgen.I = MilliCode.I = LabelComp.I = HppaInstr       sharing Flowgen.I = MilliCode.I = LabelComp.I = HppaInstr
16       sharing Flowgen.T = LabelComp.T = HppaMLTree       sharing Flowgen.T = LabelComp.T = HppaMLTree
17       sharing HppaMLTree.Region = HppaInstr.Region       sharing HppaMLTree.Region = HppaInstr.Region
18       sharing HppaMLTree.Constant = HppaInstr.Constant) : MLTREECOMP =       sharing HppaMLTree.Constant = HppaInstr.Constant
19         sharing HppaMLTree.BNames = Flowgen.B) : MLTREECOMP =
20  struct  struct
21    structure I = HppaInstr    structure I = HppaInstr
22    structure F = Flowgen    structure F = Flowgen
# Line 501  Line 502 
502        | mltc(T.ORDERED mlts)     = F.ordered mlts        | mltc(T.ORDERED mlts)     = F.ordered mlts
503        | mltc(T.BEGINCLUSTER)     = F.beginCluster()        | mltc(T.BEGINCLUSTER)     = F.beginCluster()
504        | mltc(T.CODE stms)        = app stmAction stms        | mltc(T.CODE stms)        = app stmAction stms
505          | mltc(T.BLOCK_NAME name)  = F.blockName name
506        | mltc(T.ENDCLUSTER regmap)= F.endCluster regmap        | mltc(T.ENDCLUSTER regmap)= F.endCluster regmap
507        | mltc(T.ESCAPEBLOCK regs) = F.exitBlock (map cc regs)        | mltc(T.ESCAPEBLOCK regs) = F.exitBlock (map cc regs)
508    in mltc mltree    in mltc mltree
# Line 509  Line 511 
511    val mlriscComp = stmAction    val mlriscComp = stmAction
512  end  end
513    
 (*  
  * $Log$  
  *)  

Legend:
Removed from v.113  
changed lines
  Added in v.127

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