summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorErich Eckner <git@eckner.net>2018-02-19 13:14:16 +0100
committerErich Eckner <git@eckner.net>2018-02-19 13:14:16 +0100
commit8aa1071e60198a6d2f3a7493387f114dd824ef3a (patch)
tree79138d6f05cdfd8f5a74dcbd96e8182a4308ab6e
parent5048c595141c06c64557df2bc2c0020d45add346 (diff)
downloadMake-8aa1071e60198a6d2f3a7493387f114dd824ef3a.tar.xz
dateibeziehungen.pas: bugfix in zieleHinzufuegen
-rw-r--r--dateibeziehungen.pas6
1 files changed, 3 insertions, 3 deletions
diff --git a/dateibeziehungen.pas b/dateibeziehungen.pas
index cc8532a..55fe2ea 100644
--- a/dateibeziehungen.pas
+++ b/dateibeziehungen.pas
@@ -445,7 +445,7 @@ begin
else begin
i:=findFirst(zielFkt,$3f,sR);
while i=0 do begin
- zieleHinzufuegen(ziele,quellen,extractFileDir(zielFkt)+'/'+sR.name);
+ result:=zieleHinzufuegen(ziele,quellen,extractFileDir(zielFkt)+'/'+sR.name) or result;
i:=findNext(sR);
end;
findClose(sR);
@@ -466,12 +466,12 @@ begin
u:=copy(zielFkt,ende+1,length(zielFkt));
if unEscapedPos('..',t)>0 then begin
for i:=strtoint(copy(t,1,unEscapedPos('..',t)-1)) to strtoint(copy(t,unEscapedPos('..',t)+2,length(t))) do
- zieleHinzufuegen(ziele,quellen,s+intToStr(i)+u);
+ result:=zieleHinzufuegen(ziele,quellen,s+intToStr(i)+u) or result;
end
else begin
t:=t+',';
while unEscapedPos(',',t)>0 do begin
- zieleHinzufuegen(ziele,quellen,s+copy(t,1,unEscapedPos(',',t)-1)+u);
+ result:=zieleHinzufuegen(ziele,quellen,s+copy(t,1,unEscapedPos(',',t)-1)+u) or result;
delete(t,1,unEscapedPos(',',t));
end;
end;