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

Diff for /freem/src/symtab_dispatch.c between versions 1.4 and 1.6

version 1.4, 2025/03/27 03:27:35 version 1.6, 2025/04/28 14:52:54
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.6  2025/04/28 14:52:54  snw
    *   Temporarily revert global handler refactor and fix reference regression in xecline
    *
    *   Revision 1.5  2025/04/13 04:22:43  snw
    *   Fix snprintf calls
    *
  *   Revision 1.4  2025/03/27 03:27:35  snw   *   Revision 1.4  2025/03/27 03:27:35  snw
  *   Install init scripts to share/freem/examples/init and fix regression in method dispatch   *   Install init scripts to share/freem/examples/init and fix regression in method dispatch
  *   *
Line 58  void symtab (short action, char *key, ch Line 64  void symtab (short action, char *key, ch
     mref_init (r, MREF_RT_LOCAL, "");      mref_init (r, MREF_RT_LOCAL, "");
     internal_to_mref (r, key);      internal_to_mref (r, key);
   
       /*
     res = obj_is_object (r->name);          res = obj_is_object (r->name);    
   
     if (res == TRUE) {      if (res == TRUE) {
Line 73  void symtab (short action, char *key, ch Line 80  void symtab (short action, char *key, ch
   
         if (r->subscript_count == 0 && action == kill_sym) {          if (r->subscript_count == 0 && action == kill_sym) {
                           
             if (destructor_ct < 10) {                             if (destructor_ct < 10) {                
                 snprintf (destructors[destructor_ct++], 50, "DESTROY^%%SYSOOP(\"%s\",.%s)", t_cls, r->name);                  snprintf (destructors[destructor_ct++], OBJ_DSTRSIZE - 1, "DESTROY^%%SYSOOP(\"%s\",.%s)", t_cls, r->name);
             }              }
                           
             obj_destroy (key);              obj_destroy (key);
                           
         }          }
                   
     }          }
       */
           
     if (action != fra_order && action != fra_query) {      if (action != fra_order && action != fra_query) {
         for (i = 0; i < r->subscript_count; i++) {          for (i = 0; i < r->subscript_count; i++) {
Removed from v.1.4  
changed lines
  Added in v.1.6

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