Commit d99aeea3 authored by John van Groningen's avatar John van Groningen
Browse files

pass compiler_id in message to the IDE

parent b67a7d10
......@@ -23,6 +23,6 @@ SystemDependentInitialIO :: [a]
ensureCleanSystemFilesExists :: !String !*Files -> (!Bool, !*Files)
set_compiler_id :: Int -> Int
set_compiler_id :: !Int -> Int
compiler_loop :: ([{#Char}] *st -> *(Bool, *st)) *st -> (!Bool, !*st)
......@@ -26,13 +26,20 @@ ensureCleanSystemFilesExists :: !String !*Files -> (!Bool, !*Files)
ensureCleanSystemFilesExists path env
= ensureDirectoryExists path env
set_compiler_id :: Int -> Int
set_compiler_id compiler_id = compiler_id
import thread_message;
import code from "thread_message.obj";
set_compiler_id :: !Int -> Int
set_compiler_id compiler_id = code {
ccall set_compiler_id "I:I"
};
get_compiler_id :: Int
get_compiler_id = code {
ccall get_compiler_id ":I"
};
compiler_loop :: ([{#Char}] *st -> *(Bool, *st)) *st -> (!Bool, !*st)
compiler_loop compile compile_state
| length commandArgs==2 && commandArgs!!0=="-ide"
......@@ -119,7 +126,7 @@ compile_files compile thread_id wm_number compile_state
["cocl":cocl_args]
# (ok,compile_state)=compile cocl_args compile_state
# result=if ok 0(-1);
# r=send_integers_to_thread thread_id wm_number 0 result;
# r=send_integers_to_thread thread_id wm_number get_compiler_id result;
| r==0
-> abort "compile_files 3";
-> compile_files compile thread_id wm_number compile_state
......
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