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 590, Sat Apr 1 02:24:08 2000 UTC revision 591, Mon Apr 3 01:19:20 2000 UTC
# Line 21  Line 21 
21    
22    (* should change the return pointer to 2 to follow HPUX conventions *)    (* should change the return pointer to 2 to follow HPUX conventions *)
23    fun doCall({stm,rexp,emit}:reduce,    fun doCall({stm,rexp,emit}:reduce,
24               T.CALL(exp, flow, def, use, cdef, cuse, mem)) =               T.CALL{funct, targets, defs, uses, cdefs, cuses, region}) =
25    let    let
26          val addCCreg = C.addCell C.CC          val addCCreg = C.addCell C.CC
27          fun live([], acc) = acc          fun live([], acc) = acc
# Line 31  Line 31 
31            | live(T.CCR(T.FCC(_,c))::regs, acc) = live(regs, addCCreg(c, acc))            | live(T.CCR(T.FCC(_,c))::regs, acc) = live(regs, addCCreg(c, acc))
32            | live(_::regs, acc) = live(regs, acc)            | live(_::regs, acc) = live(regs, acc)
33          val returnPtr = 31          val returnPtr = 31
34          val defs = C.addReg(returnPtr, live(def, C.empty))          val defs = C.addReg(returnPtr, live(defs, C.empty))
35          val uses = live(use, C.empty)          val uses = live(uses, C.empty)
36        in emit(I.BLE{b=rexp exp, d=I.IMMED 0, sr=5, t=returnPtr,        in emit(I.BLE{b=rexp funct, d=I.IMMED 0, sr=5, t=returnPtr,
37                      defs=defs, uses=uses, mem=mem})                      defs=defs, uses=uses, mem=region})
38        end        end
39      | doCall _ = error "doCall"      | doCall _ = error "doCall"
40    

Legend:
Removed from v.590  
changed lines
  Added in v.591

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