~mdw
/
clg
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
64-bit patch for SBCL from Gabriel Ebner
[clg]
/
glib
/
proxy.lisp
diff --git
a/glib/proxy.lisp
b/glib/proxy.lisp
index
1ca8fe5
..
36fbb58
100644
(file)
--- a/
glib/proxy.lisp
+++ b/
glib/proxy.lisp
@@
-20,7
+20,7
@@
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: proxy.lisp,v 1.3
6 2006-02-26 15:30:01
espen Exp $
+;; $Id: proxy.lisp,v 1.3
7 2006-02-26 16:12:25
espen Exp $
(in-package "GLIB")
(in-package "GLIB")
@@
-450,8
+450,12
@@
(call-next-method))
(call-next-method))
- ;; TODO: call some C code to detect this a compile time
- (defconstant +struct-alignmen+ 4)
+ (defconstant +struct-alignmen+
+ #+sbcl (/ (sb-alien-internals:alien-type-alignment
+ (sb-alien-internals:parse-alien-type
+ 'system-area-pointer nil))
+ 8)
+ #-sbcl 4)
(defun align-offset (size)
(if (zerop (mod size +struct-alignmen+))
(defun align-offset (size)
(if (zerop (mod size +struct-alignmen+))