From: Nikodemus Siivola Date: Sat, 21 Jul 2007 13:33:53 +0000 (+0000) Subject: 1.0.7.37: fix non-x86oid builds X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=d294785c8e313384513208c1d93a44c3f22a0464;p=sbcl.git 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.) --- diff --git a/src/compiler/alpha/macros.lisp b/src/compiler/alpha/macros.lisp index 2132345..0982d6e 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 95f7563..5a28295 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 e6316c0..ca9f359 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 7e9ace4..6eace04 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 a453e2b..5b06d9f 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 8895fc4..3223755 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"