paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-06 09:58:29 +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); procedure findfirst(const path : pathstr;attr : word;var f : searchRec);
var var
path0 : array[0..80] of char; path0 : array[0..256] of char;
begin begin
doserror:=0; doserror:=0;
strpcopy(path0,path); strpcopy(path0,path);
@ -1139,7 +1139,10 @@ End;
end. end.
{ {
$Log$ $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 !) * go32v1 RTL did not compile (LFNsupport outside go32v2 defines !)
I renamed tb_selector to tb_segment because I renamed tb_selector to tb_segment because
it is a real mode segment as opposed to it is a real mode segment as opposed to