anchor.diff:  procedure RaiseInvalidPointer(const Address: Pointer);
   begin
   {$ifdef CPFLIB}
  +  System.ExitCode := 204{reInvalidPtr};
     CPFException('Invalid pointer operation', Address);
   {$else}
     {$ifdef KOL}
  
positive.code: {$if Defined(CPUX86) or Defined(CPUX64)}
     {$define CPUINTEL}
  {$ifend}
  {$if SizeOf(Pointer) = 8}
    {$define LARGEINT}
  {$else}
    {$define SMALLINT}
  
negative.code: procedure RaiseOutOfMemory(const Address: Pointer);
  begin
  {$ifdef CPFLIB}
    System.ExitCode := 203{reOutOfMemory};
    CPFException('Out of memory', Address);
  {$else}
    {$ifdef KOL}
  