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/x86/x86MC.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/x86/x86MC.sml

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

revision 1008, Fri Dec 14 21:01:29 2001 UTC revision 1009, Wed Jan 9 19:44:22 2002 UTC
# Line 393  Line 393 
393       | I.CDQ => eByte(0x99)       | I.CDQ => eByte(0x99)
394       | I.INTO => eByte(0xce)       | I.INTO => eByte(0xce)
395    
      | I.COPY{dst, src, tmp, ...} =>  
           emitInstrs(Shuffle.shuffle {tmp=tmp, dst=dst, src=src})  
   
      | I.FCOPY{dst, src, tmp, ...} =>  
           emitInstrs(Shuffle.shufflefp {tmp=tmp, dst=dst, src=src})  
   
396       (* floating *)       (* floating *)
397       | I.FBINARY{binOp, src=I.ST src, dst=I.ST dst} =>       | I.FBINARY{binOp, src=I.ST src, dst=I.ST dst} =>
398         let val src = W8.fromInt(fNum src)         let val src = W8.fromInt(fNum src)
# Line 532  Line 526 
526    end    end
527    and emitInstr (I.LIVE _) = Word8Vector.fromList []    and emitInstr (I.LIVE _) = Word8Vector.fromList []
528      | emitInstr (I.KILL _) = Word8Vector.fromList []      | emitInstr (I.KILL _) = Word8Vector.fromList []
529      | emitInstr (I.COPYXXX _) = error "COPY not handled yet"      | emitInstr(I.COPY{k, dst, src, tmp, ...}) =
530          (case k
531           of CB.GP => emitInstrs(Shuffle.shuffle {tmp=tmp, dst=dst, src=src})
532            | CB.FP => emitInstrs(Shuffle.shufflefp {tmp=tmp, dst=dst, src=src})
533            | _ => error "COPY"
534          (*esac*))
535      | emitInstr (I.INSTR instr) = emitX86Instr instr      | emitInstr (I.INSTR instr) = emitX86Instr instr
536      | emitInstr (I.ANNOTATION{i,...}) = emitInstr i      | emitInstr (I.ANNOTATION{i,...}) = emitInstr i
537    

Legend:
Removed from v.1008  
changed lines
  Added in v.1009

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