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