Author: Lars Wassermann <[email protected]>
Branch:
Changeset: r400:e5452d166391
Date: 2013-05-21 16:18 +0200
http://bitbucket.org/pypy/lang-smalltalk/changeset/e5452d166391/
Log: updated the Squeak artefacts (Filetree-repo and a cs-file) to
reflect my changes to alleviate debugging
diff --git a/SPy-Debugging.package/SPyVM.class/class/print..st
b/SPy-Debugging.package/SPyVM.class/class/print..st
new file mode 100644
--- /dev/null
+++ b/SPy-Debugging.package/SPyVM.class/class/print..st
@@ -0,0 +1,3 @@
+as yet unclassified
+print: aString
+ <primitive: 'debugPrint' module: 'VMDebugging'>
\ No newline at end of file
diff --git a/SPy-Debugging.package/SPyVM.class/methodProperties.json
b/SPy-Debugging.package/SPyVM.class/methodProperties.json
--- a/SPy-Debugging.package/SPyVM.class/methodProperties.json
+++ b/SPy-Debugging.package/SPyVM.class/methodProperties.json
@@ -1,6 +1,7 @@
{
"class" : {
"halt" : "lw 4/30/2013 12:44",
+ "print:" : "lw 5/21/2013 11:00",
"trace" : "lw 4/30/2013 12:44",
"untrace" : "lw 4/30/2013 12:44" },
"instance" : {
diff --git a/SPy-Debugging.package/monticello.meta/version
b/SPy-Debugging.package/monticello.meta/version
--- a/SPy-Debugging.package/monticello.meta/version
+++ b/SPy-Debugging.package/monticello.meta/version
@@ -1,1 +1,1 @@
-(name 'SPy-Debugging-lw.1' message 'added class for starting vm-tracing, etc.'
id 'e6eeab78-6e5c-43bf-9dbc-dfdad29756bd' date '30 April 2013' time
'3:54:48.262 pm' author 'lw' ancestors () stepChildren ())
\ No newline at end of file
+(name 'SPy-Debugging-lw.2' message 'added printing' id
'26ffba4f-b747-480c-b7de-2517367fad07' date '21 May 2013' time '4:12:24.874 pm'
author 'lw' ancestors ((name 'SPy-Debugging-lw.1' message 'added class for
starting vm-tracing, etc.' id 'e6eeab78-6e5c-43bf-9dbc-dfdad29756bd' date '30
April 2013' time '3:54:48.262 pm' author 'lw' ancestors () stepChildren ()))
stepChildren ())
\ No newline at end of file
diff --git a/kernel changes.1.cs b/kernel changes.1.cs
new file mode 100644
--- /dev/null
+++ b/kernel changes.1.cs
@@ -0,0 +1,1 @@
+'From Squeak4.4 of 31 December 2012 [latest update: #12332] on 21 May 2013 at
4:15:40 pm'!
!Object methodsFor: 'error handling' stamp: 'lw 5/21/2013 11:55'!
doesNotUnderstand: aMessage
"Handle the fact that there was an attempt to send the given
message to the receiver but the receiver does not understand
this message (typically sent from the machine when a message
is sent to the receiver and no method is defined for that selector)."
"Testing: (3 activeProcess)"
| exception resumeValue |
SPyVM halt.
(exception := MessageNotUnderstood new)
message: aMessage;
receiver: self.
resumeValue := exception signal.
^exception reachedDefaultHandler
ifTrue: [aMessage sentTo: self]
ifFalse: [resumeValue]! !
!Object methodsFor: 'error handling' stamp: 'lw 5/21/2013 16:14'!
error: aString
"Throw a generic Error exception."
SPyVM halt.
^Error new signal: aString! !
!ContextPart class methodsFor: 'special context creation' stamp: 'lw 5/17/2013
18:36'!
contextEnsure: block
"Create an #ensure: context that is ready to return from executing its
receiver"
| ctxt chain |
ctxt := thisContext.
[chain := thisContext sender cut: ctxt.
ctxt push: nil. ctxt jump] ensure: block.
"jump above will resume here without unwinding chain"
^ chain! !
!ContextPart class methodsFor: 'special context creation' stamp: 'lw 5/17/2013
14:37'!
contextOn: exceptionClass do: block
"Create an #on:do: context that is ready to return from executing its
receiver"
| ctxt chain |
ctxt := thisContext.
[chain := thisContext sender cut: ctxt.
ctxt push: nil. ctxt jump] on: exceptionClass do: block.
"jump above will resume here without unwinding chain"
^ chain! !
\ No newline at end of file
_______________________________________________
pypy-commit mailing list
[email protected]
http://mail.python.org/mailman/listinfo/pypy-commit
