From 332eb499a2a71d157306c6bedeb491bd4ee6e243 Mon Sep 17 00:00:00 2001
From: Logan Johnson <ljohnson@users.sourceforge.net>
Date: Thu, 1 May 2003 16:04:10 +0000
Subject: [PATCH] Fix SWIGTYPE output typemaps for Pike module.

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@4759 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 SWIG/Lib/pike/pike.swg | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/SWIG/Lib/pike/pike.swg b/SWIG/Lib/pike/pike.swg
index 125a8edca..9b73d2193 100644
--- a/SWIG/Lib/pike/pike.swg
+++ b/SWIG/Lib/pike/pike.swg
@@ -111,8 +111,7 @@ extern "C" {
 %typemap(out, pikedesc="tStr") char *		"push_text($1);";
 
 /* Pointers, references, and arrays */
-%typemap(out) SWIGTYPE*, SWIGTYPE &, SWIGTYPE []
-        "$result = SWIG_NewPointerObj((void *) $1, $1_descriptor, $owner);";
+%typemap(out, pikedesc="tObj") SWIGTYPE*, SWIGTYPE &, SWIGTYPE [] "push_object(SWIG_NewPointerObj((void *) $1, $1_descriptor, $owner));";
 
 /* Void return value; don't push anything */
 %typemap(out, pikedesc="tVoid") void		"";
@@ -128,19 +127,19 @@ extern "C" {
 %typemap(out, pikedesc="tStr") char [ANY], const char [ANY] "push_text($1);";
 
 /* Primitive types--return by value */
-%typemap(out) SWIGTYPE 
+%typemap(out, "tObj") SWIGTYPE 
 #ifdef __cplusplus
 {
   $&1_ltype resultptr;
   resultptr = new $1_ltype(($1_ltype &) $1);
-  $result = SWIG_NewPointerObj((void *) resultptr, $&1_descriptor, 1);
+  push_object(SWIG_NewPointerObj((void *) resultptr, $&1_descriptor, 1));
 }
 #else
 {
   $&1_ltype resultptr;
   resultptr = ($&1_ltype) malloc(sizeof($1_type));
   memmove(resultptr, &$1, sizeof($1_type));
-  $result = SWIG_NewPointerObj((void *) resultptr, $&1_descriptor, 1);
+  push_object(SWIG_NewPointerObj((void *) resultptr, $&1_descriptor, 1));
 }
 #endif