anchor.diff:  
   //----------------------------------------------------------------------------------------------------------------------
   
  -function _unlink(FileName: PChar): Integer;
  +function unlink(FileName: PChar): Integer;
   
   begin
     if DeleteFile(FileName) then
  
positive.code: 
  //----------------------------------------------------------------------------------------------------------------------
  
  function _hypot(x, y: Double): Double;
  
  begin
    Result := Math.Hypot(X, Y); // Different types but same name. Keep this stub!
  
negative.code: 
  //----------------------------------------------------------------------------------------------------------------------
  
  function fgetc(Stream: TStream): Integer;
  
  var
    B: Byte;
  