diff options
| author | Gaius Mulley <gaiusmod2@gmail.com> | 2024-01-31 15:51:49 +0000 |
|---|---|---|
| committer | Gaius Mulley <gaiusmod2@gmail.com> | 2024-01-31 15:51:49 +0000 |
| commit | dcf579cb61bc2eb474fd824c19003d2dc17ec24f (patch) | |
| tree | a967ef03f6d31d24166d06767465b7fce57ac828 /gcc | |
| parent | 4fd094835a8997cdcc3d18d7d297debe1527202d (diff) | |
| download | gcc-dcf579cb61bc2eb474fd824c19003d2dc17ec24f.zip gcc-dcf579cb61bc2eb474fd824c19003d2dc17ec24f.tar.gz gcc-dcf579cb61bc2eb474fd824c19003d2dc17ec24f.tar.bz2 | |
modula2: tidyup patch
This patch improves a comment and also adds the location tokenno to
possibly exported idents as they are encountered.
gcc/m2/ChangeLog:
* gm2-compiler/M2Comp.mod (Pass0CheckMod): Tidy up comment.
* gm2-compiler/P1Build.bnf (PossiblyExportIdent): Replace
PushTF with PushTFtok.
Signed-off-by: Gaius Mulley <gaiusmod2@gmail.com>
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/m2/gm2-compiler/M2Comp.mod | 4 | ||||
| -rw-r--r-- | gcc/m2/gm2-compiler/P1Build.bnf | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/gcc/m2/gm2-compiler/M2Comp.mod b/gcc/m2/gm2-compiler/M2Comp.mod index 48ea7b7..a97f0ed 100644 --- a/gcc/m2/gm2-compiler/M2Comp.mod +++ b/gcc/m2/gm2-compiler/M2Comp.mod @@ -872,8 +872,8 @@ BEGIN IF NOT IsDefinitionForC (sym) THEN (* The implementation module is only useful if -fgen-module-list= is - used (to gather all dependencies) although we do not insist upon finding the - implementation module. *) + used (to gather all dependencies). Note that we do not insist + upon finding the implementation module. *) LibName := NIL ; IF FindSourceModFile (SymName, FileName, LibName) THEN diff --git a/gcc/m2/gm2-compiler/P1Build.bnf b/gcc/m2/gm2-compiler/P1Build.bnf index 5d7254f..a3534fc 100644 --- a/gcc/m2/gm2-compiler/P1Build.bnf +++ b/gcc/m2/gm2-compiler/P1Build.bnf @@ -374,7 +374,7 @@ VAR nothing: CARDINAL ; BEGIN AddNameToScope(makekey(currentstring)) ; - PushTF(makekey(currentstring), identtok) ; + PushTFtok(makekey(currentstring), identtok, GetTokenNo()) ; CheckExplicitExported ; IF NOT IsAutoPushOn() THEN |