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/alpha/alpha.md
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/alpha/alpha.md

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

revision 627, Tue Apr 25 20:40:35 2000 UTC revision 628, Tue Apr 25 21:03:34 2000 UTC
# Line 174  Line 174 
174    
175       (* Integer branches *)       (* Integer branches *)
176       rtl BR{lab} = Jmp(%%lab)       rtl BR{lab} = Jmp(%%lab)
177       rtl BSR{lab} = Call(%%lab)       rtl BSR{lab,r,defs,uses,mem} =
178             Call(%%lab) ||
179             $r[r] := ? ||
180             $cellset[defs] := $cellset[uses] ||
181             $m[? :mem] := ($m[? :mem] : #8 bits)
182    
183       fun branch oper {r,lab} = if oper($r[r], 0) then Jmp(%%lab) else ()       fun branch oper {r,lab} = if oper($r[r], 0) then Jmp(%%lab) else ()
184    
185       rtl [BEQ, BLBC, BLBS, BGE, BGT, BLE, BLT, BNE] =       rtl [BEQ, BLBC, BLBS, BGE, BGT, BLE, BLT, BNE] =
# Line 232  Line 237 
237    
238       (* Call/return *)       (* Call/return *)
239       rtl JSR{r,b,defs,uses,mem} =       rtl JSR{r,b,defs,uses,mem} =
240           Jmp($r[b]) ||           Call($r[b]) ||
241           $r[r] := ? ||           $r[r] := ? ||
242           $cellset[defs] := $cellset[uses] ||           $cellset[defs] := $cellset[uses] ||
243           $m[? :mem] := ($m[? :mem] : #8 bits)           $m[? :mem] := ($m[? :mem] : #8 bits)

Legend:
Removed from v.627  
changed lines
  Added in v.628

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