[movitz-devel] compile problem with current cvs + patch

[Burton Samograd]

Hi all,

I just grabbed all the latest sources from cvs for the first time and
had a slight problem when I tried to build the boot image.  It seems
that the function funobj-name was nowhere to be found, except in the
procfs-image.lisp file, which I assume is not in the file list of the
default bootable image.  I moved the function over to compiler.lisp,
which made the most sense to me, since there was another funobj-
function defined there.  After the move the image built, dumped and
booted just fine.  Here's a patch (cvs diff -u), although there's not
much to it:

Index: compiler.lisp
===================================================================
RCS file: /project/movitz/cvsroot/movitz/compiler.lisp,v
retrieving revision 1.170
diff -u -r1.170 compiler.lisp
--- compiler.lisp	5 May 2006 18:37:32 -0000	1.170
+++ compiler.lisp	15 May 2006 04:30:16 -0000
@@ -3392,6 +3392,11 @@
 (defun operands (x)
   (if (symbolp x) nil (cdr x)))
 
+(defun funobj-name (x)
+  (typecase x
+    (movitz-funobj
+     (movitz-funobj-name x))))
+
 (defun funobj-assign-bindings (code env &optional (stack-frame-position 1)
 						  (frame-map (make-binding-map)))
   "This wrapper around assign-bindings checks if the first instructions of CODE
Index: procfs-image.lisp
===================================================================
RCS file: /project/movitz/cvsroot/movitz/procfs-image.lisp,v
retrieving revision 1.25
diff -u -r1.25 procfs-image.lisp
--- procfs-image.lisp	10 Apr 2006 11:46:25 -0000	1.25
+++ procfs-image.lisp	15 May 2006 04:30:16 -0000
@@ -238,11 +238,12 @@
 	do (format t "~& => ")))
   (values))
 
+#|
 (defun funobj-name (x)
   (typecase x
     (movitz-funobj
      (movitz-funobj-name x))))
-
+|#
 (defun stack-frame (image)
   (do-stack-frame (image-register32 image :ebp) 0))


-- 
burton samograd					kruhft .at. gmail
kruhft.blogspot.com	www.myspace.com/kruhft	metashell.blogspot.com