pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

LazMapViewer: Less hints and warnings

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8128 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-10-27 16:38:32 +00:00
parent ec31b7bdb6
commit 83b7ffa66d
3 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazmapviewer/source/mvgpsobj.pas
View File

@ -12,7 +12,7 @@
unit mvGpsObj; unit mvGpsObj;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
interface interface
uses uses

2
components/lazmapviewer/source/mvgpx.pas
View File

@ -12,7 +12,7 @@
unit mvGPX; unit mvGPX;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
interface interface
uses uses

4
components/lazmapviewer/source/mvmapviewer.pas
View File

@ -18,7 +18,7 @@
unit mvMapViewer; unit mvMapViewer;
{$MODE objfpc}{$H+} {$MODE objfpc}{$H+}
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
interface interface
uses uses
@ -957,6 +957,8 @@ var
gpsList: TGPSObjList; gpsList: TGPSObjList;
i: Integer; i: Integer;
begin begin
Result := nil;
if ATolerance = -1 then if ATolerance = -1 then
ATolerance := DELTA; ATolerance := DELTA;