From 16a20719874b4546e30bc4641b706d799333f9ef Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Mon, 22 Mar 2004 15:50:31 +0000
Subject: [PATCH]   * compile fixes

---
 fv/test/testapp.pas      | 6 +++++-
 fv/test/tfileio.pas      | 2 +-
 fvision/test/testapp.pas | 6 +++++-
 fvision/test/tfileio.pas | 2 +-
 4 files changed, 12 insertions(+), 4 deletions(-)

diff --git a/fv/test/testapp.pas b/fv/test/testapp.pas
index 1a60d63419..4219c4de3a 100644
--- a/fv/test/testapp.pas
+++ b/fv/test/testapp.pas
@@ -36,6 +36,7 @@ PROGRAM TestApp;
   USES
      {$IFDEF OS_OS2} Os2Def, os2PmApi,  {$ENDIF}
      Objects, Drivers, Views, Menus, Dialogs, App,             { Standard GFV units }
+     FVConsts,
      {$ifdef TEST}
      AsciiTab,
      {$endif TEST}
@@ -353,7 +354,10 @@ END.
 
 {
  $Log$
- Revision 1.2  2002-09-07 15:06:38  peter
+ Revision 1.3  2004-03-22 15:50:31  peter
+   * compile fixes
+
+ Revision 1.2  2002/09/07 15:06:38  peter
    * old logs removed and tabs fixed
 
 }
diff --git a/fv/test/tfileio.pas b/fv/test/tfileio.pas
index 4126ca7bbf..404f7e187f 100644
--- a/fv/test/tfileio.pas
+++ b/fv/test/tfileio.pas
@@ -15,7 +15,7 @@ BEGIN
 
   Writeln('SetFileSize: ', SetFileSize(handle, 4));
 
-  Writeln('SetFilePos: ', SetFilePos(handle, 2, 0, (LongInt(n)));
+  Writeln('SetFilePos: ', SetFilePos(handle, 2, 0, (LongInt(n))));
   Writeln('Actual: ', n);
 
   Writeln('FileRead: ', FileRead(Handle, buf, 2, n) );
diff --git a/fvision/test/testapp.pas b/fvision/test/testapp.pas
index 1a60d63419..4219c4de3a 100644
--- a/fvision/test/testapp.pas
+++ b/fvision/test/testapp.pas
@@ -36,6 +36,7 @@ PROGRAM TestApp;
   USES
      {$IFDEF OS_OS2} Os2Def, os2PmApi,  {$ENDIF}
      Objects, Drivers, Views, Menus, Dialogs, App,             { Standard GFV units }
+     FVConsts,
      {$ifdef TEST}
      AsciiTab,
      {$endif TEST}
@@ -353,7 +354,10 @@ END.
 
 {
  $Log$
- Revision 1.2  2002-09-07 15:06:38  peter
+ Revision 1.3  2004-03-22 15:50:31  peter
+   * compile fixes
+
+ Revision 1.2  2002/09/07 15:06:38  peter
    * old logs removed and tabs fixed
 
 }
diff --git a/fvision/test/tfileio.pas b/fvision/test/tfileio.pas
index 4126ca7bbf..404f7e187f 100644
--- a/fvision/test/tfileio.pas
+++ b/fvision/test/tfileio.pas
@@ -15,7 +15,7 @@ BEGIN
 
   Writeln('SetFileSize: ', SetFileSize(handle, 4));
 
-  Writeln('SetFilePos: ', SetFilePos(handle, 2, 0, (LongInt(n)));
+  Writeln('SetFilePos: ', SetFilePos(handle, 2, 0, (LongInt(n))));
   Writeln('Actual: ', n);
 
   Writeln('FileRead: ', FileRead(Handle, buf, 2, n) );