Hello!
27.05.2016, 20:00, "Björn Lindqvist" <bjou...@gmail.com>:
> Try defining <ThreadProc> like this:
>
> : <ThreadProc> ( -- alien ) DWORD { LPVOID } stdcall [ ] alien-callback ;
Tried this, see below.
I'm now at home, trying these things on Win 8.1 64-bit, on a freshly
bootstrapped Factor. (For some reason the build.cmd produced a 32-bit
executable, even though I'm on a 64-bit system.) The Windows Error Reporting
tool (WerFault.exe) says that an exception is happening. Sometimes I get to see
some kind of dumps in the console, sometimes not.
Here's my code:
USING: kernel windows.kernel32
alien alien.data alien.syntax windows.types ;
IN: my-thd
LIBRARY: kernel32
FUNCTION: HANDLE CreateThread ( LPSECURITY_ATTRIBUTES lpThreadAttributes,
SIZE_T dwStackSize,
LPVOID lpStartAddress,
LPVOID lpParameter,
DWORD dwCreationFlags,
LPDWORD lpThreadId )
CALLBACK: DWORD ThreadProc ( LPVOID lpParameter )
: <ThreadProc> ( -- alien )
[ [ t ] [ ] while ] ThreadProc ;
: <ThreadProc-2> ( -- alien )
DWORD { LPVOID } stdcall [ ] alien-callback ;
: <ThreadProc-3> ( -- alien )
DWORD { LPVOID } stdcall [ [ t ] [ ] while ] alien-callback ;
: start-thd ( -- hnd )
f 0 <ThreadProc> f 0 f CreateThread ;
: start-thd-2 ( -- hnd )
f 0 <ThreadProc-2> f 0 f CreateThread ;
: start-thd-3 ( -- hnd )
f 0 <ThreadProc-3> f 0 f CreateThread ;
Test runs and results:
start-thd: the app sometimes dies with no output. WerFault sometimes reports
Exception Code c0000409, which Googles to "Stack buffer overflow", and
sometimes c0000005, which is "access violation". Sometimes I see a console
dump, which starts with "fatal_error: Memory protection fault during gc:
<hex-value>".
start-thd-2: most of the time dies with no output, but once I saw the text
"Error in print-error!" on the console.
start-thd-3: most of the time dies with no output, but once I saw a message
box with "Memory protection fault at address 0x105" in it.
Can you help me? I need more code to try.
---=====---
Александр
------------------------------------------------------------------------------
What NetFlow Analyzer can do for you? Monitors network bandwidth and traffic
patterns at an interface-level. Reveals which users, apps, and protocols are
consuming the most bandwidth. Provides multi-vendor support for NetFlow,
J-Flow, sFlow and other flows. Make informed decisions using capacity
planning reports. https://ad.doubleclick.net/ddm/clk/305295220;132659582;e
_______________________________________________
Factor-talk mailing list
Factor-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/factor-talk
