paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 14:09:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Remove debug define

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-12-17 17:19:04 +01:00
parent 4e5eaaf52e
commit 394a4ba6a0
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-pdf/src/fppdfparser.pp
View File

@ -18,7 +18,7 @@ unit fppdfparser;
{$mode ObjFPC}{$H+} {$mode ObjFPC}{$H+}
{$J-} {$J-}
{$DEFINE DEBUGSTREAMS} { $DEFINE DEBUGSTREAMS}
{ $DEFINE DUMPSTREAMS} { $DEFINE DUMPSTREAMS}
interface interface
@ -827,7 +827,9 @@ function TPDFParser.ParseCMap(aStream : TStream) : TPDFCMap;
begin begin
Result:=TPDFCMap.Create; Result:=TPDFCMap.Create;
try try
{$IFDEF DEBUGSTREAMS}
SaveStreamToFile('parsecmap',aStream); SaveStreamToFile('parsecmap',aStream);
{$ENDIF}
ParseCMap(aStream,Result); ParseCMap(aStream,Result);
except except
Result.Free; Result.Free;