anchor.diff:    if Dir <> '' then
     begin
       FCurrentDir := fpgAppendPathDelim(Dir);
  -    FCurrentDir := FCurrentDir + fpgAllFilesMask;
  +    FCurrentDir := FCurrentDir + AllFilesMask;
       try
         if fpgFindFirst(FCurrentDir, faAnyFile or $00000080, FileInfo) = 0 then
           repeat
  
positive.code:   Result := (AData and (1 shl AIndex) <> 0);
  end;
  
  
  end.
  
  
negative.code: function fpgAddTrailingValue(const ALine, AValue: TfpgString; ADuplicates: Boolean = True): TfpgString;
  function fpgAppendPathDelim(const Path: TfpgString): TfpgString;
  function fpgHasSubDirs(const Dir: TfpgString; AShowHidden: Boolean): Boolean;
  function fpgAllFilesMask: TfpgString; deprecated;
  function fpgConvertLineEndings(const s: TfpgString): TfpgString;
  function fpgGetToolkitConfigDir: TfpgString;
  function fpgAddColon(const AText: TfpgString): TfpgString;
  function fpgIsBitSet(const AData: integer; const AIndex: integer): boolean; deprecated;
  function fpgGetBit(const AData: LongInt; ABit: Longint): boolean; inline;
  procedure fpgSetBit(var AData: Longint; ABit: Longint; const AValue: boolean); inline;
  function fpgIntToBin(AValue: uint64; ADigits: byte=64): string;
  
  
   // RTL wrapper filesystem functions with platform independant encoding
  