From d294785c8e313384513208c1d93a44c3f22a0464 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Sat, 21 Jul 2007 13:33:53 +0000 Subject: [PATCH] 1.0.7.37: fix non-x86oid builds * WITH-PINNED-OBJECTS needs to be a DEF!MACRO, not DEFMACRO. No SB!SYS prefix needed, as SB-VM uses SB-SYS. (Tested on only PPC/Darwin.) --- src/compiler/alpha/macros.lisp | 2 +- src/compiler/hppa/macros.lisp | 2 +- src/compiler/mips/macros.lisp | 2 +- src/compiler/ppc/macros.lisp | 2 +- src/compiler/sparc/macros.lisp | 2 +- version.lisp-expr | 2 +- 6 files changed, 6 insertions(+), 6 deletions(-) diff --git a/src/compiler/alpha/macros.lisp b/src/compiler/alpha/macros.lisp index 213234574..0982d6e08 100644 --- a/src/compiler/alpha/macros.lisp +++ b/src/compiler/alpha/macros.lisp @@ -518,7 +518,7 @@ ,lowtag) object)))) (move value result)))))) -(defmacro sb!sys::with-pinned-objects ((&rest objects) &body body) +(def!macro with-pinned-objects ((&rest objects) &body body) "Arrange with the garbage collector that the pages occupied by OBJECTS will not be moved in memory for the duration of BODY. Useful for e.g. foreign calls where another thread may trigger diff --git a/src/compiler/hppa/macros.lisp b/src/compiler/hppa/macros.lisp index 95f7563ec..5a2829547 100644 --- a/src/compiler/hppa/macros.lisp +++ b/src/compiler/hppa/macros.lisp @@ -367,7 +367,7 @@ (move value result)))))) -(defmacro sb!sys::with-pinned-objects ((&rest objects) &body body) +(def!macro with-pinned-objects ((&rest objects) &body body) "Arrange with the garbage collector that the pages occupied by OBJECTS will not be moved in memory for the duration of BODY. Useful for e.g. foreign calls where another thread may trigger diff --git a/src/compiler/mips/macros.lisp b/src/compiler/mips/macros.lisp index e6316c0bc..ca9f3594f 100644 --- a/src/compiler/mips/macros.lisp +++ b/src/compiler/mips/macros.lisp @@ -434,7 +434,7 @@ (move result value)))))) -(defmacro sb!sys::with-pinned-objects ((&rest objects) &body body) +(def!macro with-pinned-objects ((&rest objects) &body body) "Arrange with the garbage collector that the pages occupied by OBJECTS will not be moved in memory for the duration of BODY. Useful for e.g. foreign calls where another thread may trigger diff --git a/src/compiler/ppc/macros.lisp b/src/compiler/ppc/macros.lisp index 7e9ace428..6eace0456 100644 --- a/src/compiler/ppc/macros.lisp +++ b/src/compiler/ppc/macros.lisp @@ -340,7 +340,7 @@ (inst andi. ,flag-tn alloc-tn 7) (inst twi :ne ,flag-tn 0)))) -(defmacro sb!sys::with-pinned-objects ((&rest objects) &body body) +(def!macro with-pinned-objects ((&rest objects) &body body) "Arrange with the garbage collector that the pages occupied by OBJECTS will not be moved in memory for the duration of BODY. Useful for e.g. foreign calls where another thread may trigger diff --git a/src/compiler/sparc/macros.lisp b/src/compiler/sparc/macros.lisp index a453e2b98..5b06d9fc7 100644 --- a/src/compiler/sparc/macros.lisp +++ b/src/compiler/sparc/macros.lisp @@ -238,7 +238,7 @@ (inst t :ne pseudo-atomic-trap))))) -(defmacro sb!sys::with-pinned-objects ((&rest objects) &body body) +(def!macro with-pinned-objects ((&rest objects) &body body) "Arrange with the garbage collector that the pages occupied by OBJECTS will not be moved in memory for the duration of BODY. Useful for e.g. foreign calls where another thread may trigger diff --git a/version.lisp-expr b/version.lisp-expr index 8895fc4a6..3223755c6 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"1.0.7.36" +"1.0.7.37" -- 2.11.4.GIT