paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-31 09:22:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed path buffer in findfirst

Browse Source
This commit is contained in:
peter 1998-08-28 10:45:58 +00:00
parent 4394fa784d
commit 480a335a24
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/dos/dos.pp
View File

@ -759,7 +759,7 @@ end;
procedure findfirst(const path : pathstr;attr : word;var f : searchRec);
var
path0 : array[0..80] of char;
path0 : array[0..256] of char;
begin
doserror:=0;
strpcopy(path0,path);
@ -1139,7 +1139,10 @@ End;
end.
{
$Log$
Revision 1.10 1998-08-27 10:30:48 pierre
Revision 1.11 1998-08-28 10:45:58 peter
* fixed path buffer in findfirst
Revision 1.10 1998/08/27 10:30:48 pierre
* go32v1 RTL did not compile (LFNsupport outside go32v2 defines !)
I renamed tb_selector to tb_segment because
it is a real mode segment as opposed to