anchor.diff:  
   //----------------------------------------------------------------------------------------------------------------------
   
  -function _floor(Value: Double): Double;
  +function floor(Value: Double): Double;
   
   begin
     Result := Math.Floor(Value); // Different types but same name. Keep this stub!
  
positive.code: 
  //----------------------------------------------------------------------------------------------------------------------
  
  function _fclose(Stream: TStream): Integer;
  
  begin
    if Assigned(Stream) then
  
negative.code: 
  //----------------------------------------------------------------------------------------------------------------------
  
  procedure qsort(base: Pointer; nelem, width: Cardinal; fcmp: cmp_callback);
  
  begin
    if width > 0 then
  