anchor.diff:  
   function TThreadHeap.RegetMediumToMedium(P: Pointer;
     NewB16Count: NativeUInt): Pointer;
  +{$ifdef PUREPASCAL}
   var
     Header: PHeaderMedium;
     Flags, EmptyFlags: NativeUInt;
  
positive.code: end;
  
  function TThreadHeap.GetMedium(B16Count: NativeUInt; Align: NativeUInt{TMemoryAlign}): Pointer;
  var
    Pool: PK64PoolMedium;
    Header: PHeaderMedium;
  
negative.code: end;
  
  function TThreadHeap.ReduceMedium(P: Pointer; NewB16Count: NativeUInt): Pointer;
  {$ifdef PUREPASCAL}
  var
    Header: PHeaderMedium;
    Flags, EmptyFlags: NativeUInt;
  