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

* FPC/2 support

Browse Source
This commit is contained in:
Tomas Hajny 2002-10-12 19:39:00 +00:00
parent d9d4fe8484
commit 227cd9354c
4 changed files with 38 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
fv/fileio.pas
View File

@ -383,9 +383,15 @@ BEGIN
OpenFlags, OpenMode, 0) = 0) Then
FileOpen := Handle Else FileOpen := 0; { Return handle/fail }
{$ELSE} { OTHER OS2 COMPILERS }
If (DosOpen(FileName, Handle, ActionTaken, 0, 0,
OpenFlags, OpenMode, Nil) = 0) Then
FileOpen := Handle Else FileOpen := 0; { Return handle/fail }
{$IFDEF PPC_FPC}
If (DosOpen(@FileName, Longint(Handle), ActionTaken), 0, 0,
OpenFlags, OpenMode, Nil) = 0) Then
FileOpen := Handle Else FileOpen := 0; { Return handle/fail }
{$ELSE}
If (DosOpen(FileName, Handle, ActionTaken, 0, 0,
OpenFlags, OpenMode, Nil) = 0) Then
FileOpen := Handle Else FileOpen := 0; { Return handle/fail }
{$ENDIF}
{$ENDIF}
END;
{$ENDIF}
@ -688,7 +694,10 @@ END;
END.
{
$Log$
Revision 1.8 2002-09-22 19:42:22 hajny
Revision 1.9 2002-10-12 19:39:00 hajny
* FPC/2 support
Revision 1.8 2002/09/22 19:42:22 hajny
+ FPC/2 support added
Revision 1.7 2002/09/07 15:06:36 peter

7
fv/time.pas
View File

@ -165,6 +165,8 @@ PROCEDURE SecondsToTime (Sd: LongInt; Var Hour24, Minute, Second: Word);
{$IFDEF PPC_FPC} { FPC }
USES Dos, DosCalls; { Standard unit }
TYPE DateTime = TDateTime; { Type correction }
{$ENDIF}
{$IFDEF PPC_BPOS2} { C'T PATCH TO BP CODE }
@ -451,7 +453,10 @@ END.
{
$Log$
Revision 1.10 2002-09-24 16:48:24 hajny
Revision 1.11 2002-10-12 19:39:00 hajny
* FPC/2 support
Revision 1.10 2002/09/24 16:48:24 hajny
* fix for TDateTime clash
Revision 1.9 2002/09/22 19:42:22 hajny

17
fvision/fileio.pas
View File

@ -383,9 +383,15 @@ BEGIN
OpenFlags, OpenMode, 0) = 0) Then
FileOpen := Handle Else FileOpen := 0; { Return handle/fail }
{$ELSE} { OTHER OS2 COMPILERS }
If (DosOpen(FileName, Handle, ActionTaken, 0, 0,
OpenFlags, OpenMode, Nil) = 0) Then
FileOpen := Handle Else FileOpen := 0; { Return handle/fail }
{$IFDEF PPC_FPC}
If (DosOpen(@FileName, Longint(Handle), ActionTaken), 0, 0,
OpenFlags, OpenMode, Nil) = 0) Then
FileOpen := Handle Else FileOpen := 0; { Return handle/fail }
{$ELSE}
If (DosOpen(FileName, Handle, ActionTaken, 0, 0,
OpenFlags, OpenMode, Nil) = 0) Then
FileOpen := Handle Else FileOpen := 0; { Return handle/fail }
{$ENDIF}
{$ENDIF}
END;
{$ENDIF}
@ -688,7 +694,10 @@ END;
END.
{
$Log$
Revision 1.8 2002-09-22 19:42:22 hajny
Revision 1.9 2002-10-12 19:39:00 hajny
* FPC/2 support
Revision 1.8 2002/09/22 19:42:22 hajny
+ FPC/2 support added
Revision 1.7 2002/09/07 15:06:36 peter

7
fvision/time.pas
View File

@ -165,6 +165,8 @@ PROCEDURE SecondsToTime (Sd: LongInt; Var Hour24, Minute, Second: Word);
{$IFDEF PPC_FPC} { FPC }
USES Dos, DosCalls; { Standard unit }
TYPE DateTime = TDateTime; { Type correction }
{$ENDIF}
{$IFDEF PPC_BPOS2} { C'T PATCH TO BP CODE }
@ -451,7 +453,10 @@ END.
{
$Log$
Revision 1.10 2002-09-24 16:48:24 hajny
Revision 1.11 2002-10-12 19:39:00 hajny
* FPC/2 support
Revision 1.10 2002/09/24 16:48:24 hajny
* fix for TDateTime clash
Revision 1.9 2002/09/22 19:42:22 hajny