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@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)