Changeset 56e490c901bf7fa247d234373d597fb8deb48642

Timestamp:

04/27/10 17:13:49 (2 years ago)

Author:

Philip Herron <redbrain@…>

Parents:

8104e2d8423c4bdc9b20f14cc57bb02d1ad39e7e

Children:

b8cdd65fab4ae4d9db3e64af3aa7c0a672dde108

git-committer:

Philip Herron <redbrain@omicron.(none)> / 2010-04-27T17:13:49Z+0100

Message:

garbage collection on object definitions bug fix

Location:

src

Files:

• gg_garbage.c (modified) (2 diffs)
• obj_integer.c (modified) (1 diff)
• rr_context.c (modified) (1 diff)
• rr_runtime.c (modified) (1 diff)

src/gg_garbage.c

@@ -141 +141 @@
   if( sym )
     {
-      crl_debug("deleting object <%p>!\n", (void *) sym );
+      crl_debug("deleting object <%p>!\n", (void *) (*sym) );
 
       if( (*sym)->identifier )
@@ -182 +182 @@
           if( (*sym)->op_a.object_def )
             {
-              printf("shit son!\n");
               struct crl_type_obj_def_t * o = (*sym)->op_a.object_def;
+              crl_debug("freeing object definition <%s>!\n", o->identifier );
               crl_free( o->identifier );
               crl_garbage_free_context_branch( &(o->context) );

src/obj_integer.c

@@ -133 +133 @@
           init->op_a.integer = mpfr_get_si( z, GMP_RNDU );
 
-          mpfr_clear( x );
-          mpfr_clear( y );
-          mpfr_clear( z );
+          mpfr_clears (x, y, z, (mpfr_ptr) 0);
 
           retval = crl_obj_integer_init( init, o1->definition );

src/rr_context.c

@@ -390 +390 @@
 
       obj->type = STRUCTURE_OBJECT_DEF;
-      obj->type = STRUCTURE_OBJECT_DEF;
+      obj->op_a_t = STRUCTURE_OBJECT_DEF;
       obj->op_a.object_def = obj_def;
  
-      printf("trying to insert object def <%s> <0x%x>!\n", object_def->identifier, (void *) obj );
+      printf("trying to insert object def <%s> <%p>!\n", object_def->identifier, (void *) obj );
       crl_symbol_obj **s= crl_dd_hash_insert( crl_dd_hash_hash( object_def->identifier ),
                                               obj, ((*context)->curr->object_table) );

src/rr_runtime.c

@@ -143 +143 @@
       else { len--; }
     }
-  if( !f )
+  if( !f ) {
     crl_fatal("unable to find valid return address!\n");
+  }
 
   return retval;