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/sparc/emit/sparcMC.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/sparc/emit/sparcMC.sml

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

revision 839, Thu Jun 7 20:28:44 2001 UTC revision 840, Fri Jun 15 19:05:19 2001 UTC
# Line 229  Line 229 
229       | emit_fsize (I.Q) = (0wx7 : Word32.word)       | emit_fsize (I.Q) = (0wx7 : Word32.word)
230     fun opn {i} =     fun opn {i} =
231         let         let
232  (*#line 477.11 "sparc/sparc.mdl"*)  (*#line 478.11 "sparc/sparc.mdl"*)
233             fun hi22 w = (itow w) ~>> 0wxa             fun hi22 w = (itow w) ~>> 0wxa
234    
235  (*#line 478.11 "sparc/sparc.mdl"*)  (*#line 479.11 "sparc/sparc.mdl"*)
236             fun lo10 w = ((itow w) && 0wx3ff)             fun lo10 w = ((itow w) && 0wx3ff)
237         in         in
238            (case i of            (case i of
# Line 309  Line 309 
309             val d = emit_GP d             val d = emit_GP d
310         in         in
311            let            let
312  (*#line 516.13 "sparc/sparc.mdl"*)  (*#line 517.13 "sparc/sparc.mdl"*)
313                val (op3, x) = s                val (op3, x) = s
314            in            in
315               (case i of               (case i of
# Line 449  Line 449 
449            )            )
450         end         end
451    
452  (*#line 595.7 "sparc/sparc.mdl"*)  (*#line 596.7 "sparc/sparc.mdl"*)
453     fun disp label = (itow ((Label.addrOf label) - ( ! loc))) ~>> 0wx2     fun disp label = (itow ((Label.addrOf label) - ( ! loc))) ~>> 0wx2
454    
455  (*#line 596.7 "sparc/sparc.mdl"*)  (*#line 597.7 "sparc/sparc.mdl"*)
456     val r15 = C.Reg C.GP 15     val r15 = C.Reg C.GP 15
457     and r31 = C.Reg C.GP 31     and r31 = C.Reg C.GP 31
458         fun emitter instr =         fun emitter instr =

Legend:
Removed from v.839  
changed lines
  Added in v.840

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