paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-04 22:41:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

* some security check added

Browse Source
This commit is contained in:
pierre 2001-11-07 00:16:17 +00:00
parent 60dc4bf0a9
commit 4b384ec92e
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/woahelp.pas
View File

@ -268,6 +268,7 @@ type pword = ^word;
begin begin
if IndexTableRead then OK:=true else if IndexTableRead then OK:=true else
begin begin
FillChar(R, SizeOf(R), 0);
LastTag:=''; CurPtr:=0; LastTag:=''; CurPtr:=0;
OK:=(IndexTablePos<>0); OK:=(IndexTablePos<>0);
if OK then begin F^.Seek(IndexTablePos); OK:=F^.Status=stOK; end; if OK then begin F^.Seek(IndexTablePos); OK:=F^.Status=stOK; end;