summaryrefslogtreecommitdiff
path: root/Make.lpr
diff options
context:
space:
mode:
Diffstat (limited to 'Make.lpr')
-rw-r--r--Make.lpr7
1 files changed, 6 insertions, 1 deletions
diff --git a/Make.lpr b/Make.lpr
index 79fe703..6db584d 100644
--- a/Make.lpr
+++ b/Make.lpr
@@ -213,7 +213,10 @@ begin
'}': dec(Ebene);
end;
until (result>=length(worin)) or ((copy(worin,result,length(was))=was) and (Ebene=0));
- if ((result=1) or (worin[result-1]<>'\')) and (copy(worin,result,length(was))=was) then exit;
+ if
+ ((result=1) or ((worin[result-1]<>'\') and (worin[result-1]<>was))) and
+ ((result=length(worin)) or (worin[result+1]<>was)) and
+ (copy(worin,result,length(was))=was) then exit;
end;
result:=0;
end;
@@ -283,6 +286,8 @@ begin
delete(s,1,1);
while unescapedpos(';',s)>0 do
s:=copy(s,1,unescapedpos(';',s)-1)+' &&'+copy(s,unescapedpos(';',s)+1,length(s)-unescapedpos(';',s));
+ while pos(';;',s)>0 do
+ delete(s,pos(';;',s),1);
NA.Befehle.Add(s);
end;
if fin then begin