[squeak-dev] The Trunk: ShoutCore-ul.31.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Apr 27 20:35:05 UTC 2011
Levente Uzonyi uploaded a new version of ShoutCore to project The Trunk:
http://source.squeak.org/trunk/ShoutCore-ul.31.mcz
==================== Summary ====================
Name: ShoutCore-ul.31
Author: ul
Time: 27 April 2011, 10:34:45.611 pm
UUID: 76291eeb-eacc-724e-8977-c719ea826797
Ancestors: ShoutCore-cmm.30
- fix: prevent debuggers opening when typing external call declaration. The cause of the problem was that the parser tried to create a range of #externalCallType when the end of the input was reached.
=============== Diff against ShoutCore-cmm.30 ===============
Item was changed:
----- Method: SHParserST80>>parseExternalCall (in category 'parse') -----
parseExternalCall
self scanNext.
+ self failUnless: currentToken notNil.
self scanPast: #externalCallType.
currentToken = '*'
ifTrue: [self scanPast: #externalCallTypePointerIndicator].
currentTokenFirst isDigit
ifTrue: [self scanPast: #integer]
ifFalse: [
self failUnless: currentTokenFirst == $'.
self parseString].
self failUnless: currentTokenFirst == $(.
self scanPast: #leftParenthesis.
[currentTokenFirst ~~ $)]
whileTrue: [
self failUnless: currentToken notNil.
self scanPast: #externalCallType.
currentToken = '*'
ifTrue: [self scanPast: #externalCallTypePointerIndicator]].
self scanPast: #rightParenthesis.
currentToken = 'module:'
ifTrue: [
self scanPast: #module.
self failUnless: currentTokenFirst == $'.
self parseString].
self failUnless: currentToken = '>'.
self scanPast: #primitiveOrExternalCallEnd!
More information about the Squeak-dev
mailing list
|