From 8a4731bf6a63e9b2976550a5f11bcac5c85edac7 Mon Sep 17 00:00:00 2001 From: Tomas Hajny Date: Sun, 22 Sep 2002 19:42:21 +0000 Subject: [PATCH] + FPC/2 support added --- fv/app.pas | 12 +++++++++--- fv/dialogs.pas | 11 +++++++++-- fv/drivers.pas | 8 +++++++- fv/fileio.pas | 9 ++++++++- fv/memory.pas | 11 +++++++++-- fv/time.pas | 9 ++++++++- fv/views.pas | 11 +++++++++-- fvision/app.pas | 12 +++++++++--- fvision/dialogs.pas | 11 +++++++++-- fvision/drivers.pas | 8 +++++++- fvision/fileio.pas | 9 ++++++++- fvision/memory.pas | 11 +++++++++-- fvision/time.pas | 9 ++++++++- fvision/views.pas | 11 +++++++++-- 14 files changed, 118 insertions(+), 24 deletions(-) diff --git a/fv/app.pas b/fv/app.pas index 7c76cd4619..56e60a5cbd 100644 --- a/fv/app.pas +++ b/fv/app.pas @@ -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 diff --git a/fv/dialogs.pas b/fv/dialogs.pas index 3f89c6c6c9..b6642af36a 100644 --- a/fv/dialogs.pas +++ b/fv/dialogs.pas @@ -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 diff --git a/fv/drivers.pas b/fv/drivers.pas index 1d85fa2b89..e6765ed874 100644 --- a/fv/drivers.pas +++ b/fv/drivers.pas @@ -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 diff --git a/fv/fileio.pas b/fv/fileio.pas index d17825f9cd..de8fb93880 100644 --- a/fv/fileio.pas +++ b/fv/fileio.pas @@ -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 diff --git a/fv/memory.pas b/fv/memory.pas index 42bd07a309..83c62b04e1 100644 --- a/fv/memory.pas +++ b/fv/memory.pas @@ -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 diff --git a/fv/time.pas b/fv/time.pas index fe010c12f8..a5e05210fd 100644 --- a/fv/time.pas +++ b/fv/time.pas @@ -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 diff --git a/fv/views.pas b/fv/views.pas index 5de0c6db5c..3606e85d14 100644 --- a/fv/views.pas +++ b/fv/views.pas @@ -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 diff --git a/fvision/app.pas b/fvision/app.pas index 7c76cd4619..56e60a5cbd 100644 --- a/fvision/app.pas +++ b/fvision/app.pas @@ -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 diff --git a/fvision/dialogs.pas b/fvision/dialogs.pas index 3f89c6c6c9..b6642af36a 100644 --- a/fvision/dialogs.pas +++ b/fvision/dialogs.pas @@ -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 diff --git a/fvision/drivers.pas b/fvision/drivers.pas index 1d85fa2b89..e6765ed874 100644 --- a/fvision/drivers.pas +++ b/fvision/drivers.pas @@ -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 diff --git a/fvision/fileio.pas b/fvision/fileio.pas index d17825f9cd..de8fb93880 100644 --- a/fvision/fileio.pas +++ b/fvision/fileio.pas @@ -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 diff --git a/fvision/memory.pas b/fvision/memory.pas index 42bd07a309..83c62b04e1 100644 --- a/fvision/memory.pas +++ b/fvision/memory.pas @@ -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 diff --git a/fvision/time.pas b/fvision/time.pas index fe010c12f8..a5e05210fd 100644 --- a/fvision/time.pas +++ b/fvision/time.pas @@ -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 diff --git a/fvision/views.pas b/fvision/views.pas index 5de0c6db5c..3606e85d14 100644 --- a/fvision/views.pas +++ b/fvision/views.pas @@ -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