FFICallback crashes windows spur i386 vm

On Fri, Jan 13, 2017 at 10:27:27AM -0800, Aliaksei Syrel wrote:
> Hi
>
> The following code crashes windows spur32 VM without crash.dmp:
> (crashes not only in case of int8, but ulong, int16/32 and so on...)

I don't think that Windows produces crash dumps (or they are empty files), but maybe you can find some info in Event Viewer (start>run "eventvwr.msc") in Event Viewer > Windows Logs > Application.

>
> Callback instantiation:
>
> createCallback
> >    ^ FFICallback
> >   signature: #(int8 (int8))
> >   block: [ :value | value ]
>
>
> C function:
>
> int8_t test(int8_t(*function)(int8_t), int8_t value) {
> >    return function(value);
> > }
>
>
> FFI call:
>
> primCall: aCallback int8: aNumber
> >    ^ self ffiCall: #(int8 test(FFICallback aCallback, int8 aNumber))
>
>
> Test case:
>
> test
> >   self
> >     assert: (self primCall: self createCallback int8: 0)
> >     equals: 0
>
>
>
> Windows 10.
> VM from today:
> http://files.pharo.org/vm/pharo-spur32/win/pharo-win-i386-201701130756-83c0ef1.zip
> Image 60343:
> http://files.pharo.org/image/60/60343.zip
>
> P.S. what is the best place to report FFI / Alien issues?
> P.P.S Iceberg works
>
> Cheers,
> Alex

On Fri, Jan 13, 2017 at 11:01:42AM -0800, Aliaksei Syrel wrote:
> Hi Peter,
>
> Latest windows VMs produce crash dumps ;)

Excellent! :)

Peter

>
> Cheers,
> Alex
>
> On 13 January 2017 at 10:57, Peter Uhnak <[hidden email]> wrote:
>
> > On Fri, Jan 13, 2017 at 10:27:27AM -0800, Aliaksei Syrel wrote:
> > > Hi
> > >
> > > The following code crashes windows spur32 VM without crash.dmp:
> > > (crashes not only in case of int8, but ulong, int16/32 and so on...)
> >
> > I don't think that Windows produces crash dumps (or they are empty files),
> > but maybe you can find some info in Event Viewer (start>run "eventvwr.msc")
> > in Event Viewer > Windows Logs > Application.
> >
> > >
> > > Callback instantiation:
> > >
> > > createCallback
> > > >    ^ FFICallback
> > > >   signature: #(int8 (int8))
> > > >   block: [ :value | value ]
> > >
> > >
> > > C function:
> > >
> > > int8_t test(int8_t(*function)(int8_t), int8_t value) {
> > > >    return function(value);
> > > > }
> > >
> > >
> > > FFI call:
> > >
> > > primCall: aCallback int8: aNumber
> > > >    ^ self ffiCall: #(int8 test(FFICallback aCallback, int8 aNumber))
> > >
> > >
> > > Test case:
> > >
> > > test
> > > >   self
> > > >     assert: (self primCall: self createCallback int8: 0)
> > > >     equals: 0
> > >
> > >
> > >
> > > Windows 10.
> > > VM from today:
> > > http://files.pharo.org/vm/pharo-spur32/win/pharo-win-
> > i386-201701130756-83c0ef1.zip
> > > Image 60343:
> > > http://files.pharo.org/image/60/60343.zip
> > >
> > > P.S. what is the best place to report FFI / Alien issues?
> > > P.P.S Iceberg works
> > >
> > > Cheers,
> > > Alex
> >
> >

UPD:
Works using 497 windows vm: http://files.pharo.org/vm/pharo-spur32/win/497.zip.

Something was changed recently... 

Cheers,

Alex

On 13 January 2017 at 11:20, Peter Uhnak <[hidden email]> wrote:

On Fri, Jan 13, 2017 at 11:01:42AM -0800, Aliaksei Syrel wrote:
> Hi Peter,
>
> Latest windows VMs produce crash dumps ;)

Excellent! :)

Peter

>
> Cheers,
> Alex
>
> On 13 January 2017 at 10:57, Peter Uhnak <[hidden email]> wrote:
>
> > On Fri, Jan 13, 2017 at 10:27:27AM -0800, Aliaksei Syrel wrote:
> > > Hi
> > >
> > > The following code crashes windows spur32 VM without crash.dmp:
> > > (crashes not only in case of int8, but ulong, int16/32 and so on...)
> >
> > I don't think that Windows produces crash dumps (or they are empty files),
> > but maybe you can find some info in Event Viewer (start>run "eventvwr.msc")
> > in Event Viewer > Windows Logs > Application.
> >
> > >
> > > Callback instantiation:
> > >
> > > createCallback
> > > >    ^ FFICallback
> > > >   signature: #(int8 (int8))
> > > >   block: [ :value | value ]
> > >
> > >
> > > C function:
> > >
> > > int8_t test(int8_t(*function)(int8_t), int8_t value) {
> > > >    return function(value);
> > > > }
> > >
> > >
> > > FFI call:
> > >
> > > primCall: aCallback int8: aNumber
> > > >    ^ self ffiCall: #(int8 test(FFICallback aCallback, int8 aNumber))
> > >
> > >
> > > Test case:
> > >
> > > test
> > > >   self
> > > >     assert: (self primCall: self createCallback int8: 0)
> > > >     equals: 0
> > >
> > >
> > >
> > > Windows 10.
> > > VM from today:
> > > http://files.pharo.org/vm/pharo-spur32/win/pharo-win-
> > i386-201701130756-83c0ef1.zip
> > > Image 60343:
> > > http://files.pharo.org/image/60/60343.zip
> > >
> > > P.S. what is the best place to report FFI / Alien issues?
> > > P.P.S Iceberg works
> > >
> > > Cheers,
> > > Alex
> >
> >

