[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.7 and 1.10

version 1.7, 2025/03/26 15:17:12 version 1.10, 2025/04/10 01:24:39
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.10  2025/04/10 01:24:39  snw
    *   Remove C++ style comments
    *
    *   Revision 1.9  2025/04/09 19:52:02  snw
    *   Eliminate as many warnings as possible while building with -Wall
    *
    *   Revision 1.8  2025/04/04 12:46:13  snw
    *   Patch Solaris 8 crash and bump version to 0.63.1-rc1
    *
  *   Revision 1.7  2025/03/26 15:17:12  snw   *   Revision 1.7  2025/03/26 15:17:12  snw
  *   Fall back to global-backed SSVNs when memory-backed globals fail in attempt to fix Tru64   *   Fall back to global-backed SSVNs when memory-backed globals fail in attempt to fix Tru64
  *   *
Line 118  void symtab_init (void) Line 127  void symtab_init (void)
         shm_config->hdr->PSIZE = DEFPSIZE;          shm_config->hdr->PSIZE = DEFPSIZE;
         shm_config->hdr->argptr = mbpartition;          shm_config->hdr->argptr = mbpartition;
                   
        
         fprintf (stderr, "symtab_init:  initializing memory-backed globals\r\n");                  fprintf (stderr, "symtab_init:  initializing memory-backed globals\r\n");        
   
         semid_symtab = semget (symtab_sk, 1, 0666 | IPC_CREAT);          semid_symtab = semget (symtab_sk, 1, 0666 | IPC_CREAT);
Line 129  void symtab_init (void) Line 139  void symtab_init (void)
             fprintf (stderr, "symtab_init:  symbol table semaphore created with semid %d\r\n", semid_symtab);              fprintf (stderr, "symtab_init:  symbol table semaphore created with semid %d\r\n", semid_symtab);
         }          }
   
   #if defined(__sun__)
           fprintf (stderr, "symtab_init:  falling back to global-backed structured system variables\r\n");
           shm_config->hdr->use_mb_globals = FALSE;
           return;
   #endif
   
   
         arg.val = 1;          arg.val = 1;
         if (semctl (semid_symtab, 0, SETVAL, arg) == -1) {          if (semctl (semid_symtab, 0, SETVAL, arg) == -1) {
             fprintf (stderr, "symtab_init:  failed to initialize symbol table semaphore\r\n");              fprintf (stderr, "symtab_init:  failed to initialize symbol table semaphore\r\n");
Line 167  void symtab_init (void) Line 184  void symtab_init (void)
                   
         mbpartition = shm_config->hdr->partition;          mbpartition = shm_config->hdr->partition;
   
           symtab_release_sem ();
     }      }
         
 }  }
Line 579  no_with: Line 597  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 622  no_with: Line 640  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;
Line 1829  zinvend: Line 1850  zinvend:
                     *newptr++ = k1;                      *newptr++ = k1;
                     *newptr++ = set_sym;                      *newptr++ = set_sym;
                                           
                     //if (mcmnd != ZNEW) test = FALSE;                      /*if (mcmnd != ZNEW) test = FALSE; */
   
                     return;                      return;
   
Removed from v.1.7  
changed lines
  Added in v.1.10

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