foo-cvs

[Martin R. <ru...@us...>]

Update of /cvsroot/foo/foo/elkfoo/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27421

Modified Files:
	modules.m task.m tell.m 
Log Message:
fixed more potentially doubled RELEASEs (we still need a strategy for creating and releasing NSAutoreleasePools constantly to really get rid of the memory)

Index: modules.m
===================================================================
RCS file: /cvsroot/foo/foo/elkfoo/src/modules.m,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** modules.m	15 Aug 2004 16:42:21 -0000	1.5
--- modules.m	16 Aug 2004 04:42:26 -0000	1.6
***************
*** 825,829 ****
    //     Alloca_Begin;
      
!   name = AUTORELEASE([NSString stringWithCString: Get_String(argv[1])]);
    if (argc == 3)
      {
--- 825,829 ----
    //     Alloca_Begin;
      
!   name = [NSString stringWithCString: Get_String(argv[1])];
    if (argc == 3)
      {

Index: task.m
===================================================================
RCS file: /cvsroot/foo/foo/elkfoo/src/task.m,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** task.m	15 Aug 2004 20:30:48 -0000	1.5
--- task.m	16 Aug 2004 04:42:26 -0000	1.6
***************
*** 346,350 ****
      }
  
!   filename = AUTORELEASE([NSString stringWithCString: output]);
    [context openOutput: filename
  	   addin:(int)((TASK_T(task)->incremental == 1) ||
--- 346,350 ----
      }
  
!   filename = [NSString stringWithCString: output];
    [context openOutput: filename
  	   addin:(int)((TASK_T(task)->incremental == 1) ||

Index: tell.m
===================================================================
RCS file: /cvsroot/foo/foo/elkfoo/src/tell.m,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** tell.m	13 Aug 2004 21:34:39 -0000	1.15
--- tell.m	16 Aug 2004 04:42:26 -0000	1.16
***************
*** 178,188 ****
      ret = A_Get_Object_From_Buffer(valbuf, rettype);
  
!   RELEASE(invoc);
!   free(valbuf);
  
!   if (Nullp(ret))
!     {
!       Primitive_Error("internal error with return");
!     }
    }
  
--- 178,187 ----
      ret = A_Get_Object_From_Buffer(valbuf, rettype);
  
!     free(valbuf);
  
!     if (Nullp(ret))
!       {
! 	Primitive_Error("internal error with return");
!       }
    }