From e2b535ec802a313b9ac85474ec5a9fd1f19bbfc6 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Tue, 24 Oct 2000 08:54:25 +0000
Subject: [PATCH] + Extra patch from peter

---
 compiler/i386/cgai386.pas | 21 +++++----------------
 1 file changed, 5 insertions(+), 16 deletions(-)

diff --git a/compiler/i386/cgai386.pas b/compiler/i386/cgai386.pas
index 286fb79b11..89f775e6bc 100644
--- a/compiler/i386/cgai386.pas
+++ b/compiler/i386/cgai386.pas
@@ -2014,20 +2014,6 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
        if (not inlined) and (aktprocsym^.definition^.proctypeoption=potype_proginit) then
            begin
               emitinsertcall('FPC_INITIALIZEUNITS');
-              if target_info.target=target_I386_WIN32 then
-                begin
-                   new(hr);
-                   reset_reference(hr^);
-                   hr^.symbol:=newasmsymbol(
-                   'U_SYSWIN32_ISCONSOLE');
-                   if apptype=at_cui then
-                     exprasmlist^.insert(new(paicpu,op_const_ref(A_MOV,S_B,
-                       1,hr)))
-                   else
-                     exprasmlist^.insert(new(paicpu,op_const_ref(A_MOV,S_B,
-                       0,hr)));
-                end;
-
               oldlist:=exprasmlist;
               exprasmlist:=new(paasmoutput,init);
               p:=symtablestack;
@@ -2815,7 +2801,10 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
 end.
 {
   $Log$
-  Revision 1.2  2000-10-24 07:20:03  pierre
+  Revision 1.3  2000-10-24 08:54:25  michael
+  + Extra patch from peter
+
+  Revision 1.2  2000/10/24 07:20:03  pierre
    * fix for bug 1193 (merged)
 
   Revision 1.1  2000/10/15 09:47:42  peter
@@ -2896,4 +2885,4 @@ end.
   Revision 1.2  2000/07/13 11:32:37  michael
   + removed logs
 
-}
\ No newline at end of file
+}