[Pkg] The Trunk: Tools-eem.760.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri May 5 19:18:04 UTC 2017
Eliot Miranda uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-eem.760.mcz
==================== Summary ====================
Name: Tools-eem.760
Author: eem
Time: 5 May 2017, 12:17:53.772459 pm
UUID: 34e74e4c-0691-429e-8e7a-06d45207eabd
Ancestors: Tools-ul.759
Include non-temp stack contents in the ContextInspector.
Eliminate an unused selector from noteDangerous.
=============== Diff against Tools-ul.759 ===============
Item was changed:
----- Method: ContextInspector>>fieldList (in category 'accessing') -----
fieldList
"Answer the base field list plus an abbreviated list of indices."
+ | tempNames stackIndices |
+ tempNames := object tempNames collect:[:t| '[',t,']'].
+ stackIndices := (object numTemps + 1 to: object stackPtr) collect: [:i| i printString].
+ ^self baseFieldList, tempNames, stackIndices!
-
- ^ self baseFieldList , (object tempNames collect:[:t| '[',t,']'])!
Item was changed:
----- Method: ContextInspector>>selection (in category 'accessing') -----
selection
"The receiver has a list of variables of its inspected object.
One of these is selected. Answer the value of the selected variable."
| basicIndex |
selectionIndex = 0 ifTrue: [^ ''].
selectionIndex = 1 ifTrue: [^ object].
selectionIndex = 2 ifTrue: [^ object longPrintStringLimitedTo: 20000].
+ selectionIndex - 2 <= object class instSize ifTrue:
+ [^object instVarAt: selectionIndex - 2].
- (selectionIndex - 2) <= object class instSize
- ifTrue: [^ object instVarAt: selectionIndex - 2].
basicIndex := selectionIndex - 2 - object class instSize.
+ basicIndex <= object numTemps ifTrue:
+ [^object debuggerMap namedTempAt: basicIndex in: object].
+ basicIndex <= object stackPtr ifTrue:
+ [^object at: basicIndex].
+ ^nil
- ^object debuggerMap namedTempAt: basicIndex in: object
!
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 storeLiteral:on: addSubclass: removeSubclass: superclass:
- #(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: format:variable:bitsUnitSize: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 Packages
mailing list