Browse code

fixed missing UNPROTECT()

git-svn-id: https://hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/Rdisop@64461 bc3139a8-67e5-0310-9ffc-ced21a209358

s.neumann authored on 26/03/2012 19:46:37
Showing 3 changed files

... ...
@@ -1,3 +1,8 @@
1
+2012-03-26  Steffen Neumann  <sneumann@ipb-halle.de>
2
+
3
+	* src/disop.cpp: fixed missing UNPROTECT(), avoids warning 
4
+	and possibly memory corruprtion and crashes
5
+
1 6
 2012-03-11  Steffen Neumann  <sneumann@ipb-halle.de>
2 7
 	* Reverted Windows build hack
3 8
 
... ...
@@ -1,7 +1,7 @@
1 1
 Package: Rdisop
2 2
 Title: Decomposition of Isotopic Patterns
3
-Version: 1.15.8
4
-Date: 2012-03-11
3
+Version: 1.15.9
4
+Date: 2012-03-26
5 5
 Author: Anton Pervukhin <apervukh@minet.uni-jena.de>, Steffen Neumann <sneumann@ipb-halle.de> 
6 6
 Maintainer: Steffen Neumann <sneumann@ipb-halle.de>
7 7
 Description: Identification of metabolites using high precision mass
... ...
@@ -652,6 +652,8 @@ SEXP  rlistScores(multimap<score_type, ComposedElement, greater<score_type> > sc
652 652
 	// Get the list to be returned to R.
653 653
 	SEXP rl = rs.getReturnList();
654 654
 
655
+	UNPROTECT(1); // SEXP isotopes
656
+
655 657
 	if(exceptionMesg != NULL) {
656 658
 	  Rf_error(exceptionMesg);
657 659
 	}