[squeak-dev] The Trunk: ShoutCore-ul.29.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Apr 25 17:10:14 UTC 2011


Levente Uzonyi uploaded a new version of ShoutCore to project The Trunk:
http://source.squeak.org/trunk/ShoutCore-ul.29.mcz

==================== Summary ====================

Name: ShoutCore-ul.29
Author: ul
Time: 25 April 2011, 7:10:03.884 pm
UUID: 22697e65-03a1-af47-9d53-ece1d4de460c
Ancestors: ShoutCore-ul.28

- fix: prevent debuggers opening when typing external call declarations. 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-ul.28 ===============

Item was changed:
  ----- Method: SHParserST80>>parseExternalCall (in category 'parse') -----
  parseExternalCall
  	self scanNext.
  	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