From 21fc432adae26e971a547adfc86840801d4d3d80 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Mon, 5 Mar 2001 21:49:44 +0000
Subject: [PATCH]   * noag386bin fix

---
 compiler/i386/ra386.pas | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/compiler/i386/ra386.pas b/compiler/i386/ra386.pas
index 0f911b6c13..fdf3d56452 100644
--- a/compiler/i386/ra386.pas
+++ b/compiler/i386/ra386.pas
@@ -635,7 +635,9 @@ begin
   if assigned(ai) then
    begin
      { Check the instruction if it's valid }
+{$ifndef NOAG386BIN}
      ai.CheckIfValid;
+{$endif NOAG386BIN}
      p.concat(ai);
    end
   else
@@ -645,7 +647,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.6  2001-02-20 21:51:36  peter
+  Revision 1.7  2001-03-05 21:49:44  peter
+    * noag386bin fix
+
+  Revision 1.6  2001/02/20 21:51:36  peter
     * fpu fixes (merged)
 
   Revision 1.5  2001/01/12 19:18:42  peter