#BUGFIX by exept
authorClaus Gittinger <cg@exept.de>
Mon, 27 Jan 2020 12:51:03 +0100
changeset 4618 9978e42e49f0
parent 4617 d6ef2da6ea69
child 4619 8f916f02f470
#BUGFIX by exept class: Parser changed: #returnStatement
Parser.st
--- a/Parser.st	Mon Jan 06 04:27:03 2020 +0000
+++ b/Parser.st	Mon Jan 27 12:51:03 2020 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -6522,7 +6520,7 @@
     (expr == #Error) ifTrue:[^ #Error].
 
     node := ReturnNode expression:expr.
-    node startPosition:pos endPosition:(expr endPosition).
+    node startPosition:pos endPosition:(expr endPosition ? source position).
     node home:self blockHome:currentBlock.
     true "(lineNumberInfo == #full)" ifTrue:[node lineNumber:lnr].
     self checkPlausibilityOf:node from:pos to:node endPosition.