Skip to content
Snippets Groups Projects
Commit 92a2e053 authored by wlott's avatar wlott
Browse files

Added C types for the various slots of unwind blocks and catch blocks.

parent 9e92d51b
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.52 1990/05/31 00:21:03 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.53 1990/06/03 16:19:41 wlott Exp $
;;; ;;;
;;; This file contains some parameterizations of various VM ;;; This file contains some parameterizations of various VM
;;; attributes for the MIPS. This file is separate from other stuff so ;;; attributes for the MIPS. This file is separate from other stuff so
...@@ -444,18 +444,18 @@ ...@@ -444,18 +444,18 @@
symbol) symbol)
(define-primitive-object (unwind-block) (define-primitive-object (unwind-block)
current-uwp (current-uwp :c-type "struct unwind_block *")
current-cont (current-cont :c-type "lispobj *")
current-code current-code
entry-pc) entry-pc)
(define-primitive-object (catch-block) (define-primitive-object (catch-block)
current-uwp (current-uwp :c-type "struct unwind_block *")
current-cont (current-cont :c-type "lispobj *")
current-code current-code
entry-pc entry-pc
tag tag
previous-catch (previous-catch :c-type "struct catch_block *")
size) size)
......
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