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/sparc/mltree/sparc.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/sparc/mltree/sparc.sml

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

revision 623, Thu Apr 20 17:24:37 2000 UTC revision 624, Fri Apr 21 03:06:21 2000 UTC
# Line 54  Line 54 
54    type instrStream = (I.instruction,C.regmap,C.cellset) T.stream    type instrStream = (I.instruction,C.regmap,C.cellset) T.stream
55    type mltreeStream = (T.stm,C.regmap,T.mlrisc list) T.stream    type mltreeStream = (T.stm,C.regmap,T.mlrisc list) T.stream
56    
   structure Gen = MLTreeGen(structure T = T  
57                              val intTy = if V9 then 64 else 32                              val intTy = if V9 then 64 else 32
58      structure Gen = MLTreeGen(structure T = T
59                                val intTy = intTy
60                              val naturalWidths = if V9 then [32,64] else [32]                              val naturalWidths = if V9 then [32,64] else [32]
61                              datatype rep = SE | ZE | NEITHER                              datatype rep = SE | ZE | NEITHER
62                              val rep = NEITHER                              val rep = NEITHER
# Line 464  Line 465 
465          | branch _ = error "branch"          | branch _ = error "branch"
466    
467        and branchV9(cond,a,b,lab,an) =        and branchV9(cond,a,b,lab,an) =
468            let val size = Gen.size a            let val size = Gen.Size.size a
469            in  if useBR andalso signedCmp cond then            in  if useBR andalso signedCmp cond then
470                   let val r = newReg()                   let val r = newReg()
471                   in  doExpr(T.SUB(size,a,b),r,REG,[]);                   in  doExpr(T.SUB(size,a,b),r,REG,[]);

Legend:
Removed from v.623  
changed lines
  Added in v.624

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