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