The Trunk: Tools-eem.753.mcz

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

The Trunk: Tools-eem.753.mcz

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

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

Name: Tools-eem.753
Author: eem
Time: 30 March 2017, 5:24:31.941311 pm
UUID: 55e72d95-e5b4-4bcb-801b-167d4786b8f6
Ancestors: Tools-eem.752

Replace mention of BlockContext with BlockClosure in comments as appropriate.

=============== Diff against Tools-eem.752 ===============

Item was changed:
  ----- Method: Context>>errorReportOn: (in category '*Tools-debugger access') -----
  errorReportOn: strm
  "Write a detailed error report on the stack (above me) on a stream.  For both the error file, and emailing a bug report.  Suppress any errors while getting printStrings.  Limit the length."
 
  | cnt aContext startPos |
    strm print: Date today; space; print: Time now; cr.
  strm cr.
  strm nextPutAll: 'VM: ';
  nextPutAll:  Smalltalk platformName asString;
  nextPutAll: ' - ';
  nextPutAll: Smalltalk asString;
  cr.
  strm nextPutAll: 'Image: ';
  nextPutAll:  SystemVersion current version asString;
  nextPutAll: ' [';
  nextPutAll: Smalltalk lastUpdateString asString;
  nextPutAll: ']';
  cr.
  strm cr.
  SecurityManager default printStateOn: strm.
 
+ "Note: The following is an open-coded version of Context>>stackOfSize: since this method may be called during a low space condition and we might run out of space for allocating the full stack."
- "Note: The following is an open-coded version of ContextPart>>stackOfSize: since this method may be called during a low space condition and we might run out of space for allocating the full stack."
  cnt := 0.  startPos := strm position.
  aContext := self.
  [aContext notNil and: [(cnt := cnt + 1) < 20]] whileTrue:
  [aContext printDetails: strm. "variable values"
  strm cr.
  aContext := aContext sender].
 
  strm cr; nextPutAll: '--- The full stack ---'; cr.
  aContext := self.
  cnt := 0.
  [aContext == nil] whileFalse:
  [cnt := cnt + 1.
  cnt = 20 ifTrue: [strm nextPutAll: ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -'; cr].
  strm print: aContext; cr.  "just class>>selector"
 
  "exit early if too long..."
  strm position > (startPos+ self class maxLengthForASingleDebugLogReport) ifTrue: [strm nextPutAll: '...etc...'. ^ self]. cnt > self class maxStackDepthForASingleDebugLogReport ifTrue: [strm nextPutAll: '-- and more not shown --'. ^ self].
+ aContext := aContext sender]
- aContext := aContext sender].
  !