--- sml/trunk/src/MLRISC/x86/x86.md	2000/03/10 02:55:58	575
+++ sml/trunk/src/MLRISC/x86/x86.md	2000/03/10 07:27:16	576
@@ -209,13 +209,14 @@
        | I.Displace{base,disp,mem,...} => 
            (emit_disp disp; emit "("; emit_GP base; emit ")"; 
             emit_region mem)
-       | I.Indexed{base=NONE,index,scale,disp,mem,...} =>
-          (emit_disp disp; emit "("; emit_GP index; comma(); 
+       | I.Indexed{base,index,scale,disp,mem,...} =>
+          (emit_disp disp; emit "("; 
+           case base of
+             NONE => ()
+           | SOME base => emit_GP base;
+           comma();
+           emit_GP index; comma(); 
            emitScale scale; emit ")"; emit_region mem)
-       | I.Indexed{base=SOME base,index,scale,disp,mem,...} =>
-         (emit_disp disp; emit "("; emit_GP base; 
-	  comma(); emit_GP index; comma(); emitScale scale; emit ")";
-          emit_region mem)
 
       and emit_disp(I.Immed 0) = ()
         | emit_disp(I.Immed i) = emitInt32 i

<script type="text/javascript">//<![CDATA[
		function toggle_ffErrors() {
			var errorsblock = document.getElementById("ffErrorsBlock");
			var errorsgroup = document.getElementById("ffErrors");
			if (errorsblock.style.display == "none") {
				errorsblock.style.display = "block";
				errorsgroup.style.right = "10px";
			} else {
				errorsblock.style.display = "none";
				errorsgroup.style.right = "300px";
			}
		}
//]]></script>
<div id="ffErrors">
<a href="javascript:toggle_ffErrors();">Click to toggle</a>
<div id="ffErrorsBlock">
	<div class="error">does not end with &lt;/html&gt; tag</div>
	<div class="error">does not end with &lt;/body&gt; tag</div>
	<div class="info">The output has ended thus: mit_region mem)
 
       and emit_disp(I.Immed 0) = ()
         | emit_disp(I.Immed i) = emitInt32 i</div>
</div></div>
</body></html>