cvsuser 04/09/23 08:25:58
Modified: build_tools build_nativecall.pl
include/parrot dod.h
src dod.c
Log:
minus 2 warnings
Revision Changes Path
1.58 +4 -4 parrot/build_tools/build_nativecall.pl
Index: build_nativecall.pl
===================================================================
RCS file: /cvs/public/parrot/build_tools/build_nativecall.pl,v
retrieving revision 1.57
retrieving revision 1.58
diff -u -w -r1.57 -r1.58
--- build_nativecall.pl 21 Sep 2004 15:27:41 -0000 1.57
+++ build_nativecall.pl 23 Sep 2004 15:25:56 -0000 1.58
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: build_nativecall.pl,v 1.57 2004/09/21 15:27:41 dan Exp $
+# $Id: build_nativecall.pl,v 1.58 2004/09/23 15:25:56 leo Exp $
=head1 NAME
@@ -156,7 +156,7 @@
/*
* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
*
- * This file is generated automatically by build_nativecall.pl.
+ * This file is generated automatically by build_tools/build_nativecall.pl.
*
* Any changes made here will be lost!
*
@@ -165,7 +165,7 @@
/* nci.c
* Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
* CVS Info
- * $Id: build_nativecall.pl,v 1.57 2004/09/21 15:27:41 dan Exp $
+ * $Id: build_nativecall.pl,v 1.58 2004/09/23 15:25:56 leo Exp $
* Overview:
* Native Call Interface routines. The code needed to build a
* parrot to C call frame is in here
@@ -368,7 +368,7 @@
/t/ && do {my $regnum = $reg_ref->{s}++;
my $tempnum = $tempcounter++;
push @extra_preamble, "char *tempvar$tempnum =
string_to_cstring(interpreter, REG_STR($regnum));\n";
- push @extra_postamble, "Parrot_free_cstring(tempvar$tempnum);\n";
+ push @extra_postamble, "string_cstring_free(tempvar$tempnum);\n";
return "tempvar$tempnum";
};
/b/ && do {my $regnum = $reg_ref->{s}++;
1.21 +2 -2 parrot/include/parrot/dod.h
Index: dod.h
===================================================================
RCS file: /cvs/public/parrot/include/parrot/dod.h,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -w -r1.20 -r1.21
--- dod.h 7 Sep 2004 12:18:25 -0000 1.20
+++ dod.h 23 Sep 2004 15:25:57 -0000 1.21
@@ -1,7 +1,7 @@
/* dod.h
* Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
* CVS Info
- * $Id: dod.h,v 1.20 2004/09/07 12:18:25 leo Exp $
+ * $Id: dod.h,v 1.21 2004/09/23 15:25:57 leo Exp $
* Overview:
* Handles dead object destruction of the various headers
* Data Structure and Algorithms:
@@ -80,7 +80,7 @@
void Parrot_gc_ms_init(Interp* interpreter);
void Parrot_gc_ims_init(Interp* interpreter);
/* do_dod_run function for MS */
-void Parrot_dod_ms_run(Interp *interpreter, UINTVAL flags);
+void Parrot_dod_ms_run(Interp *interpreter, int flags);
void Parrot_dod_ims_wb(Interp*, PMC *, PMC *);
/*
1.131 +2 -2 parrot/src/dod.c
Index: dod.c
===================================================================
RCS file: /cvs/public/parrot/src/dod.c,v
retrieving revision 1.130
retrieving revision 1.131
diff -u -w -r1.130 -r1.131
--- dod.c 7 Sep 2004 12:18:26 -0000 1.130
+++ dod.c 23 Sep 2004 15:25:58 -0000 1.131
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: dod.c,v 1.130 2004/09/07 12:18:26 leo Exp $
+$Id: dod.c,v 1.131 2004/09/23 15:25:58 leo Exp $
=head1 NAME
@@ -1121,7 +1121,7 @@
}
void
-Parrot_dod_ms_run(Interp *interpreter, UINTVAL flags)
+Parrot_dod_ms_run(Interp *interpreter, int flags)
{
struct Arenas *arena_base = interpreter->arena_base;
struct Small_Object_Pool *header_pool;
