[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.9 and 1.12

version 1.9, 2025/04/09 19:52:02 version 1.12, 2025/04/14 19:56:27
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.12  2025/04/14 19:56:27  snw
    *   Working towards FreeBSD fix
    *
    *   Revision 1.11  2025/04/13 04:22:43  snw
    *   Fix snprintf calls
    *
    *   Revision 1.10  2025/04/10 01:24:39  snw
    *   Remove C++ style comments
    *
  *   Revision 1.9  2025/04/09 19:52:02  snw   *   Revision 1.9  2025/04/09 19:52:02  snw
  *   Eliminate as many warnings as possible while building with -Wall   *   Eliminate as many warnings as possible while building with -Wall
  *   *
Line 157  void symtab_init (void) Line 166  void symtab_init (void)
         mbpartition = (char *) shm_alloc ((size_t) PSIZE + 2);          mbpartition = (char *) shm_alloc ((size_t) PSIZE + 2);
         if (mbpartition != NULL) {          if (mbpartition != NULL) {
             shm_config->hdr->use_mb_globals = TRUE;              shm_config->hdr->use_mb_globals = TRUE;
               shm_config->hdr->partition = mbpartition;
         }          }
         else {          else {
             fprintf (stderr, "symtab_init:  falling back to global-backed structured system variables\r\n");              fprintf (stderr, "symtab_init:  falling back to global-backed structured system variables\r\n");
             shm_config->hdr->use_mb_globals = FALSE;              shm_config->hdr->use_mb_globals = FALSE;
         }          }
   
         shm_config->hdr->partition = mbpartition;  
                   
         if (symtab_get_sem ()) {          if (symtab_get_sem ()) {
             for (i = 0; i < 128; i++) shm_config->hdr->alphptr[i] = 0L;              for (i = 0; i < 128; i++) shm_config->hdr->alphptr[i] = 0L;
Line 178  void symtab_init (void) Line 186  void symtab_init (void)
             fprintf (stderr, "symtab_init:  could not attach to symbol table semaphore\r\n");              fprintf (stderr, "symtab_init:  could not attach to symbol table semaphore\r\n");
             exit (1);              exit (1);
         }          }
           
         mbpartition = shm_config->hdr->partition;          if (shm_config->hdr->use_mb_globals == TRUE) {
               mbpartition = shm_config->hdr->partition;
           }
   
         symtab_release_sem ();          symtab_release_sem ();
     }      }
Line 388  void symtab_bltin (short action, char *k Line 398  void symtab_bltin (short action, char *k
     stcnv_m2c (tt_with);      stcnv_m2c (tt_with);
     stcnv_m2c (tt_key);      stcnv_m2c (tt_key);
           
     snprintf (key, 100, "%s%s\201\201", tt_with, tt_key);      sprintf (key, "%s%s\201\201", tt_with, tt_key);
   
           
 no_with:      no_with:    
Line 594  no_with: Line 604  no_with:
             /* OLD get_sym routine */                   /* OLD get_sym routine */     
             if ((i = alphptr[(int) key[0]])) {              if ((i = alphptr[(int) key[0]])) {
   
 //                printf ("alphptr match; writing_mb = %d\r\n", writing_mb);                  /*                printf ("alphptr match; writing_mb = %d\r\n", writing_mb);                */
                                   
                 k = 1;                  k = 1;
                 j = i + 1;                      /* first char always matches! */                  j = i + 1;                      /* first char always matches! */
Line 1847  zinvend: Line 1857  zinvend:
                     *newptr++ = k1;                      *newptr++ = k1;
                     *newptr++ = set_sym;                      *newptr++ = set_sym;
                                           
                     //if (mcmnd != ZNEW) test = FALSE;                      /*if (mcmnd != ZNEW) test = FALSE; */
   
                     return;                      return;
   
Line 1914  zinvend: Line 1924  zinvend:
                                           
                     char esbuf[256];                      char esbuf[256];
   
                     snprintf (esbuf, 255, "%d\201", estack);                      snprintf (esbuf, sizeof (esbuf) - 1, "%d\201", estack);
   
                     j = stcpy (newptr, esbuf);                      j = stcpy (newptr, esbuf);
   
Removed from v.1.9  
changed lines
  Added in v.1.12

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