On Mon, Jan 14, 2002 at 10:41:07AM -0800, Steve Fink wrote: > After this and Nicholas Clark's changes, compiler warnings may > actually mean something now!
Thanks (although I don't feel like I really deserve it, as I didn't think I'd supplied patches for very much, certainly not compared with what others are providing. And I'm only tidying things up, not making new functionality work) Meanwhile, this patch dropped between the cracks, neither to be applied nor formally rejected. It will remove squillions of warnings about shadowing "index" due to vtable.h having function parameters with that name. Nicholas Clark -- ENOJOB http://www.ccl4.org/~nick/CV.html --- vtable_h.pl~ Mon Dec 31 16:15:23 2001 +++ vtable_h.pl Wed Jan 9 20:15:11 2002 @@ -1,3 +1,7 @@ +#!/usr/bin/perl + +# $Id: vtable_h.pl,v 1.8 2001/12/31 15:58:28 simon Exp $ + use Parrot::Vtable; my %vtable = parse_vtable(); @@ -5,17 +9,11 @@ open OUT, ">include/parrot/vtable.h" or die $!; print OUT <<'EOF'; -/* vtable.h - * Copyright: (When this is determined...it will go here) - * CVS Info - * $Id: vtable_h.pl,v 1.8 2001/12/31 15:58:28 simon Exp $ - * Overview: - * Defines the base PMC vtable structure - * Data Structure and Algorithms: - * History: - * Notes: - * References: - */ +/* +** !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +** +** This file is generated automatically from 'vtable.tbl' by vtable_h.pl +*/ #if !defined(PARROT_VTABLE_H_GUARD) #define PARROT_VTABLE_H_GUARD --- vtable.tbl~ Sat Jan 5 12:49:16 2002 +++ vtable.tbl Wed Jan 9 20:14:57 2002 @@ -1,3 +1,4 @@ +# $Id: $ # This is the main vtable data # Lines have the following format: # method type \tab return type name \tab type arg1 \tab type arg2 @@ -24,26 +25,26 @@ unique INTVAL real_size unique void destroy unique INTVAL get_integer -unique INTVAL get_integer_index INTVAL index -unique INTVAL get_integer_index_s STRING* index +unique INTVAL get_integer_index INTVAL idx +unique INTVAL get_integer_index_s STRING* idx unique FLOATVAL get_number -unique FLOATVAL get_number_index INTVAL index -unique FLOATVAL get_number_index_s STRING* index +unique FLOATVAL get_number_index INTVAL idx +unique FLOATVAL get_number_index_s STRING* idx unique STRING* get_string -unique STRING* get_string_index INTVAL index -unique STRING* get_string_index_s STRING* index +unique STRING* get_string_index INTVAL idx +unique STRING* get_string_index_s STRING* idx unique BOOLVAL get_bool unique void* get_value unique BOOLVAL is_same PMC* pmc2 int void set_integer INTVAL value -unique void set_integer_index INTVAL value INTVAL index -unique void set_integer_index_s INTVAL value STRING* index +unique void set_integer_index INTVAL value INTVAL idx +unique void set_integer_index_s INTVAL value STRING* idx float void set_number FLOATVAL value -unique void set_number_index FLOATVAL value INTVAL index -unique void set_number_index_s FLOATVAL value STRING* index +unique void set_number_index FLOATVAL value INTVAL idx +unique void set_number_index_s FLOATVAL value STRING* idx str void set_string STRING* value -unique void set_string_index STRING* value INTVAL index -unique void set_string_index_s STRING* value STRING* index +unique void set_string_index STRING* value INTVAL idx +unique void set_string_index_s STRING* value STRING* idx unique void set_value void* value num void add PMC* value PMC* dest num void subtract PMC* value PMC* dest