anchor.diff:  begin
     if LSize < RSize then
     begin
  -    // Swap left and right pointers and sizes.
  -    Swapper.Swap(LSize, RSize);
  -    Swapper.Swap(Left, Right);
  +    SwapIntegers(LSize, RSize);
  +    SwapPLimbs(Left Right);
     end;
     for I := 0 to RSize - 1 do
       Result[I] := Left[I] xor Right[I];
  
positive.code: {$IFDEF PUREPASCAL}
  var
    I: Integer;
  begin
    if LSize < RSize then
    begin
      // Swap left and right pointers and sizes.
      Swapper.Swap(LSize, RSize);
      Swapper.Swap(Left, Right);
    end;
    for I := 0 to RSize - 1 do
      Result[I] := Left[I] or Right[I];
  
negative.code:   // Set this to True if you want to generate debug output.
    DoDebug: Boolean = True;
  
  {$HPPEMIT END '#if __BCPLUSPLUS__ <= 0x0730'}
  {$HPPEMIT END '#include "Velthuis.BigIntegers.operators.hpp"'}
  {$HPPEMIT END '#endif'}
  
  implementation
  
  