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 RaiseOutOfMemory(const Address: Pointer);
  begin
  {$ifdef CPFLIB}
    CPFException('Out of memory', Address);
  {$else}
    {$ifdef KOL}
  
negative.code: type
    // standard types
    {$ifdef FPC}
      Integer = Longint;
      PInteger = ^Integer;
      PUInt64 = ^UInt64;
    {$else}
      {$if CompilerVersion < 15}
  