Merge pull request #1633 from GillesDuvert/close_issue_1632

close #1632
gnudatalanguage · Sep 8, 2023 · 26411df · 26411df
2 parents b419d27 + 9dfac0a
commit 26411df
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 7 deletions.
diff --git a/src/GDLLexer.hpp b/src/GDLLexer.hpp
@@ -132,13 +132,14 @@ class CUSTOM_API GDLLexer : public antlr::CharScanner, public GDLTokenTypes
       // make copy as we delete 'this'
       antlr::TokenStreamSelector* sel=selector; 
 
-      // here 'this' is deleted (pops selector)
-      delete sel->getCurrentStream();
 
       // make sure errors are reported in right file
       parserPtr->setFilename(
         static_cast<GDLLexer*>(selector->getCurrentStream())->getFilename());
-
+
+      // here 'this' is deleted (pops selector)
+      delete sel->getCurrentStream();
+
       // don't allow EOF until main lexer.  Force the
       // selector to retry for another token.
       sel->retry();

diff --git a/src/gdlc.g b/src/gdlc.g
@@ -2152,13 +2152,14 @@ tokens {
       // make copy as we delete 'this'
       antlr::TokenStreamSelector* sel=selector; 
 
-      // here 'this' is deleted (pops selector)
-      delete sel->getCurrentStream();
-
       // make sure errors are reported in right file
       parserPtr->setFilename(
         static_cast<GDLLexer*>(selector->getCurrentStream())->getFilename());
-
+
+ //GD: see issue #1632 -- deletion must be here and not before previous line!           
+      // here 'this' is deleted (pops selector)
+      delete sel->getCurrentStream();
+
       // don't allow EOF until main lexer.  Force the
       // selector to retry for another token.
       sel->retry();