+ FPC/2 support added

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

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

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

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

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

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

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

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

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

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

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

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

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

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