fix detaching of CallinProcesses

2012-02-22 Paolo Bonzini <bonzini@gnu.org> * kernel/CallinProcess.st: Fix creation of cloned process, reported by Holger Freyther.
bonzini · Aug 10, 2012 · 1cccee3 · 1cccee3
1 parent 05b69c1
commit 1cccee3
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,8 @@
+2012-02-22  Paolo Bonzini  <bonzini@gnu.org>
+
+	* kernel/CallinProcess.st: Fix creation of cloned process, reported
+	by Holger Freyther.
+
 2012-02-22  Gwenael Casaccio  <mrgwen@gmail.com>
             Paolo Bonzini  <bonzini@gnu.org>
 

diff --git a/kernel/CallinProcess.st b/kernel/CallinProcess.st
@@ -63,10 +63,12 @@ invoked me no longer exist).  I am otherwise equivalent to a Process.'>
                 reason: 'process not active' ].
 
         p := Process basicNew.
-        Link instSize + 1 to: Process instSize do: [ :i |
+        "Skip suspendedContext, priority, myList"
+        Link instSize + 4 to: Process instSize do: [ :i |
             p instVarAt: i put: (self instVarAt: i) ].
 
         "Start executing the detached process from here."
+        p priority: self priority.
         p suspendedContext: thisContext copy.
 
         Processor activeProcess == self ifTrue: [