[PD-cvs] externals/grill/vasp/source main.cpp,1.19,1.20 obj_imm.cpp,1.9,1.10 obj_peaks.cpp,1.5,1.6 obj_q.cpp,1.2,1.3 ops_search.cpp,1.7,1.8

[Thomas Grill]

Update of /cvsroot/pure-data/externals/grill/vasp/source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29957/source

Modified Files:
	main.cpp obj_imm.cpp obj_peaks.cpp obj_q.cpp ops_search.cpp 
Log Message:
 ""

Index: main.cpp
===================================================================
RCS file: /cvsroot/pure-data/externals/grill/vasp/source/main.cpp,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** main.cpp	10 Nov 2003 03:37:03 -0000	1.19
--- main.cpp	31 Aug 2004 04:05:09 -0000	1.20
***************
*** 13,17 ****
  
  
! const C *VASP_VERSION = "0.1.3pre11";
  
  #include "opfuns.h"
--- 13,17 ----
  
  
! const C *VASP_VERSION = "0.1.3pre12";
  
  #include "opfuns.h"

Index: obj_q.cpp
===================================================================
RCS file: /cvsroot/pure-data/externals/grill/vasp/source/obj_q.cpp,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** obj_q.cpp	5 Dec 2002 05:34:19 -0000	1.2
--- obj_q.cpp	31 Aug 2004 04:05:15 -0000	1.3
***************
*** 52,55 ****
--- 52,57 ----
  			for(I i = 0; i < cnt; ++i,++p) SetFloat(lst[i],*p);
  			ToOutList(0,lst);
+ 
+             delete buf;
  		}
  	}
***************
*** 111,114 ****
--- 113,118 ----
  			ToOutList(0,pos);
  			ToOutList(1,lst);
+ 
+             delete buf;
  		}
  	}

Index: obj_imm.cpp
===================================================================
RCS file: /cvsroot/pure-data/externals/grill/vasp/source/obj_imm.cpp,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** obj_imm.cpp	9 Apr 2003 02:36:31 -0000	1.9
--- obj_imm.cpp	31 Aug 2004 04:05:15 -0000	1.10
***************
*** 100,103 ****
--- 100,105 ----
  			Vasp ret(len,vr);
  			ToOutVasp(0,ret);
+ 
+             delete buf;
  		}
  	}

Index: ops_search.cpp
===================================================================
RCS file: /cvsroot/pure-data/externals/grill/vasp/source/ops_search.cpp,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** ops_search.cpp	6 Apr 2003 02:43:06 -0000	1.7
--- ops_search.cpp	31 Aug 2004 04:05:15 -0000	1.8
***************
*** 80,89 ****
  { 
  	Vasp *ret = NULL;
! 	if(src.Vectors() > 1) 
! 		post("%s -  More than one vector in vasp!",p.opName());
  	else if(arg.CanbeFloat() || (arg.IsList() && arg.GetList().Count() >= 1)) {
  		I fr = src.Frames();
  		I o = src.Vector(0).Offset();
! 		I sz = src.Buffer(0)->Frames();
  
  		CVasp all(src);
--- 80,92 ----
  { 
  	Vasp *ret = NULL;
! 	if(src.Vectors() != 1) 
! 		post("%s - Need exactly one vector in vasp!",p.opName());
  	else if(arg.CanbeFloat() || (arg.IsList() && arg.GetList().Count() >= 1)) {
  		I fr = src.Frames();
  		I o = src.Vector(0).Offset();
! 
!         VBuffer *buf = src.Buffer(0);
!         I sz = buf->Frames();
!         delete buf;
  
  		CVasp all(src);

Index: obj_peaks.cpp
===================================================================
RCS file: /cvsroot/pure-data/externals/grill/vasp/source/obj_peaks.cpp,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** obj_peaks.cpp	9 Apr 2003 02:36:31 -0000	1.5
--- obj_peaks.cpp	31 Aug 2004 04:05:15 -0000	1.6
***************
*** 99,102 ****
--- 99,104 ----
  			delete[] pos;
  			delete[] lst;
+ 
+             delete buf;
  		}
  	}