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>

diff --git a/gcc/m2/gm2-compiler/M2Comp.mod b/gcc/m2/gm2-compiler/M2Comp.mod
index 48ea7b7ed41e10686cdceeb22362741f928e0933..a97f0edd648d78b693ee7e9fdc6656e034ddc267 100644 (file)
--- 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 5d7254fde906afaeed01d9f77b330208890e8c53..a3534fcb84d2c43bee80bfdaf06200c4708fa97e 100644 (file)
--- 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