projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.29.6: regression in DIRECTORY when matching directory patterns
[sbcl.git]
/
src
/
compiler
/
alpha
/
macros.lisp
diff --git
a/src/compiler/alpha/macros.lisp
b/src/compiler/alpha/macros.lisp
index
2132345
..
513f9e2
100644
(file)
--- a/
src/compiler/alpha/macros.lisp
+++ b/
src/compiler/alpha/macros.lisp
@@
-108,7
+108,7
@@
"Emit a return-pc header word. LABEL is the label to use for this
return-pc."
`(progn
"Emit a return-pc header word. LABEL is the label to use for this
return-pc."
`(progn
- (align n-lowtag-bits)
+ (emit-alignment n-lowtag-bits)
(emit-label ,label)
(inst lra-header-word)))
(emit-label ,label)
(inst lra-header-word)))
@@
-207,7
+207,7
@@
(inst byte (length ,vector))
(dotimes (i (length ,vector))
(inst byte (aref ,vector i))))
(inst byte (length ,vector))
(dotimes (i (length ,vector))
(inst byte (aref ,vector i))))
- (align word-shift)))))
+ (emit-alignment word-shift)))))
(defmacro error-call (vop error-code &rest values)
"Cause an error. ERROR-CODE is the error to cause."
(defmacro error-call (vop error-code &rest values)
"Cause an error. ERROR-CODE is the error to cause."
@@
-518,7
+518,7
@@
,lowtag) object))))
(move value result))))))
,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
"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