[squeak-dev] The Trunk: Tools-eem.631.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Aug 22 17:01:17 UTC 2015


Eliot Miranda uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-eem.631.mcz

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

Name: Tools-eem.631
Author: eem
Time: 22 August 2015, 10:00:11.953 am
UUID: 78dc8707-12b2-448f-94e2-4bfbfe5b0f46
Ancestors: Tools-ul.630

Remove the become[Un]Compact messages from MethodFinder as these are going away.

=============== Diff against Tools-ul.630 ===============

Item was changed:
  ----- Method: MethodFinder>>initialize (in category 'initialize') -----
(excessive size, no diff calculated)

Item was changed:
  ----- Method: MethodFinder>>noteDangerous (in category 'initialize') -----
  noteDangerous
  	"Remember the methods with really bad side effects."
  
  	Dangerous := Set new.
  "Object accessing, testing, copying, dependent access, macpal, flagging"
  	#(addInstanceVarNamed:withValue: haltIfNil copyAddedStateFrom: veryDeepCopy veryDeepCopyWith: veryDeepFixupWith: veryDeepInner: addDependent: evaluate:wheneverChangeIn: codeStrippedOut: playSoundNamed: isThisEverCalled isThisEverCalled: logEntry logExecution logExit)
  		do: [:sel | Dangerous add: sel].
  
  "Object error handling"
  	#(cannotInterpret: caseError confirm: confirm:orCancel: doesNotUnderstand: error: halt halt: notify: notify:at: primitiveFailed shouldNotImplement subclassResponsibility)
  		do: [:sel | Dangerous add: sel].
  
  "Object user interface"
  	#(basicInspect beep inform: inspect inspectWithLabel: notYetImplemented inspectElement )
  		do: [:sel | Dangerous add: sel].
  
  "Object system primitives"
  	#(become: becomeForward: instVarAt:put: instVarNamed:put: nextInstance nextObject rootStubInImageSegment: someObject tryPrimitive:withArgs:)
  		do: [:sel | Dangerous add: sel].
  
  "Object private"
  	#(errorImproperStore errorNonIntegerIndex errorNotIndexable errorSubscriptBounds: mustBeBoolean primitiveError: species storeAt:inTempFrame:)
  		do: [:sel | Dangerous add: sel].
  
  "Object, translation support"
  	#(cCode: cCode:inSmalltalk: cCoerce:to: export: inline: returnTypeC: sharedCodeNamed:inCase: var:declareC:)
  		do: [:sel | Dangerous add: sel].
  
  "Object, objects from disk, finalization.  And UndefinedObject"
  	#(comeFullyUpOnReload: objectForDataStream: readDataFrom:size: rehash saveOnFile storeDataOn: actAsExecutor executor finalize retryWithGC:until:   suspend)
  		do: [:sel | Dangerous add: sel].
  
  "No Restrictions:   Boolean, False, True, "
  
  "Morph"
  	#()
  		do: [:sel | Dangerous add: sel].
  
  "Behavior"
  	#(obsolete confirmRemovalOf: copyOfMethodDictionary literalScannedAs:notifying: storeLiteral:on: addSubclass: removeSubclass: superclass: 
  "creating method dictionary" addSelector:withMethod: compile: compile:notifying: compileAll compileAllFrom: compress decompile: defaultSelectorForMethod: methodDictionary: recompile:from: recompileChanges removeSelector: compressedSourceCodeAt: selectorAtMethod:setClass: allInstances allSubInstances inspectAllInstances inspectSubInstances thoroughWhichSelectorsReferTo:special:byte: "enumerating" allInstancesDo: allSubInstancesDo: allSubclassesDo: allSuperclassesDo: selectSubclasses: selectSuperclasses: subclassesDo: withAllSubclassesDo:
     "too slow->" crossReference removeUninstantiatedSubclassesSilently "too slow->" unreferencedInstanceVariables
+ "private" flushCache format:variable:words:pointers: format:variable:words:pointers:weak: printSubclassesOn:level: basicRemoveSelector: addSelector:withMethod:notifying: addSelectorSilently:withMethod:)
- "private" becomeCompact becomeUncompact flushCache format:variable:words:pointers: format:variable:words:pointers:weak: printSubclassesOn:level: basicRemoveSelector: addSelector:withMethod:notifying: addSelectorSilently:withMethod:)
  		do: [:sel | Dangerous add: sel].
  
  "CompiledMethod"
  	#(defaultSelector)
  		do: [:sel | Dangerous add: sel].
  
  "Others "
  	#("no tangible result" do: associationsDo:  
  "private" adaptToCollection:andSend: adaptToNumber:andSend: adaptToPoint:andSend: adaptToString:andSend: instVarAt:put: asDigitsToPower:do: combinations:atATimeDo: doWithIndex: pairsDo: permutationsDo: reverseDo: reverseWith:do: with:do: withIndexDo: asDigitsAt:in:do: combinationsAt:in:after:do: errorOutOfBounds permutationsStartingAt:do: fromUser)
  		do: [:sel | Dangerous add: sel].
  
  
  	#(    fileOutPrototype addSpareFields makeFileOutFile )
  		do: [:sel | Dangerous add: sel].
  	#(recompile:from: recompileAllFrom: recompileChanges asPrototypeWithFields: asPrototype addInstanceVarNamed:withValue: addInstanceVariable addClassVarName: removeClassVarName: findOrAddClassVarName: instanceVariableNames: )
  		do: [:sel | Dangerous add: sel].
  
   !



More information about the Squeak-dev mailing list