From eb605e77ed5e4cbc21e32adce1888261148bb7b4 Mon Sep 17 00:00:00 2001 From: pop Date: Mon, 18 Nov 2002 13:11:30 +0000 Subject: [PATCH] Prototype changed for grs_perl_get_mem, grs_perl_get_dh in perl/IDZebra.i in order to allow proper wrapping code generation, without c warnings --- recctrl/perlread.c | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/recctrl/perlread.c b/recctrl/perlread.c index 3a08826..8dee361 100644 --- a/recctrl/perlread.c +++ b/recctrl/perlread.c @@ -1,4 +1,4 @@ -/* $Id: perlread.c,v 1.3 2002-11-16 00:24:36 pop Exp $ +/* $Id: perlread.c,v 1.4 2002-11-18 13:11:30 pop Exp $ Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002 Index Data Aps @@ -169,12 +169,12 @@ void grs_perl_endf(struct perl_context *context, off_t offset) { } /* Get pointers from the context. Easyer to wrap this by SWIG */ -data1_handle grs_perl_get_dh(struct perl_context *context) { - return(context->dh); +data1_handle *grs_perl_get_dh(struct perl_context *context) { + return(&context->dh); } -NMEM grs_perl_get_mem(struct perl_context *context) { - return(context->mem); +NMEM *grs_perl_get_mem(struct perl_context *context) { + return(&context->mem); } /* Set the result in the context */ -- 1.7.10.4