anchor.diff:        begin
           ShallowCopy(Left, Remainder);
           ShallowCopy(Zero, Quotient);
  -        Exit; // $$RV
  +        Exit;
         end;
       0:
         begin
  
positive.code:     Length: NativeInt;
    end;
  
  procedure MakeLength(var FData: Pointer; RequiredSize: Integer); inline;
  var
    NewData: PByte;
    NewSize: Integer;
  
negative.code: 
          SUB     EDX,ECX
          PUSH    EDX
  
          XOR     EAX,EAX
  
  