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 1002, Fri Nov 30 17:11:33 2001 UTC revision 1003, Fri Dec 7 02:45:32 2001 UTC
# Line 65  Line 65 
65    
66    fun emitInstrs(instrs) = Word8Vector.concat(map emitInstr instrs)    fun emitInstrs(instrs) = Word8Vector.concat(map emitInstr instrs)
67    
68    and emitInstr(instr) = let    and emitX86Instr(instr: I.instr) = let
69      val error =      val error =
70          fn msg =>          fn msg =>
71             let val AsmEmitter.S.STREAM{emit,...} = AsmEmitter.makeStream []             let val AsmEmitter.S.STREAM{emit,...} = AsmEmitter.makeStream []
72             in  emit instr; error msg end             in  emit (I.INSTR instr); error msg end
73    
74      val rNum = CB.physicalRegisterNum      val rNum = CB.physicalRegisterNum
75      val fNum = CB.physicalRegisterNum      val fNum = CB.physicalRegisterNum
# Line 528  Line 528 
528    
529       (* misc *)       (* misc *)
530       | I.SAHF => eByte(0x9e)       | I.SAHF => eByte(0x9e)
      | I.ANNOTATION{i,...} => emitInstr i  
531       | _ => error "emitInstr"       | _ => error "emitInstr"
532    end    end
533      and emitInstr (I.LIVE _) = Word8Vector.fromList []
534        | emitInstr (I.KILL _) = Word8Vector.fromList []
535        | emitInstr (I.COPYXXX _) = error "COPY not handled yet"
536        | emitInstr (I.INSTR instr) = emitX86Instr instr
537        | emitInstr (I.ANNOTATION{i,...}) = emitInstr i
538    
539  end  end

Legend:
Removed from v.1002  
changed lines
  Added in v.1003

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