don't try to remove file extension in BEGenerateCode,

because of potential ambiguity with hierarchical module names


git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@2176 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d

1 files changed, 0 insertions, 29 deletions

diff --git a/backendC/CleanCompilerSources/backend.c b/backendC/CleanCompilerSources/backend.c
index aa81c81..810743f 100644
--- a/backendC/CleanCompilerSources/backend.c
+++ b/backendC/CleanCompilerSources/backend.c
@@ -3306,31 +3306,6 @@ RemoveSpecialArrayFunctionsFromSymbolList (SymbolP *symbolH)
 	}
 } /* RemoveSpecialArrayFunctionsFromSymbolList */
 
-/* copied from compiler.c ... */
-
-static Bool
-RemoveExtension (char *name)
-{
-	int len;
-
-	len = strlen (name);
-
-	if (len>=4 && name[len-4]=='.'){
-		name [len-4] = '\0';
-		return True;
-	} else
-		return False;
-}
-
-static void
-AddExtension (char *name)
-{
-	name [strlen (name)] = '.';
-}
-
-/* ... copied from compiler.c */
-
-
 #if 0
 File rules_file;
 #endif
@@ -3342,7 +3317,6 @@ BEGenerateCode (CleanString outputFile)
 {
 	char	*outputFileName;
 	ImpRule	rule;
-	Bool	hadExtension;
 
 	clean_error_string.length=0;
 
@@ -3368,7 +3342,6 @@ BEGenerateCode (CleanString outputFile)
 	gBEState.be_icl.beicl_module->im_rules	=	rule;
 
 	outputFileName	= ConvertCleanString (outputFile);
-	hadExtension = RemoveExtension (outputFileName);
 
 #if 0
 	{
@@ -3394,8 +3367,6 @@ BEGenerateCode (CleanString outputFile)
 #endif
 
 	CodeGeneration (gBEState.be_icl.beicl_module, outputFileName);
-	if (hadExtension)
-		AddExtension (outputFileName);
 
 #if 0
 	fclose (rules_file);