Commit 5b006f5b authored by Diederik van Arkel's avatar Diederik van Arkel

comment out unused? exports

parent a4358180
...@@ -16,8 +16,8 @@ getLibs :: ![String] !*Files -> (!(![String],![String]),!*Files) ...@@ -16,8 +16,8 @@ getLibs :: ![String] !*Files -> (!(![String],![String]),!*Files)
ClearCompilerCache :: !.a -> (!Int,!.a) ClearCompilerCache :: !.a -> (!Int,!.a)
QuitCleanCompiler :: !*(IOSt .l) -> *(IOSt .l) QuitCleanCompiler :: !*(IOSt .l) -> *(IOSt .l)
:: CompileClearCache = ClearCache | Don`tClearCache //:: CompileClearCache = ClearCache | Don`tClearCache
instance == CompileClearCache //instance == CompileClearCache
:: CompileOrCheckSyntax = SyntaxCheck | Compilation :: CompileOrCheckSyntax = SyntaxCheck | Compilation
instance == CompileOrCheckSyntax instance == CompileOrCheckSyntax
...@@ -107,6 +107,7 @@ Link :: // Links the given file: ...@@ -107,6 +107,7 @@ Link :: // Links the given file:
/* /*
DynLink :: !String !String !String !*(PSt .l) -> (Bool,*PSt .l) DynLink :: !String !String !String !*(PSt .l) -> (Bool,*PSt .l)
*/ */
/*
Execute :: // Executes the given application Execute :: // Executes the given application
!(WindowFun *env) // error display fun !(WindowFun *env) // error display fun
!Pathname // full pathname of the application !Pathname // full pathname of the application
...@@ -116,7 +117,7 @@ Execute :: // Executes the given application ...@@ -116,7 +117,7 @@ Execute :: // Executes the given application
( *env // state ( *env // state
, !Bool // success status , !Bool // success status
) )
*/
Execute` :: !String !*env -> (!Bool,!Int,!*env) Execute` :: !String !*env -> (!Bool,!Int,!*env)
...@@ -172,6 +173,6 @@ CompilePersistent :: ...@@ -172,6 +173,6 @@ CompilePersistent ::
-> (!*CompilingInfo,!(!*env, !Pathname, !CompilerMsg)) -> (!*CompilingInfo,!(!*env, !Pathname, !CompilerMsg))
| FileEnv env | FileEnv env
ClearCompilerCaches :: !Int !.a -> (!Int,!.a) //ClearCompilerCaches :: !Int !.a -> (!Int,!.a)
StartCodeGenerator :: !String !(WindowFun *(PSt .l)) !CodeGenerateAsmOrCode !Pathname !Int !Bool !CodeGenOptions !ApplicationOptions !Pathname !*(PSt .l) -> (!Bool,!Pathname,!*(PSt .l)) //StartCodeGenerator :: !String !(WindowFun *(PSt .l)) !CodeGenerateAsmOrCode !Pathname !Int !Bool !CodeGenOptions !ApplicationOptions !Pathname !*(PSt .l) -> (!Bool,!Pathname,!*(PSt .l))
SendRepeatResult :: !Int !.a -> (!Int,!.a) //SendRepeatResult :: !Int !.a -> (!Int,!.a)
...@@ -107,7 +107,7 @@ where ...@@ -107,7 +107,7 @@ where
= True = True
(==) _ _ (==) _ _
= False = False
/*
:: CompileClearCache = ClearCache | Don`tClearCache :: CompileClearCache = ClearCache | Don`tClearCache
instance == CompileClearCache instance == CompileClearCache
...@@ -119,7 +119,7 @@ where ...@@ -119,7 +119,7 @@ where
= True = True
(==) _ _ (==) _ _
= False = False
*/
:: CompilerMsg :: CompilerMsg
= CompilerOK = CompilerOK
| SyntaxError | SyntaxError
...@@ -479,7 +479,8 @@ CodeGen cgen` wf genAsmOrCode path timeprofile cgo=:{tp} ao startupdir ps ...@@ -479,7 +479,8 @@ CodeGen cgen` wf genAsmOrCode path timeprofile cgo=:{tp} ao startupdir ps
# objpath = MakeObjSystemPathname tp path # objpath = MakeObjSystemPathname tp path
path_without_suffix = RemoveSuffix path path_without_suffix = RemoveSuffix path
command = cgen +++ MakeCodeGenOptionsString genAsmOrCode timeprofile cgo command = cgen +++ MakeCodeGenOptionsString genAsmOrCode timeprofile cgo
+++ " " +++ (watcom_quoted_string path_without_suffix) // +++ " " +++ (watcom_quoted_string path_without_suffix)
+++ " " +++ (quoted_string path_without_suffix)
errorsfilename = tooltempdir +++ toString dirseparator +++ "errors" errorsfilename = tooltempdir +++ toString dirseparator +++ "errors"
(didit,exit_code,_) = trace_n errorsfilename CallProcess command [] cgendir "" "" errorsfilename 99 (didit,exit_code,_) = trace_n errorsfilename CallProcess command [] cgendir "" "" errorsfilename 99
......
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