Christoph Thiede uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-ct.474.mcz
==================== Summary ====================
Name: Compiler-ct.474 Author: ct Time: 30 April 2022, 7:53:05.514971 pm UUID: 7061d536-1604-0243-a378-f51ae046ff87 Ancestors: Compiler-ul.473
Fixes a parser bug during removal of empty temp declarations. Complements Tests-ct.485.
=============== Diff against Compiler-ul.473 ===============
Item was changed: ----- Method: Parser>>removeEmptyTempDeclarationsFrom: (in category 'error correction') ----- removeEmptyTempDeclarationsFrom: methodNode
| sourceCode madeChanges tempsMarkHolder | sourceCode := cue requestor text asString. tempsMarkHolder := self collectTemporaryDeclarationsFrom: methodNode. madeChanges := false. tempsMarkHolder do: [ :currentBlock | | tempsMarkChar0 tempsMarkChar1 tempsMarkChar2 end start | tempsMarkChar0 := (sourceCode at: currentBlock tempsMark). tempsMarkChar1 := (sourceCode at: currentBlock tempsMark - 1). + tempsMarkChar2 := (sourceCode at: currentBlock tempsMark - 2 ifAbsent: []). - tempsMarkChar2 := (sourceCode at: currentBlock tempsMark - 2). (tempsMarkChar0 == $| and: [ tempsMarkChar1 == $| ]) ifTrue: [ end := currentBlock tempsMark. start := end - 1]. (tempsMarkChar0 == $| and: [ tempsMarkChar1 == $ and: [ tempsMarkChar2 == $| ] ]) ifTrue: [ end := currentBlock tempsMark. start := end - 2]. (start notNil and: [ end notNil ]) ifTrue: [ | lineStart lineEnd | lineStart := 1 + (sourceCode lastIndexOf: Character cr startingAt: start - 1). lineEnd := sourceCode indexOf: Character cr startingAt: end + 1 ifAbsent: [ sourceCode size ]. ((sourceCode indexOfAnyOf: CharacterSet nonSeparators startingAt: lineStart) >= start and: [ (sourceCode indexOfAnyOf: CharacterSet nonSeparators startingAt: end + 1) > lineEnd ]) ifTrue: [ start := lineStart. end := lineEnd ]. cue requestor correctFrom: start to: end with: ''. madeChanges := true. currentBlock tempsMark: nil ] ]. madeChanges ifTrue: [ReparseAfterSourceEditing signal]!