paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 06:49:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix 64bit address printing

Browse Source
This commit is contained in:
peter 2004-04-22 19:43:43 +00:00
parent 9b25693b0e
commit 55486446a3
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/lineinfo.pp
View File

@ -752,7 +752,7 @@ begin
BackTraceStrFunc:=@SysBackTraceStr; BackTraceStrFunc:=@SysBackTraceStr;
GetLineInfo(dword(addr),func,source,line); GetLineInfo(dword(addr),func,source,line);
{ create string } { create string }
StabBackTraceStr:=' $'+HexStr(Longint(addr),8); StabBackTraceStr:=' $'+HexStr(ptrint(addr),sizeof(ptrint)*2);
if func<>'' then if func<>'' then
StabBackTraceStr:=StabBackTraceStr+' '+func; StabBackTraceStr:=StabBackTraceStr+' '+func;
if source<>'' then if source<>'' then
@ -781,7 +781,10 @@ finalization
end. end.
{ {
$Log$ $Log$
Revision 1.20 2004-02-06 20:17:12 daniel Revision 1.21 2004-04-22 19:43:43 peter
* fix 64bit address printing
Revision 1.20 2004/02/06 20:17:12 daniel
* Use $ for hex numbers instead of alien 0x * Use $ for hex numbers instead of alien 0x
Revision 1.19 2003/10/17 20:52:12 olle Revision 1.19 2003/10/17 20:52:12 olle

9
rtl/inc/system.inc
View File

@ -671,7 +671,7 @@ Begin
{ Show runtime error and exit } { Show runtime error and exit }
If erroraddr<>nil Then If erroraddr<>nil Then
Begin Begin
Writeln(stdout,'Runtime error ',Errorcode,' at $',hexstr(Longint(Erroraddr),8)); Writeln(stdout,'Runtime error ',Errorcode,' at $',hexstr(PtrInt(Erroraddr),sizeof(PtrInt)*2));
{ to get a nice symify } { to get a nice symify }
Writeln(stdout,BackTraceStrFunc(Erroraddr)); Writeln(stdout,BackTraceStrFunc(Erroraddr));
dump_stack(stdout,ErrorBase); dump_stack(stdout,ErrorBase);
@ -702,7 +702,7 @@ end;
function SysBackTraceStr (Addr: Pointer): ShortString; function SysBackTraceStr (Addr: Pointer): ShortString;
begin begin
SysBackTraceStr:=' $'+HexStr(Longint(addr),8); SysBackTraceStr:=' $'+HexStr(Ptrint(addr),sizeof(PtrInt)*2);
end; end;
@ -881,7 +881,10 @@ end;
{ {
$Log$ $Log$
Revision 1.55 2004-04-22 17:10:38 peter Revision 1.56 2004-04-22 19:43:43 peter
* fix 64bit address printing
Revision 1.55 2004/04/22 17:10:38 peter
* random(int64) added * random(int64) added
Revision 1.54 2004/02/20 11:01:20 daniel Revision 1.54 2004/02/20 11:01:20 daniel