diff options
| author | johnvg | 2001-08-31 15:32:39 +0000 |
|---|---|---|
| committer | johnvg | 2001-08-31 15:32:39 +0000 |
| commit | b77678979da50af6d24529988b06ca4826b3d7ad (patch) | |
| tree | 8dfe020cb2b07376cb372fcd668c4765c626ae38 /main | |
| parent | add symbol_heap argument ro empty_cache (diff) | |
moved function set_compiler_id to CoclSystemDependent
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@725 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'main')
| -rw-r--r-- | main/Mac/CoclSystemDependent.dcl | 2 | ||||
| -rw-r--r-- | main/Mac/CoclSystemDependent.icl | 8 | ||||
| -rw-r--r-- | main/compile.icl | 5 |
3 files changed, 9 insertions, 6 deletions
diff --git a/main/Mac/CoclSystemDependent.dcl b/main/Mac/CoclSystemDependent.dcl index 6ffa700..f7d51e0 100644 --- a/main/Mac/CoclSystemDependent.dcl +++ b/main/Mac/CoclSystemDependent.dcl @@ -18,3 +18,5 @@ clean2_compile :: !Int -> Int; clean2_compile_c_entry :: !Int -> Int; ensureCleanSystemFilesExists :: !String !*Files -> (!Bool, !*Files) + +set_compiler_id :: !Int -> Int; diff --git a/main/Mac/CoclSystemDependent.icl b/main/Mac/CoclSystemDependent.icl index afa1dc0..c39c3b8 100644 --- a/main/Mac/CoclSystemDependent.icl +++ b/main/Mac/CoclSystemDependent.icl @@ -107,6 +107,11 @@ clean2_compile_c_entry r = code { centry clean2_compile e_CoclSystemDependent_sclean2_compile "I:I" } +set_compiler_id :: !Int -> Int; +set_compiler_id id = code { + ccall set_compiler_id "I:I" + }; + :: * MyFiles = MyFiles; create_myfiles = MyFiles; @@ -121,4 +126,5 @@ cast f = code { ensureCleanSystemFilesExists :: !String !*Files -> (!Bool, !*Files) ensureCleanSystemFilesExists _ files = (True, files) - // because of dcl file caching the Clean System Files folder should exist always
\ No newline at end of file + // because of dcl file caching the Clean System Files folder should exist always +
\ No newline at end of file diff --git a/main/compile.icl b/main/compile.icl index d0643b3..4906a6d 100644 --- a/main/compile.icl +++ b/main/compile.icl @@ -93,11 +93,6 @@ parseCommandLine [arg : args] options # (args,modules,options) = parseCommandLine args options = (args,[arg : modules],options); -set_compiler_id :: !Int -> Int; -set_compiler_id id = code { - ccall set_compiler_id "I:I" - }; - stripExtension :: {#Char} {#Char} -> {#Char} stripExtension extension string | stringSize >= extensionSize && (string % (stringSize-extensionSize, stringSize-1)) == extension |