[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