Changeset 64 for ExceptionLogger/CustomLineInfo.pas

Timestamp:

Oct 8, 2010, 10:27:42 AM (14 years ago)

Author:

george

Message:

• Přidáno: Třídy TBufferedFileStream.

File:

• ExceptionLogger/CustomLineInfo.pas (modified) (1 diff)

ExceptionLogger/CustomLineInfo.pas

@@ -94 +94 @@
         exit;
     end;
+  if ptruint(BaseAddr) < e.processaddress then Exit;
+
   e.processaddress := ptruint(baseaddr) - e.processaddress;
   StabsFunctionRelative := E.FunctionRelative;