Fix virtual calls.
Thu Mar 13 15:18:26 UTC 2008 levente.meszaros@gmail.com
* Fix virtual calls.
diff -rN -u old-verrazano/src/runtime/support.lisp new-verrazano/src/runtime/support.lisp
--- old-verrazano/src/runtime/support.lisp 2015-05-27 18:05:09.228207118 +0000
+++ new-verrazano/src/runtime/support.lisp 2015-05-27 18:05:09.236207067 +0000
@@ -16,6 +16,4 @@
;; macro for emitting a virtual function call
(defmacro virtual-funcall (pobj indx coff &body body)
- `(foreign-funcall (vtable-lookup ,pobj ,indx ,coff)
- ,@body))
-
+ `(foreign-funcall-pointer (vtable-lookup ,pobj ,indx ,coff) nil ,@body))