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

codetools: ppuparser: less verbosity

Browse Source 
git-svn-id: trunk@47067 -
This commit is contained in:
mattias 2014-12-02 19:24:56 +00:00
parent 6e27062a13
commit 52e7e3ba59
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/codetools/ppuparser.pas
View File

@ -29,7 +29,7 @@ unit PPUParser;
{$mode objfpc}{$H+}
{$DEFINE VerbosePPUParser}
{off $DEFINE VerbosePPUParser}
interface
@ -1622,13 +1622,13 @@ var
defoptions: tdefoptions;
defstates: tdefstates;
genconstr: tgenericconstraintflags;
len: Int64;
i: Integer;
{$IFDEF VerbosePPUParser}
defopt: tdefoption;
defstate: tdefstate;
TokenBuf: Pointer;
TokenBufSize: LongInt;
i: Integer;
len: Int64;
{$ENDIF}
begin
ReadEntryLongint{$IFDEF VerbosePPUParser}('DefinitionID='){$ENDIF};
@ -2420,7 +2420,7 @@ begin
if Version>130 then
{$IFDEF VerbosePPUParser}SymMangledName:={$ENDIF}ReadEntryShortstring
else
{$IFDEF VerbosePPUParser}SymMangledName:={$ENDIF}SymbolName;
{$IFDEF VerbosePPUParser}SymMangledName:=SymbolName{$ENDIF};
{$IFDEF VerbosePPUParser}SymbolOrdNr:={$ENDIF}ReadEntryLongint;
{$IFDEF VerbosePPUParser}SymbolIsVar:=ReadEntryByte<>0{$ELSE}ReadEntryByte{$ENDIF};
{$IFDEF VerbosePPUParser}