[BACK]Return to symtab_bltin.c CVS log [TXT] [DIR] Up to [Coherent Logic Development] / freem / src

Diff for /freem/src/symtab_bltin.c between versions 1.12 and 1.14

version 1.12, 2025/04/14 19:56:27 version 1.14, 2025/05/14 12:22:04
Line 24 Line 24
  *   along with FreeM.  If not, see <https://www.gnu.org/licenses/>.   *   along with FreeM.  If not, see <https://www.gnu.org/licenses/>.
  *   *
  *   $Log$   *   $Log$
    *   Revision 1.14  2025/05/14 12:22:04  snw
    *   Further work on shared memory
    *
    *   Revision 1.13  2025/04/19 21:52:20  snw
    *   Remove extraneous symbol table debugging message
    *
  *   Revision 1.12  2025/04/14 19:56:27  snw   *   Revision 1.12  2025/04/14 19:56:27  snw
  *   Working towards FreeBSD fix   *   Working towards FreeBSD fix
  *   *
Line 68 Line 74
 #include "merr.h"  #include "merr.h"
 #include "consttbl.h"  #include "consttbl.h"
 #include "shmmgr.h"  #include "shmmgr.h"
   #include "log.h"
   
 /* Turn this on to get tons of lovely debugging messages about  /* Turn this on to get tons of lovely debugging messages about
 symbol-table calls */  symbol-table calls */
Line 188  void symtab_init (void) Line 195  void symtab_init (void)
         }          }
   
         if (shm_config->hdr->use_mb_globals == TRUE) {          if (shm_config->hdr->use_mb_globals == TRUE) {
             mbpartition = shm_config->hdr->partition;              mbpartition = SOA(shm_config->hdr->partition);
         }          }
   
         symtab_release_sem ();          symtab_release_sem ();
Line 217  short symtab_get_sem(void) Line 224  short symtab_get_sem(void)
         sleep (1);          sleep (1);
   
     }      }
     fprintf (stderr, "symtab_get_sem:  fail\r\n");      logprintf (FM_LOG_ERROR, "symtab_get_sem:  fail");
           
     have_symtab_sem = FALSE;      have_symtab_sem = FALSE;
     return FALSE;      return FALSE;
Line 243  void symtab_shm (short action, char *key Line 250  void symtab_shm (short action, char *key
     register int i;      register int i;
     char *old_partition = partition;      char *old_partition = partition;
   
       global (action, key, data);
       return;
       
     if (shm_config->hdr->use_mb_globals == FALSE) {      if (shm_config->hdr->use_mb_globals == FALSE) {
         symtab_bltin (action, key, data);          symtab_bltin (action, key, data);
         return;          return;
Line 647  no_with: Line 657  no_with:
                                   
                 } while (i < PSIZE);                  } while (i < PSIZE);
             }              }
             else {  
                 printf ("alphptr not found\r\n");  
             }  
   
             merr_raise (M6);              merr_raise (M6);
             data[0] = EOL;              data[0] = EOL;
                           
             return;              return;
   
   
   
   
   
         case set_sym:                   /* store/create variable */          case set_sym:                   /* store/create variable */
   
   
Removed from v.1.12  
changed lines
  Added in v.1.14

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>