projects
/
idzebra-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix type of len
[idzebra-moved-to-github.git]
/
recctrl
/
perlread.c
diff --git
a/recctrl/perlread.c
b/recctrl/perlread.c
index
152beeb
..
8dee361
100644
(file)
--- a/
recctrl/perlread.c
+++ b/
recctrl/perlread.c
@@
-1,4
+1,4
@@
-/* $Id: perlread.c,v 1.2 2002-11-15 22:01:42 adam 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
Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002
Index Data Aps
@@
-21,7
+21,6
@@
Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
*/
#if HAVE_PERL
*/
#if HAVE_PERL
-#define PERL_IMPLICIT_CONTEXT
#include "perlread.h"
#include "EXTERN.h"
#include "perl.h"
#include "perlread.h"
#include "EXTERN.h"
#include "perl.h"
@@
-170,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 */
}
/* 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 */
}
/* Set the result in the context */