On Wed, May 26, 2010 at 11:44 PM, Luís Oliveira <span dir="ltr"><<a href="mailto:luismbo@gmail.com">luismbo@gmail.com</a>></span> wrote:<br><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<div class="im">On Thu, May 27, 2010 at 2:31 AM, Daniel Herring <<a href="mailto:dherring@tentpost.com">dherring@tentpost.com</a>> wrote:<br>
>>> So my question is, on SBCL/32-bit & CCL/32-bit, what is the expected size<br>
>>> of :pointer on a 64-bit OS?<br>
</div>[...]<br>
<div class="im">>  std::cout << sizeof(void *) <<"\n";<br>
</div>[...]<br>
> prints "8".<br>
<br>
But that is coming from neither SBCL/CCL nor a 32-bit compiler. :-)</blockquote></div><div><br></div><div>Yes, the size is 4 (see output below).</div><div><br></div><div>Again, this problem is only observable on 32-bit SBCL running on top of 64-bit Windows. This problem has never occurred on Linux or OS X or any other OS. The problem cannot be reproduced on 32-bit versions of Windows. The problem doesn't appear in Lispworks or CLISP. (CCL 32-bit doesn't run on 64-bit Windows.) I think I've managed to reproduce it in Allegro CL, but only with optimize speed turned on, and I didn't get backtrace so I can't really be sure. So unless you have a system that meets those parameters, you probably won't be able to reproduce this bug.</div>
<div><br></div><div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; border-collapse: collapse; "><div>* (foreign-type-size :pointer)</div><div><br></div><div>4</div><div><br></div><div>
* *features*</div><div><br></div><div>(CFFI-FEATURES:FLAT-NAMESPACE CFFI-FEATURES:X86 CFFI-FEATURES:WINDOWS :CFFI</div><div> CFFI-SYS::FLAT-NAMESPACE :WINDOWS :LITTLE-ENDIAN :ASDF :ANSI-CL :COMMON-LISP</div><div> :SBCL :SB-DOC :SB-TEST :SB-LDB :SB-PACKAGE-LOCKS :SB-UNICODE :SB-EVAL</div>
<div> :SB-SOURCE-LOCATIONS :IEEE-FLOATING-POINT :X86 :WIN32 :GENCGC</div><div> :STACK-GROWS-DOWNWARD-NOT-UPWARD :C-STACK-IS-CONTROL-STACK</div><div> :COMPARE-AND-SWAP-VOPS :UNWIND-TO-FRAME-AND-CALL-VOP :RAW-INSTANCE-INIT-VOPS</div>
<div> :STACK-ALLOCATABLE-CLOSURES :STACK-ALLOCATABLE-VECTORS</div><div> :STACK-ALLOCATABLE-LISTS :STACK-ALLOCATABLE-FIXED-OBJECTS :ALIEN-CALLBACKS</div><div> :CYCLE-COUNTER :INLINE-CONSTANTS :LINKAGE-TABLE :OS-PROVIDES-DLOPEN</div>
<div> :OS-PROVIDES-PUTWC)</div></span></div><br>-- <br>Elliott Slaughter<br><br>"Don't worry about what anybody else is going to do. The best way to predict the future is to invent it." - Alan Kay<br>