paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 12:18:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

Opkman: Less hints and warnings.

Browse Source 
git-svn-id: trunk@57843 -
This commit is contained in:
balazs 2018-05-08 09:08:47 +00:00
parent dedae7d2f1
commit c9e2e41f99
3 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/onlinepackagemanager/fpcmod/opkman_zip.pas
View File

@ -14,7 +14,8 @@
{$mode objfpc}
{$h+}
unit opkman_zip;
{$warnings off}
{$hints off}
Interface
Uses
@ -71,7 +72,6 @@ Type
Local_File_Header_Type = Packed Record //1 per zipped file
Signature : LongInt; //4 bytes
Extract_Version_Reqd : Word; //if zip64: >= 45
{$warning TODO implement EFS/language enooding using UTF-8}
Bit_Flag : Word; //"General purpose bit flag in PKZip appnote
Compress_Method : Word;
Last_Mod_Time : Word;

3
components/onlinepackagemanager/onlinepackagemanager.lpk
View File

@ -14,6 +14,9 @@
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Other>
<CompilerMessages>
<IgnoredMessages idx5024="True"/>
</CompilerMessages>
<CustomOptions Value="$(IDEBuildOptions)"/>
</Other>
</CompilerOptions>

4
components/onlinepackagemanager/opkman_serializablepackages.pas
View File

@ -721,7 +721,7 @@ begin
if Trim(JSON) = '' then
Exit(False);
Result := True;
Parser := TJSONParser.Create(JSON);
Parser := TJSONParser.Create(JSON){%H-};
try
Data := Parser.Parse;
try
@ -929,7 +929,7 @@ begin
if Trim(JSON) = '' then
Exit(False);
Result := True;
Parser := TJSONParser.Create(JSON);
Parser := TJSONParser.Create(JSON){%H-};
try
Data := Parser.Parse;
try