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/ppc.mdl
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/ppc/ppc.mdl

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 421  Line 421 
421         (* floating point unary *)         (* floating point unary *)
422       | funary{oper:funary,ft:FP,fb:FP,Rc} =       | funary{oper:funary,ft:FP,fb:FP,Rc} =
423         let val (opcd,xo) = oper         let val (opcd,xo) = oper
424         in  x_form{opcd=opcd,rt=ft,ra=0w0,rb=fb,xo=xo,rc=Rc}         in
425              case oper
426              of (0wx3f, 0wx16)  => (* FSQRT *)
427                   a_form{opcd=opcd,frt=ft,fra=0w0,frb=fb,frc=0w0,xo=xo,rc=Rc}
428               | (0wx3b, 0wx16)  => (* FSQRTS *)
429                   a_form{opcd=opcd,frt=ft,fra=0w0,frb=fb,frc=0w0,xo=xo,rc=Rc}
430               | _ =>
431                   x_form{opcd=opcd,rt=ft,ra=0w0,rb=fb,xo=xo,rc=Rc}
432         end         end
433    
434         (* floating point binary *)         (* floating point binary *)

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