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

+ FPC/2 support added

Browse Source
This commit is contained in:
Tomas Hajny 2002-09-22 19:42:21 +00:00
parent ba31bf5cfa
commit 8a4731bf6a
14 changed files with 118 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
fv/app.pas
View File

@ -1,4 +1,3 @@
{ $Id$}
{********[ SOURCE FILE OF GRAPHICAL FREE VISION ]**********}
{ }
@ -53,7 +52,11 @@ USES
{$ENDIF}
{$IFDEF OS_OS2} { OS2 CODE }
Os2Def, Os2Base, OS2PmApi, { Standard units }
{$IFDEF PPC_FPC}
Os2Def, DosCalls, PmWin, { Standard units }
{$ELSE}
Os2Def, Os2Base, OS2PmApi, { Standard units }
{$ENDIF}
{$ENDIF}
Dos,
{$ifdef USE_VIDEO_API}
@ -1193,7 +1196,10 @@ END;
END.
{
$Log$
Revision 1.21 2002-09-09 08:04:05 pierre
Revision 1.22 2002-09-22 19:42:52 hajny
+ FPC/2 support added
Revision 1.21 2002/09/09 08:04:05 pierre
* remove all warnings about far
Revision 1.20 2002/09/07 15:06:35 peter

11
fv/dialogs.pas
View File

@ -53,7 +53,11 @@ USES
{$ENDIF}
{$IFDEF OS_OS2} { OS2 CODE }
OS2Def, OS2Base, OS2PMAPI, { Standard units }
{$IFDEF PPC_FPC}
OS2Def, DosCalls, PMWIN, { Standard units }
{$ELSE}
OS2Def, OS2Base, OS2PMAPI, { Standard units }
{$ENDIF}
{$ENDIF}
GFVGraph, { GFV standard unit }
@ -4204,7 +4208,10 @@ END;
END.
{
$Log$
Revision 1.19 2002-09-09 08:14:47 pierre
Revision 1.20 2002-09-22 19:42:23 hajny
+ FPC/2 support added
Revision 1.19 2002/09/09 08:14:47 pierre
* remove virtual modifer from store methods
Revision 1.18 2002/09/07 15:06:36 peter

8
fv/drivers.pas
View File

@ -66,6 +66,9 @@ USES
{$IFDEF PPC_Speed} { SPEED PASCAL UNITS }
BseDos, Os2Def, { Standard units }
{$ENDIF}
{$IFDEF PPC_FPC} { FPC UNITS }
DosCalls, Os2Def, { Standard units }
{$ENDIF}
{$ENDIF}
{$IFDEF OS_UNIX}
@ -1674,7 +1677,10 @@ BEGIN
END.
{
$Log$
Revision 1.34 2002-09-13 22:24:30 pierre
Revision 1.35 2002-09-22 19:42:22 hajny
+ FPC/2 support added
Revision 1.34 2002/09/13 22:24:30 pierre
* fix Alt+'9' recognition in GetAltChar function
Revision 1.33 2002/09/13 09:21:15 pierre

9
fv/fileio.pas
View File

@ -225,6 +225,10 @@ FUNCTION FileWrite (Handle: THandle; Var Buf; Count: Sw_Word; Var Actual: Sw_Wor
USES DosTypes, DosProcs; { Standard units }
{$ENDIF}
{$IFDEF PPC_FPC} { FPC UNITS }
USES DosCalls, OS2Def; { Standard units }
{$ENDIF}
{$ENDIF}
{$IFDEF OS_UNIX} { LINUX COMPILER }
@ -684,7 +688,10 @@ END;
END.
{
$Log$
Revision 1.7 2002-09-07 15:06:36 peter
Revision 1.8 2002-09-22 19:42:22 hajny
+ FPC/2 support added
Revision 1.7 2002/09/07 15:06:36 peter
* old logs removed and tabs fixed
Revision 1.6 2002/06/04 11:12:41 marco

11
fv/memory.pas
View File

@ -201,7 +201,11 @@ CONST
{$ENDIF}
{$IFDEF OS_OS2} { OS2 CODE }
USES Os2Base; { Standard unit }
{$IFDEF PPC_FPC}
USES DosCalls; { Standard unit }
{$ELSE}
USES Os2Base; { Standard unit }
{$ENDIF}
{$ENDIF}
{***************************************************************************}
@ -828,7 +832,10 @@ END.
{
$Log$
Revision 1.6 2002-09-09 08:04:06 pierre
Revision 1.7 2002-09-22 19:42:22 hajny
+ FPC/2 support added
Revision 1.6 2002/09/09 08:04:06 pierre
* remove all warnings about far
Revision 1.5 2002/09/07 15:06:37 peter

9
fv/time.pas
View File

@ -163,6 +163,10 @@ PROCEDURE SecondsToTime (Sd: LongInt; Var Hour24, Minute, Second: Word);
USES BseDos, Os2Def; { Standard unit }
{$ENDIF}
{$IFDEF PPC_FPC} { FPC }
USES DosCalls, Os2Def, Dos; { Standard unit }
{$ENDIF}
{$IFDEF PPC_BPOS2} { C'T PATCH TO BP CODE }
USES DosTypes, DosProcs; { Standard unit }
@ -447,7 +451,10 @@ END.
{
$Log$
Revision 1.8 2002-09-09 08:02:49 pierre
Revision 1.9 2002-09-22 19:42:22 hajny
+ FPC/2 support added
Revision 1.8 2002/09/09 08:02:49 pierre
* avoid instabilities on win2000
Revision 1.7 2002/09/07 15:06:38 peter

11
fv/views.pas
View File

@ -71,7 +71,11 @@ USES
{$ENDIF}
{$IFDEF OS_OS2} { OS2 CODE }
OS2Def, OS2Base, OS2PMAPI, { Standard units }
{$IFDEF PPC_FPC}
Os2Def, DosCalls, PmWin,
{$ELSE}
OS2Def, OS2Base, OS2PMAPI, { Standard units }
{$ENDIF}
{$ENDIF}
{$IFDEF GRAPH_API}
@ -5800,7 +5804,10 @@ END.
{
$Log$
Revision 1.38 2002-09-12 12:03:13 pierre
Revision 1.39 2002-09-22 19:42:21 hajny
+ FPC/2 support added
Revision 1.38 2002/09/12 12:03:13 pierre
* handle unix mouse differently as it uses video buffer
Revision 1.37 2002/09/09 08:06:33 pierre

12
fvision/app.pas
View File

@ -1,4 +1,3 @@
{ $Id$}
{********[ SOURCE FILE OF GRAPHICAL FREE VISION ]**********}
{ }
@ -53,7 +52,11 @@ USES
{$ENDIF}
{$IFDEF OS_OS2} { OS2 CODE }
Os2Def, Os2Base, OS2PmApi, { Standard units }
{$IFDEF PPC_FPC}
Os2Def, DosCalls, PmWin, { Standard units }
{$ELSE}
Os2Def, Os2Base, OS2PmApi, { Standard units }
{$ENDIF}
{$ENDIF}
Dos,
{$ifdef USE_VIDEO_API}
@ -1193,7 +1196,10 @@ END;
END.
{
$Log$
Revision 1.21 2002-09-09 08:04:05 pierre
Revision 1.22 2002-09-22 19:42:52 hajny
+ FPC/2 support added
Revision 1.21 2002/09/09 08:04:05 pierre
* remove all warnings about far
Revision 1.20 2002/09/07 15:06:35 peter

11
fvision/dialogs.pas
View File

@ -53,7 +53,11 @@ USES
{$ENDIF}
{$IFDEF OS_OS2} { OS2 CODE }
OS2Def, OS2Base, OS2PMAPI, { Standard units }
{$IFDEF PPC_FPC}
OS2Def, DosCalls, PMWIN, { Standard units }
{$ELSE}
OS2Def, OS2Base, OS2PMAPI, { Standard units }
{$ENDIF}
{$ENDIF}
GFVGraph, { GFV standard unit }
@ -4204,7 +4208,10 @@ END;
END.
{
$Log$
Revision 1.19 2002-09-09 08:14:47 pierre
Revision 1.20 2002-09-22 19:42:23 hajny
+ FPC/2 support added
Revision 1.19 2002/09/09 08:14:47 pierre
* remove virtual modifer from store methods
Revision 1.18 2002/09/07 15:06:36 peter

8
fvision/drivers.pas
View File

@ -66,6 +66,9 @@ USES
{$IFDEF PPC_Speed} { SPEED PASCAL UNITS }
BseDos, Os2Def, { Standard units }
{$ENDIF}
{$IFDEF PPC_FPC} { FPC UNITS }
DosCalls, Os2Def, { Standard units }
{$ENDIF}
{$ENDIF}
{$IFDEF OS_UNIX}
@ -1674,7 +1677,10 @@ BEGIN
END.
{
$Log$
Revision 1.34 2002-09-13 22:24:30 pierre
Revision 1.35 2002-09-22 19:42:22 hajny
+ FPC/2 support added
Revision 1.34 2002/09/13 22:24:30 pierre
* fix Alt+'9' recognition in GetAltChar function
Revision 1.33 2002/09/13 09:21:15 pierre

9
fvision/fileio.pas
View File

@ -225,6 +225,10 @@ FUNCTION FileWrite (Handle: THandle; Var Buf; Count: Sw_Word; Var Actual: Sw_Wor
USES DosTypes, DosProcs; { Standard units }
{$ENDIF}
{$IFDEF PPC_FPC} { FPC UNITS }
USES DosCalls, OS2Def; { Standard units }
{$ENDIF}
{$ENDIF}
{$IFDEF OS_UNIX} { LINUX COMPILER }
@ -684,7 +688,10 @@ END;
END.
{
$Log$
Revision 1.7 2002-09-07 15:06:36 peter
Revision 1.8 2002-09-22 19:42:22 hajny
+ FPC/2 support added
Revision 1.7 2002/09/07 15:06:36 peter
* old logs removed and tabs fixed
Revision 1.6 2002/06/04 11:12:41 marco

11
fvision/memory.pas
View File

@ -201,7 +201,11 @@ CONST
{$ENDIF}
{$IFDEF OS_OS2} { OS2 CODE }
USES Os2Base; { Standard unit }
{$IFDEF PPC_FPC}
USES DosCalls; { Standard unit }
{$ELSE}
USES Os2Base; { Standard unit }
{$ENDIF}
{$ENDIF}
{***************************************************************************}
@ -828,7 +832,10 @@ END.
{
$Log$
Revision 1.6 2002-09-09 08:04:06 pierre
Revision 1.7 2002-09-22 19:42:22 hajny
+ FPC/2 support added
Revision 1.6 2002/09/09 08:04:06 pierre
* remove all warnings about far
Revision 1.5 2002/09/07 15:06:37 peter

9
fvision/time.pas
View File

@ -163,6 +163,10 @@ PROCEDURE SecondsToTime (Sd: LongInt; Var Hour24, Minute, Second: Word);
USES BseDos, Os2Def; { Standard unit }
{$ENDIF}
{$IFDEF PPC_FPC} { FPC }
USES DosCalls, Os2Def, Dos; { Standard unit }
{$ENDIF}
{$IFDEF PPC_BPOS2} { C'T PATCH TO BP CODE }
USES DosTypes, DosProcs; { Standard unit }
@ -447,7 +451,10 @@ END.
{
$Log$
Revision 1.8 2002-09-09 08:02:49 pierre
Revision 1.9 2002-09-22 19:42:22 hajny
+ FPC/2 support added
Revision 1.8 2002/09/09 08:02:49 pierre
* avoid instabilities on win2000
Revision 1.7 2002/09/07 15:06:38 peter

11
fvision/views.pas
View File

@ -71,7 +71,11 @@ USES
{$ENDIF}
{$IFDEF OS_OS2} { OS2 CODE }
OS2Def, OS2Base, OS2PMAPI, { Standard units }
{$IFDEF PPC_FPC}
Os2Def, DosCalls, PmWin,
{$ELSE}
OS2Def, OS2Base, OS2PMAPI, { Standard units }
{$ENDIF}
{$ENDIF}
{$IFDEF GRAPH_API}
@ -5800,7 +5804,10 @@ END.
{
$Log$
Revision 1.38 2002-09-12 12:03:13 pierre
Revision 1.39 2002-09-22 19:42:21 hajny
+ FPC/2 support added
Revision 1.38 2002/09/12 12:03:13 pierre
* handle unix mouse differently as it uses video buffer
Revision 1.37 2002/09/09 08:06:33 pierre