The Trunk: ShoutCore-mt.77.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: ShoutCore-mt.77.mcz

commits-2
Marcel Taeumel uploaded a new version of ShoutCore to project The Trunk:
http://source.squeak.org/trunk/ShoutCore-mt.77.mcz

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

Name: ShoutCore-mt.77
Author: mt
Time: 10 December 2019, 3:26:21.931553 pm
UUID: 2df6bf09-c3d1-4e42-9a40-51bbfce1712c
Ancestors: ShoutCore-mt.76

Fixes args/temps styling for dead contexts.

=============== Diff against ShoutCore-mt.76 ===============

Item was changed:
  ----- Method: SHParserST80>>initializeInstanceVariables (in category 'parse support') -----
  initializeInstanceVariables
 
  instanceVariables := classOrMetaClass
  ifNil: [ #() ]
  ifNotNil: [ classOrMetaClass allInstVarNames asArray ].
  allowUnderscoreAssignments := Scanner allowUnderscoreAsAssignment.
  allowUnderscoreSelectors := Scanner prefAllowUnderscoreSelectors.
  allowBlockArgumentAssignment := Scanner allowBlockArgumentAssignment.
  sourcePosition := 1.
  arguments
  ifNil: [ arguments := OrderedCollection with: nil ]
  ifNotNil: [ arguments reset; addLast: nil ].
  temporaries
  ifNil: [ temporaries := OrderedCollection with: nil ]
  ifNotNil: [ temporaries reset; addLast: nil ].
+ context ifNotNil: [ self initializeVariablesFromContext ].
- (context notNil and: [ context isDead not ])
- ifTrue: [ self initializeVariablesFromContext ].
  bracketDepth := 0.
  ranges
  ifNil: [ ranges := OrderedCollection new: 40 "Covers over 80% of all methods." ]
  ifNotNil: [ ranges reset ]!

Item was changed:
  ----- Method: SHParserST80>>initializeVariablesFromContext (in category 'parse support') -----
  initializeVariablesFromContext
 
  | contextSourcePcIndex contextSourceParser |
  contextSourcePcIndex := (context debuggerMap
+ rangeForPC: (context isDead ifTrue: [context endPC] ifFalse: [context pc])
- rangeForPC: context pc
  in: context method
  contextIsActiveContext: true "... to really use the context's pc.")
  start.
  contextSourceParser := self class new
  classOrMetaClass: context method methodClass;
  environment: self environment;
  source: (context method getSource first: contextSourcePcIndex);
  yourself.
  contextSourceParser parse.
  arguments := contextSourceParser activeArguments.
  temporaries  := contextSourceParser activeTemporaries.!