From 6879e37739e374a53ca27dd756de07e3b0d6c4bc Mon Sep 17 00:00:00 2001 From: ch <ch> Date: Tue, 13 Mar 1990 16:55:36 +0000 Subject: [PATCH] Added array-header-p. --- compiler/mips/type-vops.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/compiler/mips/type-vops.lisp b/compiler/mips/type-vops.lisp index 2935689ba..bb1ce0b8c 100644 --- a/compiler/mips/type-vops.lisp +++ b/compiler/mips/type-vops.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/type-vops.lisp,v 1.4 1990/03/13 00:03:17 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/type-vops.lisp,v 1.5 1990/03/13 16:55:36 ch Exp $ ;;; ;;; This file contains the VM definition of type testing and checking VOPs ;;; for the RT. @@ -18,7 +18,7 @@ ;;; (in-package "C") -;;; ### These belongs in compiler/fundb.lisp +;;; ### These belongs in compiler/fndb.lisp ;;; (defknown realp (t) boolean (movable foldable flushable)) (defknown system-area-pointer-p (t) boolean (movable foldable flushable)) @@ -71,9 +71,6 @@ ;; ### May want to add all of the (simple-array <mumble> (*)) ;; primitive types. ;; - ;; ### May need to add array-header-p and friends. Whoever ports the - ;; array code will probably have to frob stuff here. - ;; (frob functionp check-function function vm:function-pointer-type di:object-not-function-error) @@ -174,6 +171,9 @@ (test-hairy-type obj temp err-lab t ,@types)) (move res obj))))))))) + (frob array-header-p nil nil + vm:simple-array-type (vm:complex-string-type vm:complex-array-type)) + (frob nil check-function-or-symbol di:object-not-function-or-symbol-error vm:function-pointer-type vm:symbol-header-type) -- GitLab