anchor.diff:          TopicIndex:= 0
         else
         begin
  -        TopicIndex:= puInt16( pData )^ * 8;
  +        TopicIndex:= pUInt16( pData )^ * 8;
           inc( pData, 2  );
         end;
   
         while pData < pDataEnd do
         begin
  -        Flags:= puInt8( pData )^;
  +        Flags:= pUInt8( pData )^;
           Check1ByteOfFlags( Flags,
                              TopicIndex,
                              Results );
  
positive.code: {$mode objfpc}{$H+}
  
  // NewView - a new OS/2 Help Viewer
  // Copyright 2001 Aaron Lawrence (aaronl at consultant dot com)
  // This software is released under the Gnu Public License - see readme.txt
  
  Interface
  
negative.code:     _Entries.Add( pWordRecord );
  
      if _RecordLengthIs16Bit then
        RecordLen:= pUInt16( pWordRecord )^
      else // 8 bit
        RecordLen:= pUInt8( pWordRecord )^;
      inc( pWordRecord, RecordLen );
    end;
  end;
  