Hi Aliaksei,

On Jan 13, 2017, at 10:27 AM, Aliaksei Syrel <[hidden email]> wrote:

Hi

The following code crashes windows spur32 VM without crash.dmp:

(crashes not only in case of int8, but ulong, int16/32 and so on...)

Callback instantiation: 

createCallback
   ^ FFICallback 
  signature: #(int8 (int8))
  block: [ :value | value ]

C function:

int8_t test(int8_t(*function)(int8_t), int8_t value) {
   return function(value);
}

FFI call:

primCall: aCallback int8: aNumber
   ^ self ffiCall: #(int8 test(FFICallback aCallback, int8 aNumber))

Test case:

test
  self 
    assert: (self primCall: self createCallback int8: 0)
    equals: 0

Windows 10.

VM from today:

http://files.pharo.org/vm/pharo-spur32/win/pharo-win-i386-201701130756-83c0ef1.zip

Image 60343:

http://files.pharo.org/image/60/60343.zip

P.S. what is the best place to report FFI / Alien issues?

vm-dev

P.P.S Iceberg works

Cheers,

Alex

 

I've reproduced the crash in squeak.stack.spur Win32 with latest vm sources (SHA aa11221d9ebb5d60b0b88a2f1f8e27f19909d718)
This crashing VM is compiled with gcc via ./mvm -f

The Win64 version passes correctly. But it is compiled with clang by default.
The Win32 compiled with clang also passes correctly for me.

The test is translated in pure Alien for purpose of testing on Squeak 5.0 (see instructions below).

--------------------------------------------------------------

from cygwin (or cygwin64) shell:

$ i686-w64-mingw32-gcc --version
i686-w64-mingw32-gcc (GCC) 5.4.0
Copyright (C) 2015 Free Software Foundation, Inc.
This is free software; see the source for copying conditions.  There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

$ i686-w64-mingw32-clang --version
clang version 3.8.1 (tags/RELEASE_381/final)
Target: i686-w64-windows-gnu
Thread model: posix
InstalledDir: /usr/bin

$ x86_64-w64-mingw32-clang --version
clang version 3.8.1 (tags/RELEASE_381/final)
Target: x86_64-w64-windows-gnu
Thread model: posix
InstalledDir: /usr/bin

--------------------------------------------------------------

$ cd build.win32x86/squeak.stack.spur

$ ./mvm -f -- CC=i686-w64-mingw32-clang

or for 64 bits:

$ cd build.win64x64/squeak.stack.spur

$ ./mvm -f

--------------------------------------------------------------

$ cat >test.c << END
#include "stdint.h"
int8_t test(int8_t(*function)(int8_t), int8_t value) {
       return function(value);
    }

END

$ i686-w64-mingw32-clang -c test.c
$ i686-w64-mingw32-clang -shared -o build/vm/test.dll test.o
$ build/vm/Squeak.exe

--------------------------------------------------------------

then from Smalltalk image with Alien properly loaded (Alien-eem.39):

Callback>>int8RetInt8: callbackContext regs: regsAlien
    <signature: #(int8 (*)(int8))>
    ^callbackContext wordResult:
        (block value: (regsAlien signedCharAt: 1) asInteger)

(for now, above method must be compiled in each Callback subclass since we do not ask Pragma to scan superclass for signatures)

TestCase subclass: #AlienCallbackSunit
    instanceVariableNames: ''
    classVariableNames: ''
    poolDictionaries: ''
    category: 'Alien-CoreTest'

AlienCallbackSunit>>createCallback
       ^Callback
          signature: #(int8 (*)(int8))
          block: [ :value | value ]

AlienCallbackSunit>>primCall: aCallback int8: aNumber
       | r |
    (Alien lookup: 'test'  inLibrary: 'test.dll')
        primFFICallResult: (r := Alien new: 1)
        with: aCallback thunk
        with: aNumber.
    ^(r signedCharAt: 1) asInteger

AlienCallbackSunit>>test
      self
        assert: (self primCall: self createCallback int8: 0)
        equals: 0

AlienCallbackSunit new test.

2017-01-14 2:53 GMT+01:00 Eliot Miranda <[hidden email]>:

Hi Aliaksei,

On Jan 13, 2017, at 10:27 AM, Aliaksei Syrel <[hidden email]> wrote:

Hi

The following code crashes windows spur32 VM without crash.dmp:

(crashes not only in case of int8, but ulong, int16/32 and so on...)

Callback instantiation: 

createCallback
   ^ FFICallback 
  signature: #(int8 (int8))
  block: [ :value | value ]

C function:

int8_t test(int8_t(*function)(int8_t), int8_t value) {
   return function(value);
}

FFI call:

primCall: aCallback int8: aNumber
   ^ self ffiCall: #(int8 test(FFICallback aCallback, int8 aNumber))

Test case:

test
  self 
    assert: (self primCall: self createCallback int8: 0)
    equals: 0

Windows 10.

VM from today:

http://files.pharo.org/vm/pharo-spur32/win/pharo-win-i386-201701130756-83c0ef1.zip

Image 60343:

http://files.pharo.org/image/60/60343.zip

P.S. what is the best place to report FFI / Alien issues?

vm-dev

P.P.S Iceberg works

Cheers,

Alex