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/ppc/emit/ppcMC.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/ppc/emit/ppcMC.sml

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

revision 809, Wed Apr 18 17:53:01 2001 UTC revision 810, Fri Apr 20 13:26:46 2001 UTC
# Line 1  Line 1 
1  (*  (*
2   * WARNING: This file was automatically generated by MDLGen (v3.0)   * WARNING: This file was automatically generated by MDLGen (v3.0)
3   * from the machine description file "ppc/ppc.mdl".   * from the machine description file "../../ppc/ppc.mdl".
4   * DO NOT EDIT this file directly   * DO NOT EDIT this file directly
5   *)   *)
6    
# Line 430  Line 430 
430             val fb = emit_FP fb             val fb = emit_FP fb
431         in         in
432            let            let
433  (*#line 423.12 "ppc/ppc.mdl"*)  (*#line 423.12 "../../ppc/ppc.mdl"*)
434                val (opcd, xo) = oper                val (opcd, xo) = oper
435            in x_form {opcd=opcd, rt=ft, ra=0wx0, rb=fb, xo=xo, rc=Rc}            in
436                 (case oper of
437                   (0wx3f, 0wx16) => a_form {opcd=opcd, frt=ft, fra=0w0, frb=fb,
438                      frc=0w0, xo=xo, rc=Rc}
439                 | (0wx3b, 0wx16) => a_form {opcd=opcd, frt=ft, fra=0w0, frb=fb,
440                      frc=0w0, xo=xo, rc=Rc}
441                 | _ => x_form {opcd=opcd, rt=ft, ra=0wx0, rb=fb, xo=xo, rc=Rc}
442                 )
443            end            end
444         end         end
445     and farith {oper, ft, fa, fb, Rc} =     and farith {oper, ft, fa, fb, Rc} =
# Line 441  Line 448 
448             val fb = emit_FP fb             val fb = emit_FP fb
449         in         in
450            let            let
451  (*#line 429.12 "ppc/ppc.mdl"*)  (*#line 436.12 "../../ppc/ppc.mdl"*)
452                val (opcd, xo) = emit_farith oper                val (opcd, xo) = emit_farith oper
453            in            in
454               (case oper of               (case oper of
# Line 460  Line 467 
467             val fb = emit_FP fb             val fb = emit_FP fb
468         in         in
469            let            let
470  (*#line 438.12 "ppc/ppc.mdl"*)  (*#line 445.12 "../../ppc/ppc.mdl"*)
471                val (opcd, xo) = oper                val (opcd, xo) = oper
472            in a_form {opcd=opcd, frt=ft, fra=fa, frb=fb, frc=fc, xo=xo, rc=Rc}            in a_form {opcd=opcd, frt=ft, fra=fa, frb=fb, frc=fc, xo=xo, rc=Rc}
473            end            end
474         end         end
475     and cr_bit {cc} =     and cr_bit {cc} =
476         let         let
477  (*#line 443.12 "ppc/ppc.mdl"*)  (*#line 450.12 "../../ppc/ppc.mdl"*)
478             val (cr, bit) = cc             val (cr, bit) = cc
479         in ((emit_CC cr) << 0wx2) + (itow         in ((emit_CC cr) << 0wx2) + (itow
480            (case bit of            (case bit of
# Line 670  Line 677 
677            )            )
678         end         end
679    
680  (*#line 533.7 "ppc/ppc.mdl"*)  (*#line 540.7 "../../ppc/ppc.mdl"*)
681     fun relative (I.LabelOp lexp) = (itow ((LabelExp.valueOf lexp) - ( ! loc))) ~>> 0wx2     fun relative (I.LabelOp lexp) = (itow ((LabelExp.valueOf lexp) - ( ! loc))) ~>> 0wx2
682       | relative _ = error "relative"       | relative _ = error "relative"
683         fun emitter instr =         fun emitter instr =

Legend:
Removed from v.809  
changed lines
  Added in v.810

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