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

* allow a single replacement string to be substituted more than once per

Browse Source 
message (already used in assembler reader messages for "fsub x" etc.
    transformations) (merged)
This commit is contained in:
Jonas Maebe 2001-04-14 16:05:41 +00:00
parent af5d6e60e7
commit e0e6efbd3f
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/messages.pas
View File

@ -400,24 +400,27 @@ begin
s:=Get(nr); s:=Get(nr);
{ $1 -> s1 } { $1 -> s1 }
i:=pos('$1',s); i:=pos('$1',s);
if i>0 then while (i>0) do
begin begin
Delete(s,i,2); Delete(s,i,2);
Insert(s1,s,i); Insert(s1,s,i);
i := pos('$1',s);
end; end;
{ $2 -> s2 } { $2 -> s2 }
i:=pos('$2',s); i:=pos('$2',s);
if i>0 then while (i>0) do
begin begin
Delete(s,i,2); Delete(s,i,2);
Insert(s2,s,i); Insert(s2,s,i);
i := pos('$2',s);
end; end;
{ $3 -> s3 } { $3 -> s3 }
i:=pos('$3',s); i:=pos('$3',s);
if i>0 then while (i>0) do
begin begin
Delete(s,i,2); Delete(s,i,2);
Insert(s3,s,i); Insert(s3,s,i);
i := pos('$3',s);
end; end;
Get3:=s; Get3:=s;
end; end;
@ -438,7 +441,12 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.6 2001-03-10 13:19:10 peter Revision 1.7 2001-04-14 16:05:41 jonas
* allow a single replacement string to be substituted more than once per
message (already used in assembler reader messages for "fsub x" etc.
transformations) (merged)
Revision 1.6 2001/03/10 13:19:10 peter
* don't check messagefile for numbers, this allows the usage of * don't check messagefile for numbers, this allows the usage of
1.1 msgfiles with a 1.0.x compiler 1.1 msgfiles with a 1.0.x compiler