Alexander_KS/SAPFOR
4
2
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

dvm updated, version of sapfor updated

Browse Source
This commit is contained in:
ALEXks
2024-03-16 17:35:51 +03:00
parent ed34da415a
commit 11888f2ff9
10 changed files with 108 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
dvm/fdvm/trunk/fdvm/dvm.cpp
View File

@@ -82,6 +82,7 @@ extern "C" int out_upper_case;
extern "C" int out_line_unlimit;
extern "C" int out_line_length;
extern "C" PTR_SYMB last_file_symbol;
extern "C" PTR_SYMB FileLastSymbol(...);
Options options;
@@ -99,7 +100,7 @@ int main(int argc, char *argv[])
{
FILE *fout = NULL;
FILE *fout_cuf = NULL, *fout_C_cu = NULL, *fout_info = NULL; /*ACC*/
const char *fout_name = "out.DVMH.f";
const char *fout_name = NULL;
char *fout_name_cuf; /*ACC*/
char *fout_name_C_cu; /*ACC*/
char *fout_name_info_C; /*ACC*/
@@ -389,22 +390,22 @@ int main(int argc, char *argv[])
ProjectStructure(project);
Private_Vars_Project_Analyzer();
//----------------------------
initVariantNames(); //for project
initIntrinsicFunctionNames(); //for project
initSupportedVars(); // for project, acc_f2c.cpp
initF2C_FunctionCalls(); // for project, acc_f2c.cpp
for(int id=project.numberOfFiles()-1; id >= 0; id--)
{
{
file = &(project.file(id)); //file->unparsestdout();
fin_name = new char[strlen(project.fileName(id))+2];
sprintf(fin_name, "%s%s", project.fileName(id), " ");
sprintf(fin_name, "%s%s", project.fileName(id), " ");
//fin_name = strcat(project.fileName(0)," ");
// for call of function 'tpoint'
//added one symbol to input-file name
//printf("%s",fin_name); //!!! debug
if(a_mode || project.numberOfFiles()>1)
fout_name = doOutFileName(file->filename()); //project.fileName(id);
if(!fout_name)
fout_name = doOutFileName(file->filename());
else if (fout_name && source_name && !strcmp(source_name, fout_name))
{
(void)fprintf(stderr, "Output file has the same name as source file\n");
@@ -417,7 +418,7 @@ int main(int argc, char *argv[])
fout_name_info_C = ChangeFto_info_C(fout_name); /*ACC*/
//set the last symbol of file
last_file_symbol = CUR_FILE_CUR_SYMB(); //LastSymbolOfFile(file)->thesymb; //for low_level.c
last_file_symbol = FileLastSymbol(file->filename()); //for low_level.c and not only
initLibNames(); //for every file
InitDVM(file); //for every file
current_file = file; // global variable (used in SgTypeComplex)
@@ -542,6 +543,7 @@ int main(int argc, char *argv[])
}
}
fout_name = NULL;
}
if (v_print)