* remove all warnings about far

fv/app.pas

@@ -515,7 +515,7 @@ VAR NumCols, NumRows, NumTileable, LeftOver, TileNum: Integer;
        DIV Num + Lo;                                  { Calc position }
    END;
 
-   PROCEDURE DoCountTileable (P: PView); FAR;
+   PROCEDURE DoCountTileable (P: PView); {$IFNDEF PPC_FPC}FAR;{$ENDIF}
    BEGIN
      If Tileable(P) Then Inc(NumTileable);            { Count tileable views }
    END;
@@ -544,7 +544,7 @@ VAR NumCols, NumRows, NumTileable, LeftOver, TileNum: Integer;
      End;
    END;
 
-   PROCEDURE DoTile(P: PView); FAR;
+   PROCEDURE DoTile(P: PView); {$IFNDEF PPC_FPC}FAR;{$ENDIF}
    VAR PState: Word; R: TRect;
    BEGIN
      If Tileable(P) Then Begin
@@ -590,14 +590,14 @@ END;
 PROCEDURE TDeskTop.Cascade (Var R: TRect);
 VAR CascadeNum: Integer; LastView: PView; Min, Max: TPoint;
 
-   PROCEDURE DoCount (P: PView); FAR;
+   PROCEDURE DoCount (P: PView); {$IFNDEF PPC_FPC}FAR;{$ENDIF}
    BEGIN
      If Tileable(P) Then Begin
        Inc(CascadeNum); LastView := P;                { Count cascadable }
      End;
    END;
 
-   PROCEDURE DoCascade (P: PView); FAR;
+   PROCEDURE DoCascade (P: PView); {$IFNDEF PPC_FPC}FAR;{$ENDIF}
    VAR PState: Word; NR: TRect;
    BEGIN
      If Tileable(P) AND (CascadeNum >= 0) Then Begin  { View cascadable }
