The Trunk: Kernel-dtl.347.mcz

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.'!