paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 01:39:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* go32v2 fixed

Browse Source
This commit is contained in:
peter 2003-10-14 08:29:29 +00:00
parent a8374188bc
commit 16c39734dd
2 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ide/fpredir.pas
View File

@ -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

15
tests/utils/redir.pp
View File

@ -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