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-07-31 03:07:07.475623493 +0000
+++ new-verrazano/src/runtime/support.lisp 2015-07-31 03:07:07.487623420 +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))