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
 [smlnj] / sml / trunk / src / MLRISC / alpha / alpha.md

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

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