@@ -1193,7 +1193,10 @@ END;
 END.
 {
  $Log$
- Revision 1.20  2002-09-07 15:06:35  peter
+ 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
    * old logs removed and tabs fixed
 
  Revision 1.19  2002/08/22 13:39:29  pierre

fv/drivers.pas

@@ -757,7 +757,7 @@ END;
 {---------------------------------------------------------------------------}
 {  ExitDrivers -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 08Jun98 LdB       }
 {---------------------------------------------------------------------------}
-PROCEDURE ExitDrivers; {$IFNDEF OS_UNIX} FAR; {$ENDIF}
+PROCEDURE ExitDrivers; {$IFNDEF PPC_FPC}{$IFNDEF OS_UNIX} FAR; {$ENDIF}{$ENDIF}
 BEGIN
    DoneSysError;                                      { Relase error trap }
    DoneEvents;                                        { Close event driver }
@@ -1673,7 +1673,10 @@ BEGIN
 END.
 {
  $Log$
- Revision 1.31  2002-09-07 15:06:36  peter
+ Revision 1.32  2002-09-09 08:04:05  pierre
+  * remove all warnings about far
+
+ Revision 1.31  2002/09/07 15:06:36  peter
    * old logs removed and tabs fixed
 
  Revision 1.30  2002/06/10 19:40:14  pierre

fv/memory.pas

@@ -280,7 +280,7 @@ CONST
 {---------------------------------------------------------------------------}
 {  GetBufSize -> Platforms DOS REAL MODE - Updated 01Oct99 LdB              }
 {---------------------------------------------------------------------------}
-FUNCTION GetBufSize (P: PBuffer): Word; FAR;
+FUNCTION GetBufSize (P: PBuffer): Word; {$IFNDEF PPC_FPC}FAR;{$ENDIF}
 BEGIN
    GetBufSize := (P^.Size + 15) SHR 4 + 1;            { Buffer paragraphs }
 END;
@@ -288,7 +288,7 @@ END;
 {---------------------------------------------------------------------------}
 {  FreeCacheMem -> Platforms DOS REAL MODE - Updated 01Oct99 LdB            }
 {---------------------------------------------------------------------------}
-PROCEDURE FreeCacheMem; FAR;
+PROCEDURE FreeCacheMem; {$IFNDEF PPC_FPC}FAR;{$ENDIF}
 BEGIN
    While (CachePtr <> HeapEnd) Do
      DisposeCache(CachePtr);                          { Release blocks }
@@ -371,7 +371,7 @@ END;
 {---------------------------------------------------------------------------}
 {  SetBufSize -> Platforms DOS REAL MODE - Updated 01Oct99 LdB              }
 {---------------------------------------------------------------------------}
-PROCEDURE SetBufSize (P: PBuffer; NewSize: Word); FAR;
+PROCEDURE SetBufSize (P: PBuffer; NewSize: Word); {$IFNDEF PPC_FPC}FAR;{$ENDIF}
 VAR CurSize: Word;
 BEGIN
    CurSize := GetBufSize(P);                          { Current size }
@@ -394,7 +394,7 @@ END;
 {---------------------------------------------------------------------------}
 {  FreeCache -> Platforms DPMI/WIN/NT/OS2 - Updated 01Oct99 LdB             }
 {---------------------------------------------------------------------------}
-FUNCTION FreeCache: Boolean; FAR;
+FUNCTION FreeCache: Boolean; {$IFNDEF PPC_FPC}FAR;{$ENDIF}
 BEGIN
    FreeCache := False;                                { Preset fail }
    If (CacheList <> Nil) Then Begin
@@ -406,7 +406,7 @@ END;
 {---------------------------------------------------------------------------}
 {  FreeCache -> Platforms DPMI/WIN/NT/OS2 - Updated 01Oct99 LdB             }
 {---------------------------------------------------------------------------}
-FUNCTION FreeSafetyPool: Boolean; FAR;
+FUNCTION FreeSafetyPool: Boolean; {$IFNDEF PPC_FPC}FAR;{$ENDIF}
 BEGIN
    FreeSafetyPool := False;                           { Preset fail }
    If (SafetyPool <> Nil) Then Begin                  { Pool exists }
@@ -424,7 +424,7 @@ END;
 {---------------------------------------------------------------------------}
 {  HeapNotify -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 01Oct99 LdB        }
 {---------------------------------------------------------------------------}
-FUNCTION HeapNotify (Size: Word): Integer; FAR;
+FUNCTION HeapNotify (Size: Word): Integer; {$IFNDEF PPC_FPC}FAR;{$ENDIF}
 {$IFDEF PROC_REAL}                                    { REAL MODE DOS CODE }
 ASSEMBLER;
 ASM
@@ -828,7 +828,10 @@ END.
 
 {
  $Log$
- Revision 1.5  2002-09-07 15:06:37  peter
+ 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
    * old logs removed and tabs fixed
 
 }

fv/views.pas

@@ -2538,7 +2538,7 @@ END;
 {---------------------------------------------------------------------------}
 FUNCTION TGroup.Valid (Command: Word): Boolean;
 
-   FUNCTION IsInvalid (P: PView): Boolean; FAR;
+   FUNCTION IsInvalid (P: PView): Boolean; {$IFNDEF PPC_FPC}FAR;{$ENDIF}
    BEGIN
      IsInvalid := NOT P^.Valid(Command);              { Check if valid }
    END;
@@ -2670,7 +2670,7 @@ END;
 {---------------------------------------------------------------------------}
 PROCEDURE TGroup.Awaken;
 
-   PROCEDURE DoAwaken (P: PView); FAR;
+   PROCEDURE DoAwaken (P: PView); {$IFNDEF PPC_FPC}FAR;{$ENDIF}
    BEGIN
      If (P <> Nil) Then P^.Awaken;                    { Awaken view }
    END;
@@ -2881,12 +2881,12 @@ END;
 {---------------------------------------------------------------------------}
 PROCEDURE TGroup.SetState (AState: Word; Enable: Boolean);
 
-    PROCEDURE DoSetState (P: PView); FAR;
+    PROCEDURE DoSetState (P: PView); {$IFNDEF PPC_FPC}FAR;{$ENDIF}
     BEGIN
       If (P <> Nil) Then P^.SetState(AState, Enable); { Set subview state }
     END;
 
-    PROCEDURE DoExpose (P: PView); FAR;
+    PROCEDURE DoExpose (P: PView); {$IFNDEF PPC_FPC}FAR;{$ENDIF}
     BEGIN
       If (P <> Nil) Then Begin
         If (P^.State AND sfVisible <> 0) Then         { Check view visible }
@@ -2950,7 +2950,7 @@ END;
 PROCEDURE TGroup.Store (Var S: TStream);
 VAR Count: Sw_Integer; OwnerSave: PGroup;
 
-   PROCEDURE DoPut (P: PView); FAR;
+   PROCEDURE DoPut (P: PView); {$IFNDEF PPC_FPC}FAR;{$ENDIF}
    BEGIN
      S.Put(P);                                        { Put view on stream }
    END;
@@ -2979,13 +2979,13 @@ END;
 {---------------------------------------------------------------------------}
 PROCEDURE TGroup.HandleEvent (Var Event: TEvent);
 
-   FUNCTION ContainsMouse (P: PView): Boolean; FAR;
+   FUNCTION ContainsMouse (P: PView): Boolean; {$IFNDEF PPC_FPC}FAR;{$ENDIF}
    BEGIN
      ContainsMouse := (P^.State AND sfVisible <> 0)   { Is view visible }
        AND P^.MouseInView(Event.Where);               { Is point in view }
    END;
 
-   PROCEDURE DoHandleEvent (P: PView); FAR;
+   PROCEDURE DoHandleEvent (P: PView); {$IFNDEF PPC_FPC}FAR;{$ENDIF}
    BEGIN
      If (P = Nil) OR ((P^.State AND sfDisabled <> 0) AND
        (Event.What AND(PositionalEvents OR FocusedEvents) <>0 ))
@@ -3024,7 +3024,7 @@ END;
 PROCEDURE TGroup.ChangeBounds (Var Bounds: TRect);
 VAR D: TPoint;
 
-   PROCEDURE DoCalcChange (P: PView); FAR;
+   PROCEDURE DoCalcChange (P: PView); {$IFNDEF PPC_FPC}FAR;{$ENDIF}
    VAR R: TRect;
    BEGIN
      P^.CalcBounds(R, D);                             { Calc view bounds }
@@ -3119,7 +3119,7 @@ END;
 {---------------------------------------------------------------------------}
 FUNCTION TGroup.FirstMatch (AState: Word; AOptions: Word): PView;
 
-   FUNCTION Matches (P: PView): Boolean; FAR;
+   FUNCTION Matches (P: PView): Boolean; {$IFNDEF PPC_FPC}FAR;{$ENDIF}
    BEGIN
      Matches := (P^.State AND AState = AState) AND
        (P^.Options AND AOptions = AOptions);          { Return match state }
@@ -5782,7 +5782,10 @@ END.
 
 {
  $Log$
- Revision 1.35  2002-09-07 15:06:38  peter
+ Revision 1.36  2002-09-09 08:04:06  pierre
+  * remove all warnings about far
+
+ Revision 1.35  2002/09/07 15:06:38  peter
    * old logs removed and tabs fixed
 
  Revision 1.34  2002/08/22 13:40:49  pierre

fvision/app.pas

@@ -515,7 +515,7 @@ VAR NumCols, NumRows, NumTileable, LeftOver, TileNum: Integer;
        DIV Num + Lo;                                  { Calc position }
    END;
 
-   PROCEDURE DoCountTileable (P: PView); FAR;
+   PROCEDURE DoCountTileable (P: PView); {$IFNDEF PPC_FPC}FAR;{$ENDIF}
    BEGIN
      If Tileable(P) Then Inc(NumTileable);            { Count tileable views }
    END;
@@ -544,7 +544,7 @@ VAR NumCols, NumRows, NumTileable, LeftOver, TileNum: Integer;
      End;
    END;
 
-   PROCEDURE DoTile(P: PView); FAR;
+   PROCEDURE DoTile(P: PView); {$IFNDEF PPC_FPC}FAR;{$ENDIF}
    VAR PState: Word; R: TRect;
    BEGIN
      If Tileable(P) Then Begin
@@ -590,14 +590,14 @@ END;
 PROCEDURE TDeskTop.Cascade (Var R: TRect);
 VAR CascadeNum: Integer; LastView: PView; Min, Max: TPoint;
 
-   PROCEDURE DoCount (P: PView); FAR;
+   PROCEDURE DoCount (P: PView); {$IFNDEF PPC_FPC}FAR;{$ENDIF}
    BEGIN
      If Tileable(P) Then Begin
        Inc(CascadeNum); LastView := P;                { Count cascadable }
      End;
    END;
 
-   PROCEDURE DoCascade (P: PView); FAR;
+   PROCEDURE DoCascade (P: PView); {$IFNDEF PPC_FPC}FAR;{$ENDIF}
    VAR PState: Word; NR: TRect;
    BEGIN
      If Tileable(P) AND (CascadeNum >= 0) Then Begin  { View cascadable }
@@ -1193,7 +1193,10 @@ END;
 END.
 {
  $Log$
- Revision 1.20  2002-09-07 15:06:35  peter
+ 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
    * old logs removed and tabs fixed
 
  Revision 1.19  2002/08/22 13:39:29  pierre

fvision/drivers.pas

@@ -757,7 +757,7 @@ END;
 {---------------------------------------------------------------------------}
 {  ExitDrivers -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 08Jun98 LdB       }
 {---------------------------------------------------------------------------}
-PROCEDURE ExitDrivers; {$IFNDEF OS_UNIX} FAR; {$ENDIF}
+PROCEDURE ExitDrivers; {$IFNDEF PPC_FPC}{$IFNDEF OS_UNIX} FAR; {$ENDIF}{$ENDIF}
 BEGIN
    DoneSysError;                                      { Relase error trap }
    DoneEvents;                                        { Close event driver }
@@ -1673,7 +1673,10 @@ BEGIN
 END.
 {
  $Log$
- Revision 1.31  2002-09-07 15:06:36  peter
+ Revision 1.32  2002-09-09 08:04:05  pierre
+  * remove all warnings about far
+
+ Revision 1.31  2002/09/07 15:06:36  peter
    * old logs removed and tabs fixed
 
  Revision 1.30  2002/06/10 19:40:14  pierre

fvision/memory.pas

@@ -280,7 +280,7 @@ CONST
 {---------------------------------------------------------------------------}
 {  GetBufSize -> Platforms DOS REAL MODE - Updated 01Oct99 LdB              }
 {---------------------------------------------------------------------------}
-FUNCTION GetBufSize (P: PBuffer): Word; FAR;
+FUNCTION GetBufSize (P: PBuffer): Word; {$IFNDEF PPC_FPC}FAR;{$ENDIF}
 BEGIN
    GetBufSize := (P^.Size + 15) SHR 4 + 1;            { Buffer paragraphs }
 END;
@@ -288,7 +288,7 @@ END;
 {---------------------------------------------------------------------------}
 {  FreeCacheMem -> Platforms DOS REAL MODE - Updated 01Oct99 LdB            }
 {---------------------------------------------------------------------------}
-PROCEDURE FreeCacheMem; FAR;
+PROCEDURE FreeCacheMem; {$IFNDEF PPC_FPC}FAR;{$ENDIF}
 BEGIN
    While (CachePtr <> HeapEnd) Do
      DisposeCache(CachePtr);                          { Release blocks }
@@ -371,7 +371,7 @@ END;
 {---------------------------------------------------------------------------}
 {  SetBufSize -> Platforms DOS REAL MODE - Updated 01Oct99 LdB              }
 {---------------------------------------------------------------------------}
-PROCEDURE SetBufSize (P: PBuffer; NewSize: Word); FAR;
+PROCEDURE SetBufSize (P: PBuffer; NewSize: Word); {$IFNDEF PPC_FPC}FAR;{$ENDIF}
 VAR CurSize: Word;
 BEGIN
    CurSize := GetBufSize(P);                          { Current size }
@@ -394,7 +394,7 @@ END;
 {---------------------------------------------------------------------------}
 {  FreeCache -> Platforms DPMI/WIN/NT/OS2 - Updated 01Oct99 LdB             }
 {---------------------------------------------------------------------------}
-FUNCTION FreeCache: Boolean; FAR;
+FUNCTION FreeCache: Boolean; {$IFNDEF PPC_FPC}FAR;{$ENDIF}
 BEGIN
    FreeCache := False;                                { Preset fail }
    If (CacheList <> Nil) Then Begin
@@ -406,7 +406,7 @@ END;
 {---------------------------------------------------------------------------}
 {  FreeCache -> Platforms DPMI/WIN/NT/OS2 - Updated 01Oct99 LdB             }
 {---------------------------------------------------------------------------}
-FUNCTION FreeSafetyPool: Boolean; FAR;
+FUNCTION FreeSafetyPool: Boolean; {$IFNDEF PPC_FPC}FAR;{$ENDIF}
 BEGIN
    FreeSafetyPool := False;                           { Preset fail }
    If (SafetyPool <> Nil) Then Begin                  { Pool exists }
@@ -424,7 +424,7 @@ END;
 {---------------------------------------------------------------------------}
 {  HeapNotify -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 01Oct99 LdB        }
 {---------------------------------------------------------------------------}
-FUNCTION HeapNotify (Size: Word): Integer; FAR;
+FUNCTION HeapNotify (Size: Word): Integer; {$IFNDEF PPC_FPC}FAR;{$ENDIF}
 {$IFDEF PROC_REAL}                                    { REAL MODE DOS CODE }
 ASSEMBLER;
 ASM
@@ -828,7 +828,10 @@ END.
 
 {
  $Log$
- Revision 1.5  2002-09-07 15:06:37  peter
+ 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
    * old logs removed and tabs fixed
 
 }

fvision/views.pas

@@ -2538,7 +2538,7 @@ END;
 {---------------------------------------------------------------------------}
 FUNCTION TGroup.Valid (Command: Word): Boolean;
 
-   FUNCTION IsInvalid (P: PView): Boolean; FAR;
+   FUNCTION IsInvalid (P: PView): Boolean; {$IFNDEF PPC_FPC}FAR;{$ENDIF}
    BEGIN
      IsInvalid := NOT P^.Valid(Command);              { Check if valid }
    END;
@@ -2670,7 +2670,7 @@ END;
 {---------------------------------------------------------------------------}
 PROCEDURE TGroup.Awaken;
 
-   PROCEDURE DoAwaken (P: PView); FAR;
+   PROCEDURE DoAwaken (P: PView); {$IFNDEF PPC_FPC}FAR;{$ENDIF}
    BEGIN
      If (P <> Nil) Then P^.Awaken;                    { Awaken view }
    END;
@@ -2881,12 +2881,12 @@ END;
 {---------------------------------------------------------------------------}
 PROCEDURE TGroup.SetState (AState: Word; Enable: Boolean);
 
-    PROCEDURE DoSetState (P: PView); FAR;
+    PROCEDURE DoSetState (P: PView); {$IFNDEF PPC_FPC}FAR;{$ENDIF}
     BEGIN
       If (P <> Nil) Then P^.SetState(AState, Enable); { Set subview state }
     END;
 
-    PROCEDURE DoExpose (P: PView); FAR;
+    PROCEDURE DoExpose (P: PView); {$IFNDEF PPC_FPC}FAR;{$ENDIF}
     BEGIN
       If (P <> Nil) Then Begin
         If (P^.State AND sfVisible <> 0) Then         { Check view visible }
@@ -2950,7 +2950,7 @@ END;
 PROCEDURE TGroup.Store (Var S: TStream);
 VAR Count: Sw_Integer; OwnerSave: PGroup;
 
-   PROCEDURE DoPut (P: PView); FAR;
+   PROCEDURE DoPut (P: PView); {$IFNDEF PPC_FPC}FAR;{$ENDIF}
    BEGIN
      S.Put(P);                                        { Put view on stream }
    END;
@@ -2979,13 +2979,13 @@ END;
 {---------------------------------------------------------------------------}
 PROCEDURE TGroup.HandleEvent (Var Event: TEvent);
 
-   FUNCTION ContainsMouse (P: PView): Boolean; FAR;
+   FUNCTION ContainsMouse (P: PView): Boolean; {$IFNDEF PPC_FPC}FAR;{$ENDIF}
    BEGIN
      ContainsMouse := (P^.State AND sfVisible <> 0)   { Is view visible }
        AND P^.MouseInView(Event.Where);               { Is point in view }
    END;
 
-   PROCEDURE DoHandleEvent (P: PView); FAR;
+   PROCEDURE DoHandleEvent (P: PView); {$IFNDEF PPC_FPC}FAR;{$ENDIF}
    BEGIN
      If (P = Nil) OR ((P^.State AND sfDisabled <> 0) AND
        (Event.What AND(PositionalEvents OR FocusedEvents) <>0 ))
@@ -3024,7 +3024,7 @@ END;
 PROCEDURE TGroup.ChangeBounds (Var Bounds: TRect);
 VAR D: TPoint;
 
-   PROCEDURE DoCalcChange (P: PView); FAR;
+   PROCEDURE DoCalcChange (P: PView); {$IFNDEF PPC_FPC}FAR;{$ENDIF}
    VAR R: TRect;
    BEGIN
      P^.CalcBounds(R, D);                             { Calc view bounds }
@@ -3119,7 +3119,7 @@ END;
 {---------------------------------------------------------------------------}
 FUNCTION TGroup.FirstMatch (AState: Word; AOptions: Word): PView;
 
-   FUNCTION Matches (P: PView): Boolean; FAR;
+   FUNCTION Matches (P: PView): Boolean; {$IFNDEF PPC_FPC}FAR;{$ENDIF}
    BEGIN
      Matches := (P^.State AND AState = AState) AND
        (P^.Options AND AOptions = AOptions);          { Return match state }
@@ -5782,7 +5782,10 @@ END.
 
 {
  $Log$
- Revision 1.35  2002-09-07 15:06:38  peter
+ Revision 1.36  2002-09-09 08:04:06  pierre
+  * remove all warnings about far
+
+ Revision 1.35  2002/09/07 15:06:38  peter
    * old logs removed and tabs fixed
 
  Revision 1.34  2002/08/22 13:40:49  pierre