From 2b1f9989cf0a67deae77b516d48a120080b7fea8 Mon Sep 17 00:00:00 2001 From: Marcus Denker Date: Mon, 14 Sep 2020 16:55:46 +0200 Subject: [PATCH] - remove Context>>#temporaries - remove SindarinDebugger>>#temporaries - remove test there are no senders of #temporaries from the package. Fixes #8 --- Sindarin-Tests/SindarinDebuggerTest.class.st | 13 ------------- Sindarin/Context.extension.st | 9 --------- Sindarin/SindarinDebugger.class.st | 7 ------- 3 files changed, 29 deletions(-) diff --git a/Sindarin-Tests/SindarinDebuggerTest.class.st b/Sindarin-Tests/SindarinDebuggerTest.class.st index 30b6f64..362e7cd 100644 --- a/Sindarin-Tests/SindarinDebuggerTest.class.st +++ b/Sindarin-Tests/SindarinDebuggerTest.class.st @@ -716,19 +716,6 @@ SindarinDebuggerTest >> testSteppingAnExecutionSignalingExceptions [ raise: UnhandledExceptionSignalledByADebuggedExecution ] -{ #category : #tests } -SindarinDebuggerTest >> testTemporaries [ - | scdbg | - scdbg := SindarinDebugger debug: [ self helperMethod10 ]. - self assert: scdbg temporaries size equals: 1. - scdbg step. - self assert: scdbg temporaries size equals: 1. - self assert: (scdbg temporaries at: #a) equals: nil. - scdbg step. - self assert: scdbg temporaries size equals: 1. - self assert: (scdbg temporaries at: #a) equals: 5 -] - { #category : #tests } SindarinDebuggerTest >> testTemporaryNamed [ | dbg | diff --git a/Sindarin/Context.extension.st b/Sindarin/Context.extension.st index 5289e46..c08576a 100644 --- a/Sindarin/Context.extension.st +++ b/Sindarin/Context.extension.st @@ -4,12 +4,3 @@ Extension { #name : #Context } Context >> currentNode [ ^ self method sourceNodeForPC: self pc ] - -{ #category : #'*Sindarin' } -Context >> temporaries [ - "Returns the temporary variables of this context." - | dictionary | - dictionary := Dictionary new. - self tempNames do: [ :name | dictionary at: name put: (self tempNamed: name) ]. - ^ dictionary. -] diff --git a/Sindarin/SindarinDebugger.class.st b/Sindarin/SindarinDebugger.class.st index fe482a6..7dabf2b 100644 --- a/Sindarin/SindarinDebugger.class.st +++ b/Sindarin/SindarinDebugger.class.st @@ -621,13 +621,6 @@ SindarinDebugger >> stepUntil: aBlock [ aBlock whileFalse: [ self step ] ] -{ #category : #stackAccessHelpers } -SindarinDebugger >> temporaries [ - "Returns the temporary variables of the current stack-frame." - self flag: 'Should not be called temporaries because it is a dictionary key->values and not variables'. - ^ self context temporaries -] - { #category : #stackAccessHelpers } SindarinDebugger >> temporaryNamed: aSymbol [ ^self context tempNamed: aSymbol