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 774, Wed Jan 10 12:50:56 2001 UTC revision 775, Fri Jan 12 01:17:51 2001 UTC
# Line 1  Line 1 
1  functor HppaLabelComp  functor HppaLabelComp(Instr : HPPAINSTR) : LABEL_COMP =
   (structure MLTree : MLTREE  
    structure Instr : HPPAINSTR  
      sharing Instr.Region = MLTree.Region  
      sharing Instr.LabelExp = MLTree.LabelExp) : LABEL_COMP =  
2  struct  struct
3    structure T = MLTree    structure T = Instr.T
4    structure I = Instr    structure I = Instr
5    structure C = I.C    structure C = I.C
   structure LE = I.LabelExp  
6    
7    type reduce =    type reduce =
8      { stm: T.stm -> unit,      { stm: T.stm -> unit,
# Line 40  Line 35 
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(LE.LABEL lab) => emit(I.B{lab=lab,n=true})       of T.LABEL lab => emit(I.B{lab=lab,n=true})
       | T.LABEL _ => error "doJmp: LABEL"  
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    

Legend:
Removed from v.774  
changed lines
  Added in v.775

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