paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 18:49:19 +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+} {$mode objfpc}{$H+}
{$DEFINE VerbosePPUParser} {off $DEFINE VerbosePPUParser}
interface interface
@ -1622,13 +1622,13 @@ var
defoptions: tdefoptions; defoptions: tdefoptions;
defstates: tdefstates; defstates: tdefstates;
genconstr: tgenericconstraintflags; genconstr: tgenericconstraintflags;
len: Int64;
i: Integer;
{$IFDEF VerbosePPUParser} {$IFDEF VerbosePPUParser}
defopt: tdefoption; defopt: tdefoption;
defstate: tdefstate; defstate: tdefstate;
TokenBuf: Pointer; TokenBuf: Pointer;
TokenBufSize: LongInt; TokenBufSize: LongInt;
i: Integer;
len: Int64;
{$ENDIF} {$ENDIF}
begin begin
ReadEntryLongint{$IFDEF VerbosePPUParser}('DefinitionID='){$ENDIF}; ReadEntryLongint{$IFDEF VerbosePPUParser}('DefinitionID='){$ENDIF};
@ -2420,7 +2420,7 @@ begin
if Version>130 then if Version>130 then
{$IFDEF VerbosePPUParser}SymMangledName:={$ENDIF}ReadEntryShortstring {$IFDEF VerbosePPUParser}SymMangledName:={$ENDIF}ReadEntryShortstring
else else
{$IFDEF VerbosePPUParser}SymMangledName:={$ENDIF}SymbolName; {$IFDEF VerbosePPUParser}SymMangledName:=SymbolName{$ENDIF};
{$IFDEF VerbosePPUParser}SymbolOrdNr:={$ENDIF}ReadEntryLongint; {$IFDEF VerbosePPUParser}SymbolOrdNr:={$ENDIF}ReadEntryLongint;
{$IFDEF VerbosePPUParser}SymbolIsVar:=ReadEntryByte<>0{$ELSE}ReadEntryByte{$ENDIF}; {$IFDEF VerbosePPUParser}SymbolIsVar:=ReadEntryByte<>0{$ELSE}ReadEntryByte{$ENDIF};
{$IFDEF VerbosePPUParser} {$IFDEF VerbosePPUParser}