Commit 5773b9c3 authored by John van Groningen's avatar John van Groningen

workaround for old 32 bit Clean compilers, that do not yet support p in ccall

parent fab815a6
implementation module thread_message;
import StdString;
import StdString,StdInt;
import code from "c_thread_message.";
import code from library "thread_kernel32_library";
......@@ -20,10 +20,19 @@ get_current_thread_id = code {
// int get_current_thread_id ();
start_compiler_process :: !String !String !String -> (!Int,!Int,!Int,!Int);
start_compiler_process a0 a1 a2 = code {
start_compiler_process a0 a1 a2
= IF_INT_64_OR_32 (start_compiler_process_64 a0 a1 a2) (start_compiler_process_32 a0 a1 a2);
// int start_compiler_process (CleanString compiler_path,CleanString compiler_directory,CleanString command,int* compiler_thread_id_p,size_t* compiler_thread_handle_p,size_t* process_handle_p);
start_compiler_process_32 :: !String !String !String -> (!Int,!Int,!Int,!Int);
start_compiler_process_32 a0 a1 a2 = code {
ccall start_compiler_process "SSS:IIII"
};
start_compiler_process_64 :: !String !String !String -> (!Int,!Int,!Int,!Int);
start_compiler_process_64 a0 a1 a2 = code {
ccall start_compiler_process "SSS:IIpp"
};
// int start_compiler_process (CleanString compiler_path,CleanString compiler_directory,CleanString command,int* compiler_thread_id_p,size_t* compiler_thread_handle_p,size_t* process_handle_p);
send_string_to_thread :: !Int !Int !Int !String -> Int;
send_string_to_thread a0 a1 a2 a3 = code {
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment