comment out unused? exports

Win/PmCleanSystem.dcl

@@ -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)

Win/PmCleanSystem.icl

@@ -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