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

added more variants for dbgs

Browse Source 
git-svn-id: trunk@9359 -
This commit is contained in:
mattias 2006-05-26 15:28:34 +00:00
parent a4b841a712
commit 8a3f0c0eb4
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/lclproc.pas
View File

@ -1153,9 +1153,11 @@ begin
for i:=Low(Args) to High(Args) do begin for i:=Low(Args) to High(Args) do begin
case Args[i].VType of case Args[i].VType of
vtInteger: DbgOut(dbgs(Args[i].vinteger)); vtInteger: DbgOut(dbgs(Args[i].vinteger));
vtInt64: DbgOut(dbgs(Args[i].VInt64));
vtQWord: DbgOut(dbgs(Args[i].VQWord));
vtBoolean: DbgOut(dbgs(Args[i].vboolean)); vtBoolean: DbgOut(dbgs(Args[i].vboolean));
vtExtended: DbgOut(dbgs(Args[i].VExtended^)); vtExtended: DbgOut(dbgs(Args[i].VExtended^));
vtCurrency: DbgOut(dbgs(Args[i].vcurrency)); vtCurrency: DbgOut(dbgs(Args[i].vCurrency));
vtString: DbgOut(Args[i].VString^); vtString: DbgOut(Args[i].VString^);
vtAnsiString: DbgOut(AnsiString(Args[i].VAnsiString)); vtAnsiString: DbgOut(AnsiString(Args[i].VAnsiString));
vtChar: DbgOut(Args[i].VChar); vtChar: DbgOut(Args[i].VChar);
@ -1163,6 +1165,11 @@ begin
vtPWideChar: DbgOut(Args[i].VPWideChar); vtPWideChar: DbgOut(Args[i].VPWideChar);
vtWideChar: DbgOut(Args[i].VWideChar); vtWideChar: DbgOut(Args[i].VWideChar);
vtWidestring: DbgOut(WideString(Args[i].VWideString)); vtWidestring: DbgOut(WideString(Args[i].VWideString));
vtObject: DbgOut(DbgSName(Args[i].VObject));
vtClass: DbgOut(DbgSName(Args[i].VClass));
vtPointer: DbgOut(Dbgs(Args[i].VPointer));
else
DbgOut('?unknown variant?');
end; end;
end; end;
DebugLn; DebugLn;