From 7c478984c82a31bb72bdd8ddbe32119ed81d0eba Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Fri, 13 Sep 2002 22:30:50 +0000
Subject: [PATCH]  * only fpc uses video unit

---
 ide/fpcompil.pas | 10 ++++++++--
 ide/fpdebug.pas  | 10 ++++++++--
 2 files changed, 16 insertions(+), 4 deletions(-)

diff --git a/ide/fpcompil.pas b/ide/fpcompil.pas
index 96a6e4f9f1..b8f763b564 100644
--- a/ide/fpcompil.pas
+++ b/ide/fpcompil.pas
@@ -148,7 +148,10 @@ uses
 {$ifdef HasSignal}
   fpcatch,
 {$endif HasSignal}
-  Dos,Video,
+  Dos,
+{$ifdef fpc}
+  Video,
+{$endif fpc}
   StdDlg,App,tokens,
 {$ifdef FVISION}
   FVConsts,
@@ -1290,7 +1293,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.13  2002-09-09 06:53:54  pierre
+  Revision 1.14  2002-09-13 22:30:50  pierre
+   * only fpc uses video unit
+
+  Revision 1.13  2002/09/09 06:53:54  pierre
    * avoid to save file used by codecomplete
 
   Revision 1.12  2002/09/07 15:40:42  peter
diff --git a/ide/fpdebug.pas b/ide/fpdebug.pas
index 2682fd81a0..efde116f6a 100644
--- a/ide/fpdebug.pas
+++ b/ide/fpdebug.pas
@@ -377,7 +377,10 @@ procedure UpdateDebugViews;
 implementation
 
 uses
-  Dos,Video,
+  Dos,
+{$ifdef fpc}
+  Video,
+{$endif fpc}
   App,Strings,
 {$ifdef FVISION}
   FVConsts,
@@ -4167,7 +4170,10 @@ end.
 
 {
   $Log$
-  Revision 1.28  2002-09-13 08:13:07  pierre
+  Revision 1.29  2002-09-13 22:30:50  pierre
+   * only fpc uses video unit
+
+  Revision 1.28  2002/09/13 08:13:07  pierre
    * avoid RTE 201 in hexstr calls
 
   Revision 1.27  2002/09/07 21:04:41  carl