Skip to content
Snippets Groups Projects
Commit b89f5fcf authored by emarsden's avatar emarsden
Browse files

Add error-signalling stubs for callback functions, for Alpha and PPC

platforms.
parent 68b02bda
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/alpha/c-call.lisp,v 1.2 1994/10/31 04:39:51 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/alpha/c-call.lisp,v 1.3 2003/07/20 13:53:11 emarsden Rel $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -176,3 +176,16 @@ ...@@ -176,3 +176,16 @@
(t (t
(inst li delta temp) (inst li delta temp)
(inst addq nsp-tn temp nsp-tn))))))) (inst addq nsp-tn temp nsp-tn)))))))
;; bogus stubs for now
(export '(make-callback-trampoline callback-accessor-form))
(defun callback-accessor-form (type sp offset)
(error "Callbacks not implemented on Alpha"))
(defun make-callback-trampoline (index return-type)
"Cons up a piece of code which calls call-callback with INDEX and a
pointer to the arguments."
(error "Callbacks not implemented on Alpha"))
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ppc/c-call.lisp,v 1.2 2001/02/17 20:02:05 dtc Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ppc/c-call.lisp,v 1.3 2003/07/20 13:53:11 emarsden Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -180,3 +180,16 @@ ...@@ -180,3 +180,16 @@
(inst addi nsp-tn nsp-tn delta)) (inst addi nsp-tn nsp-tn delta))
(t (t
(inst lwz nsp-tn nsp-tn 0))))))) (inst lwz nsp-tn nsp-tn 0)))))))
;; bogus stubs for now
(export '(make-callback-trampoline callback-accessor-form))
(defun callback-accessor-form (type sp offset)
(error "Callbacks not implemented on Alpha"))
(defun make-callback-trampoline (index return-type)
"Cons up a piece of code which calls call-callback with INDEX and a
pointer to the arguments."
(error "Callbacks not implemented on Alpha"))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment