Commit 2e093808 authored by John van Groningen's avatar John van Groningen
Browse files

don't try to remove file extension in BEGenerateCode,

because of potential ambiguity with hierarchical module names
parent d4bb21a0
...@@ -3306,31 +3306,6 @@ RemoveSpecialArrayFunctionsFromSymbolList (SymbolP *symbolH) ...@@ -3306,31 +3306,6 @@ RemoveSpecialArrayFunctionsFromSymbolList (SymbolP *symbolH)
} }
} /* RemoveSpecialArrayFunctionsFromSymbolList */ } /* 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 #if 0
File rules_file; File rules_file;
#endif #endif
...@@ -3342,7 +3317,6 @@ BEGenerateCode (CleanString outputFile) ...@@ -3342,7 +3317,6 @@ BEGenerateCode (CleanString outputFile)
{ {
char *outputFileName; char *outputFileName;
ImpRule rule; ImpRule rule;
Bool hadExtension;
clean_error_string.length=0; clean_error_string.length=0;
...@@ -3368,7 +3342,6 @@ BEGenerateCode (CleanString outputFile) ...@@ -3368,7 +3342,6 @@ BEGenerateCode (CleanString outputFile)
gBEState.be_icl.beicl_module->im_rules = rule; gBEState.be_icl.beicl_module->im_rules = rule;
outputFileName = ConvertCleanString (outputFile); outputFileName = ConvertCleanString (outputFile);
hadExtension = RemoveExtension (outputFileName);
#if 0 #if 0
{ {
...@@ -3394,8 +3367,6 @@ BEGenerateCode (CleanString outputFile) ...@@ -3394,8 +3367,6 @@ BEGenerateCode (CleanString outputFile)
#endif #endif
CodeGeneration (gBEState.be_icl.beicl_module, outputFileName); CodeGeneration (gBEState.be_icl.beicl_module, outputFileName);
if (hadExtension)
AddExtension (outputFileName);
#if 0 #if 0
fclose (rules_file); fclose (rules_file);
......
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