paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 19:10:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added ifdef fpc around findclose

Browse Source
This commit is contained in:
peter 2000-06-01 19:11:19 +00:00
parent e882145e88
commit 120d2f0130
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/assemble.pas
View File

@ -444,7 +444,9 @@ begin
RemoveFile(s+dirsep+dir.name);
findnext(dir);
end;
{$ifdef fpc}
findclose(dir);
{$endif}
{ .s files }
findfirst(s+dirsep+'*'+target_info.asmext,anyfile,dir);
while (doserror=0) do
@ -452,7 +454,9 @@ begin
RemoveFile(s+dirsep+dir.name);
findnext(dir);
end;
{$ifdef fpc}
findclose(dir);
{$endif}
end
else
begin
@ -599,7 +603,10 @@ end;
end.
{
$Log$
Revision 1.64 2000-06-01 13:02:45 peter
Revision 1.65 2000-06-01 19:11:19 peter
* added ifdef fpc around findclose
Revision 1.64 2000/06/01 13:02:45 peter
* clean .o and .s from smartlinkpath when starting the writer
Revision 1.63 2000/04/04 15:05:03 pierre