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

IDE: reduced debugging output

Browse Source 
git-svn-id: trunk@15333 -
This commit is contained in:
mattias 2008-06-06 06:07:45 +00:00
parent cbf6884d25
commit 7ef47a5ad7
2 changed files with 15 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/lresources.pp
View File

@ -2407,12 +2407,14 @@ var
Output.Write(s[1], Length(s)); Output.Write(s[1], Length(s));
end; end;
{$IFDEF DisableWindowsUnicodeSupport}
procedure WriteWideString(const s: WideString); procedure WriteWideString(const s: WideString);
begin begin
WriteLRSInteger(Output,Length(s)); WriteLRSInteger(Output,Length(s));
if Length(s) > 0 then if Length(s) > 0 then
Output.Write(s[1], Length(s)*2); Output.Write(s[1], Length(s)*2);
end; end;
{$ENDIF}
procedure WriteInteger(value: LongInt); procedure WriteInteger(value: LongInt);
begin begin
@ -2446,6 +2448,7 @@ var
WriteInteger(StrToInt(s)); WriteInteger(StrToInt(s));
end; end;
{$IFDEF DisableWindowsUnicodeSupport}
function WideStringNeeded(const s: widestring): Boolean; function WideStringNeeded(const s: widestring): Boolean;
var var
i: Integer; i: Integer;
@ -2472,6 +2475,7 @@ var
for i:=1 to length(Result) do for i:=1 to length(Result) do
Result[i]:=chr(ord(s[i])); Result[i]:=chr(ord(s[i]));
end; end;
{$ENDIF}
function ParserNextToken: Char; function ParserNextToken: Char;
begin begin
@ -2522,7 +2526,7 @@ var
toString: toString:
begin begin
toStringBuf := parser.TokenString; toStringBuf := parser.TokenString;
DebugLn(['ProcessValue toStringBuf="',toStringBuf,'" ',dbgstr(toStringBuf)]); //DebugLn(['ProcessValue toStringBuf="',toStringBuf,'" ',dbgstr(toStringBuf)]);
while ParserNextToken = '+' do while ParserNextToken = '+' do
begin begin
ParserNextToken; // Get next string fragment ParserNextToken; // Get next string fragment
@ -2531,11 +2535,11 @@ var
toStringBuf := toStringBuf + parser.TokenString; toStringBuf := toStringBuf + parser.TokenString;
end; end;
if length(toStringBuf)<256 then begin if length(toStringBuf)<256 then begin
debugln('LRSObjectTextToBinary.ProcessValue WriteShortString'); //debugln('LRSObjectTextToBinary.ProcessValue WriteShortString');
Output.WriteByte(Ord(vaString)); Output.WriteByte(Ord(vaString));
WriteShortString(toStringBuf); WriteShortString(toStringBuf);
end else begin end else begin
debugln('LRSObjectTextToBinary.ProcessValue WriteLongString'); //debugln('LRSObjectTextToBinary.ProcessValue WriteLongString');
Output.WriteByte(Ord(vaLString)); Output.WriteByte(Ord(vaLString));
WriteLongString(toStringBuf); WriteLongString(toStringBuf);
end; end;
@ -2544,7 +2548,7 @@ var
toWString: toWString:
begin begin
toWideStringBuf := parser.TokenWideString; toWideStringBuf := parser.TokenWideString;
DebugLn(['ProcessValue toWideStringBuf="',toWideStringBuf,'" ',dbgstr(toWideStringBuf)]); //DebugLn(['ProcessValue toWideStringBuf="',toWideStringBuf,'" ',dbgstr(toWideStringBuf)]);
while ParserNextToken = '+' do while ParserNextToken = '+' do
begin begin
ParserNextToken; // Get next string fragment ParserNextToken; // Get next string fragment
@ -2553,17 +2557,17 @@ var
toWideStringBuf := toWideStringBuf + parser.TokenWideString; toWideStringBuf := toWideStringBuf + parser.TokenWideString;
end; end;
if WideStringNeeded(toWideStringBuf) then begin if WideStringNeeded(toWideStringBuf) then begin
debugln('LRSObjectTextToBinary.ProcessValue WriteWideString'); //debugln('LRSObjectTextToBinary.ProcessValue WriteWideString');
Output.WriteByte(Ord(vaWString)); Output.WriteByte(Ord(vaWString));
WriteWideString(toWideStringBuf); WriteWideString(toWideStringBuf);
end end
else else
if length(toStringBuf)<256 then begin if length(toStringBuf)<256 then begin
debugln('LRSObjectTextToBinary.ProcessValue WriteShortString'); //debugln('LRSObjectTextToBinary.ProcessValue WriteShortString');
Output.WriteByte(Ord(vaString)); Output.WriteByte(Ord(vaString));
WriteShortString(WideStrToShortStrWithoutConversion(toWideStringBuf)); WriteShortString(WideStrToShortStrWithoutConversion(toWideStringBuf));
end else begin end else begin
debugln('LRSObjectTextToBinary.ProcessValue WriteLongString'); //debugln('LRSObjectTextToBinary.ProcessValue WriteLongString');
Output.WriteByte(Ord(vaLString)); Output.WriteByte(Ord(vaLString));
WriteLongString(WideStrToAnsiStrWithoutConversion(toWideStringBuf)); WriteLongString(WideStrToAnsiStrWithoutConversion(toWideStringBuf));
end; end;