anchor.diff:  
   uses
     System.AnsiStrings,
  -  System.Math,
     System.SysUtils,
     Winapi.ImageHlp,
     Winapi.Windows,
  
positive.code:   CaptureStackTraceForException(ExceptionInfo.ExceptionRecord.ExceptionAddress, ExceptionInfo, Skip);
  
    // Restore FP state
    System.Math.SetExceptionMask(LastMask);
  
    Result := 0; //EXCEPTION_CONTINUE_SEARCH;
  end;
  
negative.code: {$ENDIF}
  var
    Skip: Integer;
    LastMask: WORD;
  begin
    // Floating point state may be broken here, so let's mask it out and continue
    // We'll restore state afterwards
    LastMask := Get8087CW;
    Set8087CW_Threadsafe($1332);
  
    if ExceptionInfo.ExceptionRecord.ExceptionCode = cDelphiException
      then Skip := DELPHI_FRAMES_TO_SKIP
  