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/compiler/CodeGen/hppa/hppaLabelComp.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/CodeGen/hppa/hppaLabelComp.sml

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

revision 1002, Fri Nov 30 17:11:33 2001 UTC revision 1003, Fri Dec 7 02:45:32 2001 UTC
# Line 28  Line 28 
28          val returnPtr = C.GPReg 31          val returnPtr = C.GPReg 31
29          val defs = C.addReg(returnPtr, live(defs, C.empty))          val defs = C.addReg(returnPtr, live(defs, C.empty))
30          val uses = live(uses, C.empty)          val uses = live(uses, C.empty)
31        in emit(I.BLE{b=rexp funct, d=I.IMMED 0, sr=5, t=returnPtr,        in emit(I.ble{b=rexp funct, d=I.IMMED 0, sr=5, t=returnPtr,
32                      defs=defs, uses=uses, cutsTo=[], mem=region})                      defs=defs, uses=uses, cutsTo=[], mem=region})
33        end        end
34      | doCall _ = error "doCall"      | doCall _ = error "doCall"
35    
36    fun doJmp({stm,rexp,emit}:reduce, T.JMP(exp, labs)) =    fun doJmp({stm,rexp,emit}:reduce, T.JMP(exp, labs)) =
37      (case exp      (case exp
38       of T.LABEL lab => emit(I.B{lab=lab,n=true})       of T.LABEL lab => emit(I.b{lab=lab,n=true})
39        | _ => emit(I.BV{b=rexp(exp), x=C.GPReg 0, labs=labs, n=true})        | _ => emit(I.bv{b=rexp(exp), x=C.GPReg 0, labs=labs, n=true})
40      (*esac*))      (*esac*))
41    
42  end  end

Legend:
Removed from v.1002  
changed lines
  Added in v.1003

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