Ignore:
Timestamp:
Sep 9, 2010, 1:58:30 PM (14 years ago)
Author:
george
Message:
  • Přidáno: Podpora pro možnost ignorovat opakující se výjimky.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • ExceptionLogger/CustomLineInfo.pas

    r39 r40  
    9494        exit;
    9595    end;
    96   e.processaddress:=ptruint(baseaddr)-e.processaddress;
     96  e.processaddress := ptruint(baseaddr) - e.processaddress;
    9797  StabsFunctionRelative := E.FunctionRelative;
    9898  if FindExeSection(e,'.stab',stabofs,stablen) and
     
    109109end;
    110110
    111 
    112111procedure CloseStabs;
    113112begin
    114113  CloseExeFile(e);
    115114end;
    116 
    117115
    118116function GetLineInfo(addr:ptruint;var func,source:shortstring;var line:longint) : boolean;
     
    248246end;
    249247
    250 
    251248function StabBackTraceStr(addr:Pointer):shortstring;
    252249var
     
    291288end;
    292289
    293 
    294290initialization
    295   BackTraceStrFunc:=@StabBackTraceStr;
     291  BackTraceStrFunc := @StabBackTraceStr;
    296292
    297293finalization
Note: See TracChangeset for help on using the changeset viewer.