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

* mistyping corrected

Browse Source
This commit is contained in:
Tomas Hajny 2002-10-13 20:52:09 +00:00
parent 5ed8dfb74c
commit 52c161036d
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
fv/fileio.pas
View File

@ -384,7 +384,7 @@ BEGIN
FileOpen := Handle Else FileOpen := 0; { Return handle/fail } FileOpen := Handle Else FileOpen := 0; { Return handle/fail }
{$ELSE} { OTHER OS2 COMPILERS } {$ELSE} { OTHER OS2 COMPILERS }
{$IFDEF PPC_FPC} {$IFDEF PPC_FPC}
If (DosOpen(@FileName, Longint(Handle), ActionTaken), 0, 0, If (DosOpen(@FileName, Longint(Handle), ActionTaken, 0, 0,
OpenFlags, OpenMode, Nil) = 0) Then OpenFlags, OpenMode, Nil) = 0) Then
FileOpen := Handle Else FileOpen := 0; { Return handle/fail } FileOpen := Handle Else FileOpen := 0; { Return handle/fail }
{$ELSE} {$ELSE}
@ -694,7 +694,10 @@ END;
END. END.
{ {
$Log$ $Log$
Revision 1.9 2002-10-12 19:39:00 hajny Revision 1.10 2002-10-13 20:52:09 hajny
* mistyping corrected
Revision 1.9 2002/10/12 19:39:00 hajny
* FPC/2 support * FPC/2 support
Revision 1.8 2002/09/22 19:42:22 hajny Revision 1.8 2002/09/22 19:42:22 hajny

7
fvision/fileio.pas
View File

@ -384,7 +384,7 @@ BEGIN
FileOpen := Handle Else FileOpen := 0; { Return handle/fail } FileOpen := Handle Else FileOpen := 0; { Return handle/fail }
{$ELSE} { OTHER OS2 COMPILERS } {$ELSE} { OTHER OS2 COMPILERS }
{$IFDEF PPC_FPC} {$IFDEF PPC_FPC}
If (DosOpen(@FileName, Longint(Handle), ActionTaken), 0, 0, If (DosOpen(@FileName, Longint(Handle), ActionTaken, 0, 0,
OpenFlags, OpenMode, Nil) = 0) Then OpenFlags, OpenMode, Nil) = 0) Then
FileOpen := Handle Else FileOpen := 0; { Return handle/fail } FileOpen := Handle Else FileOpen := 0; { Return handle/fail }
{$ELSE} {$ELSE}
@ -694,7 +694,10 @@ END;
END. END.
{ {
$Log$ $Log$
Revision 1.9 2002-10-12 19:39:00 hajny Revision 1.10 2002-10-13 20:52:09 hajny
* mistyping corrected
Revision 1.9 2002/10/12 19:39:00 hajny
* FPC/2 support * FPC/2 support
Revision 1.8 2002/09/22 19:42:22 hajny Revision 1.8 2002/09/22 19:42:22 hajny