cvsuser 04/12/07 13:38:05
Modified: dynclasses pylist.pmc pystring.pmc
include/parrot py_func.h
src py_func.c
Log:
Eliminate warning message
Revision Changes Path
1.5 +4 -6 parrot/dynclasses/pylist.pmc
Index: pylist.pmc
===================================================================
RCS file: /cvs/public/parrot/dynclasses/pylist.pmc,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- pylist.pmc 3 Dec 2004 17:10:04 -0000 1.4
+++ pylist.pmc 7 Dec 2004 21:38:02 -0000 1.5
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: pylist.pmc,v 1.4 2004/12/03 17:10:04 rubys Exp $
+$Id: pylist.pmc,v 1.5 2004/12/07 21:38:02 rubys Exp $
=head1 NAME
@@ -20,8 +20,6 @@
#include "parrot/parrot.h"
-extern PMC* parrot_py_make_slice(Interp *interpreter, PMC *self, PMC *key);
-
/* cache of classes referenced */
static INTVAL dynclass_PyInt;
static INTVAL dynclass_PyList;
@@ -93,7 +91,7 @@
void delete_keyed (PMC* key) {
if (key->vtable->base_type == enum_class_Slice) {
List *list = (List *)PMC_data(SELF);
- PMC *slice = parrot_py_make_slice(INTERP, SELF, key);
+ PMC *slice = Parrot_py_make_slice(INTERP, SELF, key);
parrot_range_t *range = PMC_struct_val(slice);
INTVAL start = RVal_int(range->start);
INTVAL end = RVal_int(range->end);
@@ -180,7 +178,7 @@
PMC* get_pmc_keyed (PMC* key) {
if (key->vtable->base_type == enum_class_Slice) {
- PMC *slice = parrot_py_make_slice(INTERP, SELF, key);
+ PMC *slice = Parrot_py_make_slice(INTERP, SELF, key);
parrot_range_t *range = PMC_struct_val(slice);
INTVAL start = RVal_int(range->start);
INTVAL end = RVal_int(range->end);
@@ -380,7 +378,7 @@
void set_pmc_keyed (PMC* key, PMC* value) {
if (key->vtable->base_type == enum_class_Slice) {
List *list = (List *)PMC_data(SELF);
- PMC *slice = parrot_py_make_slice(INTERP, SELF, key);
+ PMC *slice = Parrot_py_make_slice(INTERP, SELF, key);
parrot_range_t *range = PMC_struct_val(slice);
INTVAL start = RVal_int(range->start);
INTVAL end = RVal_int(range->end);
1.5 +2 -4 parrot/dynclasses/pystring.pmc
Index: pystring.pmc
===================================================================
RCS file: /cvs/public/parrot/dynclasses/pystring.pmc,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- pystring.pmc 3 Dec 2004 17:10:04 -0000 1.4
+++ pystring.pmc 7 Dec 2004 21:38:02 -0000 1.5
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: pystring.pmc,v 1.4 2004/12/03 17:10:04 rubys Exp $
+$Id: pystring.pmc,v 1.5 2004/12/07 21:38:02 rubys Exp $
=head1 NAME
@@ -23,8 +23,6 @@
/* cache of classes referenced */
static INTVAL dynclass_PyString;
-extern PMC* parrot_py_make_slice(Interp *interpreter, PMC *self, PMC *key);
-
pmclass PyString extends PyObject dynpmc group python_group {
/*
@@ -153,7 +151,7 @@
PMC* get_pmc_keyed (PMC *key) {
if (key->vtable->base_type == enum_class_Slice) {
- PMC *slice = parrot_py_make_slice(INTERP, SELF, key);
+ PMC *slice = Parrot_py_make_slice(INTERP, SELF, key);
parrot_range_t *range = PMC_struct_val(slice);
INTVAL start = RVal_int(range->start);
INTVAL end = RVal_int(range->end);
1.5 +2 -1 parrot/include/parrot/py_func.h
Index: py_func.h
===================================================================
RCS file: /cvs/public/parrot/include/parrot/py_func.h,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- py_func.h 22 Jul 2004 08:01:16 -0000 1.4
+++ py_func.h 7 Dec 2004 21:38:03 -0000 1.5
@@ -1,7 +1,7 @@
/* py_func.h
* Copyright: 2001-2004 The Perl Foundation. All Rights Reserved.
* CVS Info
- * $Id: py_func.h,v 1.4 2004/07/22 08:01:16 leo Exp $
+ * $Id: py_func.h,v 1.5 2004/12/07 21:38:03 rubys Exp $
* Overview:
* Pythpon functions
* Data Structure and Algorithms:
@@ -19,6 +19,7 @@
void Parrot_py_exit(Interp *interpreter);
PMC* Parrot_py_get_slice(Interp*, PMC*, PMC* key);
PMC* Parrot_py_set_slice(Interp*, PMC*, PMC* key, PMC* src);
+PMC* Parrot_py_make_slice(Interp *interpreter, PMC *self, PMC *key);
#endif /* PARROT_PY_FUNC_H_GUARD */
1.48 +4 -4 parrot/src/py_func.c
Index: py_func.c
===================================================================
RCS file: /cvs/public/parrot/src/py_func.c,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -r1.47 -r1.48
--- py_func.c 30 Nov 2004 21:49:24 -0000 1.47
+++ py_func.c 7 Dec 2004 21:38:05 -0000 1.48
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2004 The Perl Foundation. All Rights Reserved.
-$Id: py_func.c,v 1.47 2004/11/30 21:49:24 rubys Exp $
+$Id: py_func.c,v 1.48 2004/12/07 21:38:05 rubys Exp $
=head1 NAME
@@ -837,7 +837,7 @@
* the aggregate.
*/
PMC*
-parrot_py_make_slice(Interp *interpreter, PMC *self, PMC *key)
+Parrot_py_make_slice(Interp *interpreter, PMC *self, PMC *key)
{
parrot_range_t *range;
PMC *slice;
@@ -885,7 +885,7 @@
INTVAL start, end, iitem;
INTVAL j, count, value_length;
- slice = parrot_py_make_slice(interpreter, self, key);
+ slice = Parrot_py_make_slice(interpreter, self, key);
range = PMC_struct_val(slice);
type = self->vtable->base_type;
@@ -946,7 +946,7 @@
PMC *res, *slice, *item;
INTVAL start, end, iitem;
- slice = parrot_py_make_slice(interpreter, self, key);
+ slice = Parrot_py_make_slice(interpreter, self, key);
range = PMC_struct_val(slice);
type = self->vtable->base_type;
