CVS: sml-dist/src/MLRISC/x86/emit x86Asm.sml,1.38,1.39

Update of /cvsroot/smlnj/sml-dist/src/MLRISC/x86/emit
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26480/src/MLRISC/x86/emit

Modified Files:
	x86Asm.sml 
Log Message:
   Removed some debugging printout code from x86Asm.sml.  
   It looked like something left over from previous bug fixes.


Index: x86Asm.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/MLRISC/x86/emit/x86Asm.sml,v
retrieving revision 1.38
retrieving revision 1.39
diff -C2 -d -r1.38 -r1.39
*** x86Asm.sml	26 Oct 2004 03:57:26 -0000	1.38
--- x86Asm.sml	14 Oct 2005 15:16:07 -0000	1.39
***************
*** 278,285 ****
  
  (*#line 515.6 "x86/x86.mdl"*)
!    fun memReg r = (case memRegBase
! 	 of NONE => raise Fail "memReg"
! 	  | SOME b => MemRegs.memReg {reg=r, base=b}
! 	(* end case *))
  
  (*#line 516.6 "x86/x86.mdl"*)
--- 278,282 ----
  
  (*#line 515.6 "x86/x86.mdl"*)
!    fun memReg r = MemRegs.memReg {reg=r, base=Option.valOf memRegBase}
  
  (*#line 516.6 "x86/x86.mdl"*)
***************
*** 319,330 ****
         | I.Relative _ => error "emit_operand"
         | I.Direct r => emitCell r
!        | I.MemReg r => emit_operand (memReg opn handle ex => raise ex)
         | I.ST f => emitCell f
         | I.FPR f => 
           ( emit "%f"; 
             emit (Int.toString (CellsBasis.registerNum f)))
!        | I.FDirect f => (
! print(concat["FDirect(", CellsBasis.toString f, ")\n"]);
! emit_operand (memReg opn handle ex => raise ex))
         | I.Displace{base, disp, mem, ...} => 
           ( emit_disp disp; 
--- 316,325 ----
         | I.Relative _ => error "emit_operand"
         | I.Direct r => emitCell r
!        | I.MemReg r => emit_operand (memReg opn)
         | I.ST f => emitCell f
         | I.FPR f => 
           ( emit "%f"; 
             emit (Int.toString (CellsBasis.registerNum f)))
!        | I.FDirect f => emit_operand (memReg opn)
         | I.Displace{base, disp, mem, ...} => 
           ( emit_disp disp; 



-------------------------------------------------------
This SF.Net email is sponsored by:
Power Architecture Resource Center: Free content, downloads, discussions,
and more. http://solutions.newsforge.com/ibmarch.tmpl