[foo-cvs] foo/elkfoo/src bpf.m,1.3,1.4 module.m,1.2,1.3 soundfile.m,1.2,1.3

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

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

Modified Files:
	bpf.m module.m soundfile.m 
Log Message:
[class description] -> [[class description] cString] (char * instead of NSString *) [snd dealloc] -> RELEASE(snd) (never call dealloc directly, since that violates the reference counting mechanism. instead use [snd release] or the GC-safe RELEASE() macro)

Index: soundfile.m
===================================================================
RCS file: /cvsroot/foo/foo/elkfoo/src/soundfile.m,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** soundfile.m	5 Aug 2004 18:58:52 -0000	1.2
--- soundfile.m	5 Aug 2004 22:30:31 -0000	1.3
***************
*** 332,337 ****
        Primitive_Error("internal inconsistency");
      }
! //  [snd free];
!   [snd dealloc];
  //   Alloca_End;
  
--- 332,336 ----
        Primitive_Error("internal inconsistency");
      }
!   RELEASE(snd);
  //   Alloca_End;
  

Index: bpf.m
===================================================================
RCS file: /cvsroot/foo/foo/elkfoo/src/bpf.m,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** bpf.m	5 Aug 2004 18:58:52 -0000	1.3
--- bpf.m	5 Aug 2004 22:30:31 -0000	1.4
***************
*** 68,72 ****
      BPF_T(bpf)->type = Null;
      BPF_T(bpf)->context = Get_Context();
!     BPF_T(bpf)->type = Intern((char*)[[object class] name]);
      GC_Unlink;
      return bpf;
--- 68,72 ----
      BPF_T(bpf)->type = Null;
      BPF_T(bpf)->context = Get_Context();
!     BPF_T(bpf)->type = Intern([[[object class] description] cString]);
      GC_Unlink;
      return bpf;

Index: module.m
===================================================================
RCS file: /cvsroot/foo/foo/elkfoo/src/module.m,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** module.m	5 Aug 2004 18:58:52 -0000	1.2
--- module.m	5 Aug 2004 22:30:31 -0000	1.3
***************
*** 91,95 ****
      MODULE_T(module)->type = Null;
      MODULE_T(module)->context = Get_Context();
!     MODULE_T(module)->type = Intern((char*)[class name]);
      GC_Unlink;
      return module;
--- 91,95 ----
      MODULE_T(module)->type = Null;
      MODULE_T(module)->context = Get_Context();
!     MODULE_T(module)->type = Intern([[class description] cString]);
      GC_Unlink;
      return module;