dvm updated, version of sapfor updated

dvm/fdvm/trunk/Sage/lib/newsrc/low_level.c

@@ -54,6 +54,7 @@ int getLastLabelId();
 int isItInSection();
 int Init_Tool_Box();
 void Message();
+
 PTR_BFND rec_num_near_search();
 PTR_BFND Redo_Bif_Next_Chain_Internal();
 PTR_SYMB duplicateSymbol();
@@ -82,6 +83,12 @@ int out_upper_case;
 int out_line_unlimit;
 int out_line_length; // out_line_length = 132 for -ffo mode; out_line_length = 72 for -uniForm mode
 PTR_SYMB last_file_symbol;
+struct file_symbol {
+       char *fname;
+       PTR_SYMB last_symb;
+       struct file_symbol *next; 
+} ;
+struct file_symbol *file_last_symbol = NULL;
 
 static int CountNullBifNext = 0; /* for internal debugging */
 
@@ -94,7 +101,6 @@ enum typenode node_code_kind[LAST_CODE];
 char info_type[LAST_CODE][MAXFIELDTYPE];
 char info_symb[LAST_CODE][MAXFIELDSYMB];
 char general_info[LAST_CODE][MAXFIELDSYMB];
-
 /*static struct bif_stack_level   *stack_level = NULL;*/
 /*static struct bif_stack_level *current_level = NULL;*/
 
@@ -247,6 +253,24 @@ char* mymalloc(int size)
   return pt1;
 }
 
+PTR_SYMB  FileLastSymbol(char *file_name)
+{
+  struct file_symbol *fsl;
+  for(fsl=file_last_symbol; fsl; fsl=fsl->next)
+    if(!strcmp(file_name, fsl->fname))
+      return fsl->last_symb;
+  return NULL;
+}
+
+void addFileSymbolList(char *file_name, PTR_SYMB symb)
+{
+   struct file_symbol *fsl;
+   fsl = (struct file_symbol *) xmalloc(sizeof (struct file_symbol));
+   fsl->last_symb = symb;
+   fsl->fname = file_name;
+   fsl->next = file_last_symbol;
+   file_last_symbol = fsl;
+}
 /***************** Provides infos on nodes ********************************
  *                                                                        *
  *     based on the table info in include dir *.def                       *
@@ -549,6 +573,7 @@ void Message(char *s, int l)
 #endif
 }
 
+
 /***************************************************************************/
 /* A set of functions for dealing with a free list for low_level node      */
 /***************************************************************************/
@@ -1203,14 +1228,13 @@ int Init_Tool_Box()
     number_of_ll_node = CUR_FILE_NUM_LLNDS() + 1;
     number_of_bif_node = CUR_FILE_NUM_BIFS() + 1;
     number_of_symb_node = CUR_FILE_NUM_SYMBS() + 1;
-    last_file_symbol = CUR_FILE_CUR_SYMB(); /* podd 23.06.15 */
-
+    addFileSymbolList(CUR_FILE_NAME(), CUR_FILE_CUR_SYMB()); /* podd 01.03.24 */
     if (CUR_FILE_NAME()) strcpy(Current_File_name, CUR_FILE_NAME());
     if (ToolBOX_INIT)
         return 0;
 
     ToolBOX_INIT = 1;
-
+ 
     make_a_malloc_stack();
 
     /* initialisation des noeuds */