Threadcall

FreeBASIC

Threadcall
 
Starts a user-defined procedure with parameters in a separate execution thread

Threadcall uses LibFFI internally: people who write programs using this functionality should be careful to follow LibFFI's license, which can be found at http://github.com/atgreen/libffi/blob/master/LICENSE.

Syntax

Function Threadcall subname([paramlist]) As Any Ptr

Usage

threadid = Threadcall subname([paramlist])

Parameters

subname
The name of a subroutine
paramlist
A list of parameters to pass to the subroutine, as with a normal sub call.

Return Value

Threadcall returns an Any Ptr handle to the thread created, or the null pointer (0) on failure.

Description

Like ThreadCreate, Threadcall creates a thread which runs at the same time as the code calling it. By placing "Threadcall" before almost any normal call to sub, the sub is called inside of a new thread and returns a pointer to that thread.

Using Threadcall is simpler method of creating threads, and allows data to be passed to the thread without global variables or pointers which are not type safe. However, ThreadCreate is more efficient and should be used for programs creating a large number of threads.

While most subroutines are supported, the following types of subroutines may not be called:
    • Subroutines using Variable Arguments
    • Subroutines with unions which are passed ByVal
    • Subroutines with user types containing unions, arrays, strings, or bitfields which are passed ByVal

When using Threadcall, parenthesis around the parameter list are required unless the subroutine has no parameters.

WARNING: Presently when Threadcall involves to pass parameters to the thread, there is no guarentee that the corresponding data are still maintained after the end of the Threadcall statement and this until the thread is launched. That can cause bad behavior.

Example

'' Threading using "ThreadCall"

Sub thread( id As String, tlock As Any Ptr, count As Integer )
    For i As Integer = 1 To count
        MutexLock tlock
        Print "thread " & id;
        Locate , 20
        Print i & "/" & count
        MutexUnlock tlock
    Next
End Sub

Dim tlock As Any Ptr = MutexCreate()
Dim a As Any Ptr = ThreadCall thread("A", tlock, 6)
Dim b As Any Ptr = ThreadCall thread("B", tlock, 4)
ThreadWait a
ThreadWait b
MutexDestroy tlock
Print "All done (and without Dim Shared!)"


Dialect Differences

  • Threading is not allowed in the -lang qb dialect.

Platform Differences

  • Threadcall is not available with the DOS version / target of FreeBASIC, because multithreading is not supported by DOS kernel nor the used extender.
  • In Linux the threads are always started in the order they are created, this can't be assumed in Win32. It's an OS, not a FreeBASIC issue.
  • In Linux, the stdcall and pascal calling conventions are not supported
  • In Windows, the pascal calling convention is not supported.

Differences from QB

  • New to FreeBASIC

See also