diff options
| author | Gaius Mulley <gaiusmod2@gmail.com> | 2024-08-16 16:09:53 +0100 |
|---|---|---|
| committer | Gaius Mulley <gaiusmod2@gmail.com> | 2024-08-16 16:09:53 +0100 |
| commit | 6738e9afa36a82a59869ced03a759a3a9e5a81b6 (patch) | |
| tree | da8d664abe55eae6f38e4f88bf99681977be96aa /gcc | |
| parent | 479dab62b828f93d6be48241178dbf654bdd33e7 (diff) | |
| download | gcc-6738e9afa36a82a59869ced03a759a3a9e5a81b6.zip gcc-6738e9afa36a82a59869ced03a759a3a9e5a81b6.tar.gz gcc-6738e9afa36a82a59869ced03a759a3a9e5a81b6.tar.bz2 | |
Fix using keywords as identifiers to prevent warnings during build
m2pim/DynamicStrings.mod:1358:27: note: In procedure ‘Slice’: the symbol
name ‘end’ is legal as an identifier, however as such it might cause
confusion and is considered bad programming practice
1358 | start, end, o: INTEGER ;
m2pim/DynamicStrings.mod:1358:27: note: either the identifier has the
same name as a keyword or alternatively a keyword has the wrong case
(‘END’ and ‘end’).
gcc/m2/ChangeLog:
* gm2-libs/DynamicStrings.mod (Slice): Rename end to stop.
Signed-off-by: Wilken Gottwalt <wilken.gottwalt@posteo.net>
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/m2/gm2-libs/DynamicStrings.mod | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/m2/gm2-libs/DynamicStrings.mod b/gcc/m2/gm2-libs/DynamicStrings.mod index b53f0f2..982284d 100644 --- a/gcc/m2/gm2-libs/DynamicStrings.mod +++ b/gcc/m2/gm2-libs/DynamicStrings.mod @@ -1354,8 +1354,8 @@ END Mult ; PROCEDURE Slice (s: String; low, high: INTEGER) : String ; VAR - d, t : String ; - start, end, o: INTEGER ; + d, t : String ; + start, stop, o: INTEGER ; BEGIN IF PoisonOn THEN @@ -1390,7 +1390,7 @@ BEGIN ELSE start := low - o END ; - end := Max (Min (MaxBuf, high - o), 0) ; + stop := Max (Min (MaxBuf, high - o), 0) ; WHILE t^.contents.len = MaxBuf DO IF t^.contents.next = NIL THEN @@ -1408,7 +1408,7 @@ BEGIN t := t^.contents.next END ; ConcatContentsAddress (t^.contents, - ADR (s^.contents.buf[start]), end - start) ; + ADR (s^.contents.buf[start]), stop - start) ; INC (o, s^.contents.len) ; s := s^.contents.next END |