Changeset 40 for ExceptionLogger/CustomLineInfo.pas
- Timestamp:
- Sep 9, 2010, 1:58:30 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ExceptionLogger/CustomLineInfo.pas
r39 r40 94 94 exit; 95 95 end; 96 e.processaddress :=ptruint(baseaddr)-e.processaddress;96 e.processaddress := ptruint(baseaddr) - e.processaddress; 97 97 StabsFunctionRelative := E.FunctionRelative; 98 98 if FindExeSection(e,'.stab',stabofs,stablen) and … … 109 109 end; 110 110 111 112 111 procedure CloseStabs; 113 112 begin 114 113 CloseExeFile(e); 115 114 end; 116 117 115 118 116 function GetLineInfo(addr:ptruint;var func,source:shortstring;var line:longint) : boolean; … … 248 246 end; 249 247 250 251 248 function StabBackTraceStr(addr:Pointer):shortstring; 252 249 var … … 291 288 end; 292 289 293 294 290 initialization 295 BackTraceStrFunc :=@StabBackTraceStr;291 BackTraceStrFunc := @StabBackTraceStr; 296 292 297 293 finalization
Note:
See TracChangeset
for help on using the changeset viewer.