Fix virtual calls.
Thu Mar 13 08:18:26 PDT 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 2014-07-25 08:59:02.000000000 -0700
+++ new-verrazano/src/runtime/support.lisp 2014-07-25 08:59:02.000000000 -0700
@@ -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))