From 16c39734ddf4607fcb4e0b3d15e9059c085521cf Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 14 Oct 2003 08:29:29 +0000
Subject: [PATCH]   * go32v2 fixed

---
 ide/fpredir.pas      | 15 ++++++++-------
 tests/utils/redir.pp | 15 ++++++++-------
 2 files changed, 16 insertions(+), 14 deletions(-)

diff --git a/ide/fpredir.pas b/ide/fpredir.pas
index 3d442a8c1f..c2ceef3fec 100644
--- a/ide/fpredir.pas
+++ b/ide/fpredir.pas
@@ -212,18 +212,16 @@ end;
 
 {$ifndef ver1_0}
 function fpdup(fh:longint):longint;
-var
-  fn : longint;
 begin
   if not dup(fh,fpdup) then
    fpdup:=-1;
 end;
 
-function fpdup2(fh:longint):longint;
-var
-  fn : longint;
+function fpdup2(fh,nh:longint):longint;
 begin
-  if not dup2(fh,fpdup2) then
+  if dup2(fh,nh) then
+   fpdup2:=0
+  else
    fpdup2:=-1;
 end;
 {$endif ver1_0}
@@ -970,7 +968,10 @@ finalization
 End.
 {
   $Log$
-  Revision 1.5  2003-09-29 14:36:59  peter
+  Revision 1.6  2003-10-14 08:29:29  peter
+    * go32v2 fixed
+
+  Revision 1.5  2003/09/29 14:36:59  peter
     * win32 fixed
 
   Revision 1.4  2003/09/27 14:03:45  peter
diff --git a/tests/utils/redir.pp b/tests/utils/redir.pp
index a0ec3632a9..5f008827a7 100644
--- a/tests/utils/redir.pp
+++ b/tests/utils/redir.pp
@@ -212,18 +212,16 @@ end;
 
 {$ifndef ver1_0}
 function fpdup(fh:longint):longint;
-var
-  fn : longint;
 begin
   if not dup(fh,fpdup) then
    fpdup:=-1;
 end;
 
-function fpdup2(fh:longint):longint;
-var
-  fn : longint;
+function fpdup2(fh,nh:longint):longint;
 begin
-  if not dup2(fh,fpdup2) then
+  if dup2(fh,nh) then
+   fpdup2:=0
+  else
    fpdup2:=-1;
 end;
 {$endif ver1_0}
@@ -970,7 +968,10 @@ finalization
 End.
 {
   $Log$
-  Revision 1.15  2003-09-29 14:36:39  peter
+  Revision 1.16  2003-10-14 08:30:37  peter
+    * go32v2 fixed
+
+  Revision 1.15  2003/09/29 14:36:39  peter
     * win32 fixed
 
   Revision 1.14  2003/09/25 16:48:18  peter