[movitz-cvs] CVS update: movitz/losp/muerte/run-time-context.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv25620

Modified Files:
	run-time-context.lisp 
Log Message:
Removed the last usage of the obsolete malloc-pointer-words.

Date: Mon Sep 27 10:53:38 2004
Author: ffjeld

Index: movitz/losp/muerte/run-time-context.lisp
diff -u movitz/losp/muerte/run-time-context.lisp:1.12 movitz/losp/muerte/run-time-context.lisp:1.13
--- movitz/losp/muerte/run-time-context.lisp:1.12	Wed Sep 22 19:55:34 2004
+++ movitz/losp/muerte/run-time-context.lisp	Mon Sep 27 10:53:37 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Wed Nov 12 18:33:02 2003
 ;;;;                
-;;;; $Id: run-time-context.lisp,v 1.12 2004/09/22 17:55:34 ffjeld Exp $
+;;;; $Id: run-time-context.lisp,v 1.13 2004/09/27 08:53:37 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -113,9 +113,11 @@
 (defun clone-run-time-context (&key (parent (current-run-time-context))
 				    (name :anonymous))
   (check-type parent run-time-context)
-  (let ((context (malloc-pointer-words #.(cl:truncate (bt:sizeof 'movitz::movitz-run-time-context) 4))))
-    (memcopy context parent -6 0 0 #.(bt:sizeof 'movitz::movitz-run-time-context)
-	     :unsigned-byte8)
+  (let ((context (%shallow-copy-object parent #.(movitz::movitz-type-word-size 'movitz-run-time-context))))
+;;;	 #+ignore
+;;;	 (malloc-pointer-words #.(cl:truncate (bt:sizeof 'movitz::movitz-run-time-context) 4))))
+;;;    (memcopy context parent -6 0 0 #.(bt:sizeof 'movitz::movitz-run-time-context)
+;;;	     :unsigned-byte8)
     (setf (%run-time-context-slot 'name context) name
 	  (%run-time-context-slot 'self context) context)
     (setf (%run-time-context-segment-base 'segment-descriptor-thread-context context)