anchor.diff:      if Assigned(CPFCallbacks.Exception) then
         CPFCallbacks.Exception(Message, Address);
   
  -     // todo Assert?
  +     // guaranteed halt (Assert)
  +     System.ErrorAddr := Address;
  +     if (System.ExitCode = 0) then System.ExitCode := 207{reInvalidOp};
  +     System.Halt;
     {$else}
        raise ECrystalPathFinding.Create(Message) at Address;
     {$endif}
  
positive.code: procedure RaiseInvalidPointer(const Address: Pointer);
  begin
  {$ifdef CPFLIB}
    CPFException('Invalid pointer operation', Address);
  {$else}
    {$ifdef KOL}
  
negative.code: {$ifend}
  
  
  {$if Defined(FPC) or (CompilerVersion < 21)}
  // todo PFC
  function ReturnAddress: Pointer;
  asm
    mov eax, [ebp+4]
  