|
@@ -444,7 +444,9 @@ begin
|
|
|
RemoveFile(s+dirsep+dir.name);
|
|
RemoveFile(s+dirsep+dir.name);
|
|
|
findnext(dir);
|
|
findnext(dir);
|
|
|
end;
|
|
end;
|
|
|
|
|
+{$ifdef fpc}
|
|
|
findclose(dir);
|
|
findclose(dir);
|
|
|
|
|
+{$endif}
|
|
|
{ .s files }
|
|
{ .s files }
|
|
|
findfirst(s+dirsep+'*'+target_info.asmext,anyfile,dir);
|
|
findfirst(s+dirsep+'*'+target_info.asmext,anyfile,dir);
|
|
|
while (doserror=0) do
|
|
while (doserror=0) do
|
|
@@ -452,7 +454,9 @@ begin
|
|
|
RemoveFile(s+dirsep+dir.name);
|
|
RemoveFile(s+dirsep+dir.name);
|
|
|
findnext(dir);
|
|
findnext(dir);
|
|
|
end;
|
|
end;
|
|
|
|
|
+{$ifdef fpc}
|
|
|
findclose(dir);
|
|
findclose(dir);
|
|
|
|
|
+{$endif}
|
|
|
end
|
|
end
|
|
|
else
|
|
else
|
|
|
begin
|
|
begin
|
|
@@ -599,7 +603,10 @@ end;
|
|
|
end.
|
|
end.
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$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
|
|
* clean .o and .s from smartlinkpath when starting the writer
|
|
|
|
|
|
|
|
Revision 1.63 2000/04/04 15:05:03 pierre
|
|
Revision 1.63 2000/04/04 15:05:03 pierre
|
peter