added some code for unwind protection

stix/kernel/Context.st

@@ -18,6 +18,11 @@
 	{
 		^false
 	}
+
+	#method ensureBlock
+	{
+		^self.ensure_block
+	}
 }
 
 #class(#pointer) MethodContext(Context)
@@ -307,7 +312,7 @@
 		ip := source pc.
 	}
 
-	"------ TODO: -------------------------------------"
+
 	#method on: anException do: anExceptionBlock
 	{
 "		| handlerActive |"
@@ -339,7 +344,6 @@ thisContext isExceptionHandlerContext dump.
 			aBlock value.
 			ex pass
 		].
-
 		aBlock value.
 		^v
 	}
@@ -349,7 +353,23 @@ thisContext isExceptionHandlerContext dump.
 		^self on: Exception do: [:ex | aBlock value. ex pass ]
 	}
 
-	"------ TODO: -------------------------------------"
+
+	#method unwindTo: aContext return: anObject
+	{
+		## private: called by VM upon unwinding
+		| ctx eb |
+		ctx := self.
+		[ctx ~~ aContext] whileTrue: [
+			eb := ctx ensureBlock.
+			(eb notNil) ifTrue: [eb value].
+			ctx := ctx sender.
+		].
+		eb := ctx ensureBlock.
+		(eb notNil) ifTrue: [eb value].
+
+		^anObject
+	}
+
 }
 
 ## TODO: is it better to inherit from Object???

stix/kernel/test-008.st

@@ -36,11 +36,12 @@
 
 #class MyObject(TestObject)
 {
-	#declare(#classinst) t1 t2.
+	#declare(#classinst) t1 t2 t3.
 	#method(#class) xxxx
 	{
 		| g1 g2 |
 		t1 dump.
+		t3 value.
 		t2 := [ g1 := 50. g2 := 100. ^g1 + g2 ].
 		(t1 < 10) ifFalse: [ ^self ].
 		t1 := t1 + 1. 
@@ -49,12 +50,16 @@
 
 	#method(#class) main
 	{
+		t3 := ['1111' dump. ^20.].
 		t1 := 1.
 		self xxxx.
 		'END OF XXX' dump.
 		t2 := t2 value.  
 		'END OF t2 value' dump.
 		t2 dump.
+
+
+		
 	}
 
 }