[squeak-dev] The Trunk: Kernel-dtl.347.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Dec 27 17:13:56 UTC 2009


Andreas Raab uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-dtl.347.mcz

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

Name: Kernel-dtl.347
Author: dtl
Time: 27 December 2009, 11:33:42 am
UUID: f6caca0d-1ea4-422c-a891-5bf948673406
Ancestors: Kernel-nice.346

CompiledMethod>>checkOKToAdd:at: defers to SourceFiles instance because no end of changes check is needed for ExpandedSourceFileArray.

=============== Diff against Kernel-nice.346 ===============

Item was changed:
  ----- Method: CompiledMethod>>checkOKToAdd:at: (in category 'source code management') -----
  checkOKToAdd: size at: filePosition
+ 	"Issue several warnings if the end of the changes file is approaching
+ 	a fixed size limit, and finally halt with an error if the limit is reached."
- 	"Issue several warnings as the end of the changes file approaches its limit,
- 	and finally halt with an error when the end is reached."
  
+ 	^ SourceFiles checkOKToAdd: size at: filePosition
+ !
- 	| fileSizeLimit margin |
- 	fileSizeLimit := 16r2000000.
- 	3 to: 1 by: -1 do:
- 		[:i | margin := i*100000.
- 		(filePosition + size + margin) > fileSizeLimit
- 			ifTrue: [(filePosition + margin) > fileSizeLimit ifFalse:
- 						[self inform: 'WARNING: your changes file is within
- ' , margin printString , ' characters of its size limit.
- You should take action soon to reduce its size.
- You may proceed.']]
- 			ifFalse: [^ self]].
- 	(filePosition + size > fileSizeLimit) ifFalse: [^ self].
- 	self error: 'You have reached the size limit of the changes file.
- You must take action now to reduce it.
- Close this error.  Do not attempt to proceed.'!




More information about the Squeak-dev mailing list