develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35942 - in trunk: . config/gen/makefiles include/parrot lib/Parrot/Docs/Section src src/pmc t/pmc t/steps

From:
coke
Date:
January 23, 2009 21:09
Subject:
[svn:parrot] r35942 - in trunk: . config/gen/makefiles include/parrot lib/Parrot/Docs/Section src src/pmc t/pmc t/steps
Message ID:
20090124050933.D44A7CB9AE@x12.develooper.com
Author: coke
Date: Fri Jan 23 21:09:32 2009
New Revision: 35942

Removed:
   trunk/include/parrot/intlist.h
   trunk/src/intlist.c
   trunk/src/pmc/intlist.pmc
   trunk/t/pmc/intlist.t
Modified:
   trunk/DEPRECATED.pod
   trunk/MANIFEST
   trunk/PBC_COMPAT
   trunk/config/gen/makefiles/root.in
   trunk/include/parrot/parrot.h
   trunk/lib/Parrot/Docs/Section/C.pm
   trunk/src/list.c
   trunk/src/pmc/iterator.pmc
   trunk/src/pmc/pmc.num
   trunk/t/pmc/iterator.t
   trunk/t/steps/auto_pmc-01.t

Log:
TT #187 - remove intlist PMC

Modified: trunk/DEPRECATED.pod
==============================================================================
--- trunk/DEPRECATED.pod	(original)
+++ trunk/DEPRECATED.pod	Fri Jan 23 21:09:32 2009
@@ -43,8 +43,6 @@
 
 =item * enumerate [post 0.9.0] (TT #187)
 
-=item * intlist [post 0.9.0] (TT #187)
-
 =item * multiarray [post 0.9.0] (TT #187)
 
 =item * pair [post 0.9.0] (TT #187)

Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST	(original)
+++ trunk/MANIFEST	Fri Jan 23 21:09:32 2009
@@ -1,7 +1,7 @@
 # ex: set ro:
 # $Id$
 #
-# generated by tools/dev/mk_manifest_and_skip.pl Fri Jan 23 20:48:55 2009 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Sat Jan 24 04:46:33 2009 UT
 #
 # See tools/dev/install_files.pl for documentation on the
 # format of this file.
@@ -917,7 +917,6 @@
 include/parrot/imcc.h                                       [main]include
 include/parrot/inter_call.h                                 [main]include
 include/parrot/interpreter.h                                [main]include
-include/parrot/intlist.h                                    [main]include
 include/parrot/io.h                                         [main]include
 include/parrot/io_portable.h                                [main]include
 include/parrot/io_unix.h                                    [main]include
@@ -2838,7 +2837,6 @@
 src/inter_run.c                                             []
 src/interp_guts.h                                           []
 src/interpreter.c                                           []
-src/intlist.c                                               []
 src/io/api.c                                                []
 src/io/buffer.c                                             []
 src/io/core.c                                               []
@@ -2968,7 +2966,6 @@
 src/pmc/float.pmc                                           []
 src/pmc/hash.pmc                                            []
 src/pmc/integer.pmc                                         []
-src/pmc/intlist.pmc                                         []
 src/pmc/iterator.pmc                                        []
 src/pmc/key.pmc                                             []
 src/pmc/lexinfo.pmc                                         []
@@ -3390,7 +3387,6 @@
 t/pmc/globals.t                                             []
 t/pmc/hash.t                                                []
 t/pmc/integer.t                                             []
-t/pmc/intlist.t                                             []
 t/pmc/io.t                                                  []
 t/pmc/io_iterator.t                                         []
 t/pmc/io_status.t                                           []

Modified: trunk/PBC_COMPAT
==============================================================================
--- trunk/PBC_COMPAT	(original)
+++ trunk/PBC_COMPAT	Fri Jan 23 21:09:32 2009
@@ -27,6 +27,7 @@
 
 # please insert tab separated entries at the top of the list
 
+3.34	2009.01.23	coke	removed intlist PMC
 3.33    2009.01.20	chromatic	removed n_neg opcode
 3.32    2009.01.19	chromatic	removed remaining n_* math/bitwise ops
 3.31    2009.01.12	whiteknight	remove stm.ops and all opcodes therein

Modified: trunk/config/gen/makefiles/root.in
==============================================================================
--- trunk/config/gen/makefiles/root.in	(original)
+++ trunk/config/gen/makefiles/root.in	Fri Jan 23 21:09:32 2009
@@ -400,7 +400,6 @@
     $(SRC_DIR)/inter_misc$(O)  \
     $(SRC_DIR)/interpreter$(O)  \
     $(SRC_DIR)/inter_run$(O)  \
-    $(SRC_DIR)/intlist$(O) \
     $(SRC_DIR)/key$(O) \
     $(SRC_DIR)/library$(O) \
     $(SRC_DIR)/list$(O) \
@@ -1029,8 +1028,6 @@
 
 $(SRC_DIR)/hash$(O) : $(GENERAL_H_FILES)
 
-$(SRC_DIR)/intlist$(O) : $(GENERAL_H_FILES)
-
 $(SRC_DIR)/list$(O) : $(GENERAL_H_FILES)
 
 $(SRC_DIR)/library$(O) : $(GENERAL_H_FILES)

Modified: trunk/include/parrot/parrot.h
==============================================================================
--- trunk/include/parrot/parrot.h	(original)
+++ trunk/include/parrot/parrot.h	Fri Jan 23 21:09:32 2009
@@ -296,7 +296,6 @@
 #include "parrot/op.h"
 #include "parrot/pmc.h"
 #include "parrot/events.h"
-#include "parrot/intlist.h"
 #include "parrot/gc_api.h"
 #include "parrot/gc_mark_sweep.h"
 #include "parrot/gc_pools.h"

Modified: trunk/lib/Parrot/Docs/Section/C.pm
==============================================================================
--- trunk/lib/Parrot/Docs/Section/C.pm	(original)
+++ trunk/lib/Parrot/Docs/Section/C.pm	Fri Jan 23 21:09:32 2009
@@ -159,7 +159,6 @@
             '',
             $self->c_pair_item( '', 'datatypes' ),
             $self->c_pair_item( '', 'hash' ),
-            $self->c_pair_item( '', 'intlist' ),
             $self->c_pair_item( '', 'list' ),
         ),
         $self->new_group(

Modified: trunk/src/list.c
==============================================================================
--- trunk/src/list.c	(original)
+++ trunk/src/list.c	Fri Jan 23 21:09:32 2009
@@ -1580,7 +1580,7 @@
 
     const UINTVAL n = list_length(interp, list);
     PARROT_ASSERT(list->item_type == enum_type_PMC);
-    /* TODO intlist ... */
+
     for (idx = 0, chunk = list->first; chunk; chunk = chunk->next) {
         /* TODO deleted elements */
         if (!(chunk->flags & sparse)) {

Modified: trunk/src/pmc/iterator.pmc
==============================================================================
--- trunk/src/pmc/iterator.pmc	(original)
+++ trunk/src/pmc/iterator.pmc	Fri Jan 23 21:09:32 2009
@@ -512,13 +512,7 @@
 
         agg = SELF.get_pmc();
 
-        if (agg->vtable->base_type == enum_class_IntList) {
-            const INTVAL ires  = SELF.shift_integer();
-            REG_INT(interp, 1) = 1;
-            REG_INT(interp, 5) = ires;
-            return (opcode_t *)next;
-        }
-        else {
+        {
             PMC * const res    = SELF.shift_pmc();
             REG_INT(interp, 3) = 1;
             REG_PMC(interp, 5) = res;

Modified: trunk/src/pmc/pmc.num
==============================================================================
--- trunk/src/pmc/pmc.num	(original)
+++ trunk/src/pmc/pmc.num	Fri Jan 23 21:09:32 2009
@@ -65,27 +65,26 @@
 
 array.pmc    41
 fixedintegerarray.pmc    42
-intlist.pmc    43
-iterator.pmc    44
-perlarray.pmc    45
-pmcarray.pmc    46
-sarray.pmc    47
-constsarray.pmc    48
-fixedstringarray.pmc    49
-multiarray.pmc    50
+iterator.pmc    43
+perlarray.pmc    44
+pmcarray.pmc    45
+sarray.pmc    46
+constsarray.pmc    47
+fixedstringarray.pmc    48
+multiarray.pmc    49
 
 
 # hashes
-hash.pmc    51
-perlhash.pmc    52
-orderedhash.pmc    53
+hash.pmc    50
+perlhash.pmc    51
+orderedhash.pmc    52
 
 # other
 
-tqueue.pmc    54
+tqueue.pmc    53
 
-parrotclass.pmc    55
-parrotobject.pmc    56
+parrotclass.pmc    54
+parrotobject.pmc    55
 
-os.pmc    57
-file.pmc    58
+os.pmc    56
+file.pmc    57

Modified: trunk/t/pmc/iterator.t
==============================================================================
--- trunk/t/pmc/iterator.t	(original)
+++ trunk/t/pmc/iterator.t	Fri Jan 23 21:09:32 2009
@@ -7,7 +7,7 @@
 use lib qw( . lib ../lib ../../lib );
 
 use Test::More;
-use Parrot::Test tests => 22;
+use Parrot::Test tests => 21;
 
 =head1 NAME
 
@@ -637,43 +637,6 @@
 parrot
 OUTPUT
 
-pasm_output_is( <<'CODE', <<'OUTPUT', "intlist iter vtable" );
-   .include "iterator.pasm"
-   new P0, ['IntList']
-   push P0, 100
-   push P0, 200
-   push P0, 300
-   push P0, 400
-   push P0, 500
-   push P0, 600
-   push P0, 700
-   push P0, 800
-   iter P2, P0
-   print "ok 1\n"
-lp:
-   unless P2, ex
-   shift I0, P2
-   print I0
-   print "\n"
-   branch lp
-ex:
-   print "ok 2\n"
-   end
-CODE
-ok 1
-100
-200
-300
-400
-500
-600
-700
-800
-ok 2
-OUTPUT
-
-
-
 TODO: {
     local $TODO = "adding keys during iteration";
 

Modified: trunk/t/steps/auto_pmc-01.t
==============================================================================
--- trunk/t/steps/auto_pmc-01.t	(original)
+++ trunk/t/steps/auto_pmc-01.t	Fri Jan 23 21:09:32 2009
@@ -146,7 +146,7 @@
 ########## --pmc ##########
 
 my @dummy_options = qw(
-default.pmc null.pmc env.pmc key.pmc random.pmc unmanagedstruct.pmc managedstruct.pmc delegate.pmc exception.pmc parrotlibrary.pmc parrotinterpreter.pmc parrotthread.pmc lexpad.pmc timer.pmc pointer.pmc sub.pmc continuation.pmc retcontinuation.pmc exceptionhandler.pmc coroutine.pmc eval.pmc nci.pmc float.pmc integer.pmc bigint.pmc complex.pmc string.pmc boolean.pmc ref.pmc sharedref.pmc array.pmc fixedintegerarray.pmc intlist.pmc iterator.pmc sarray.pmc fixedstringarray.pmc multiarray.pmc hash.pmc orderedhash.pmc tqueue.pmc os.pmc file.pmc addrregistry.pmc bound_nci.pmc capture.pmc class.pmc codestring.pmc deleg_pmc.pmc enumerate.pmc exporter.pmc fixedbooleanarray.pmc fixedfloatarray.pmc fixedpmcarray.pmc lexinfo.pmc multisub.pmc namespace.pmc object.pmc pair.pmc parrotrunningthread.pmc pccmethod_test.pmc pmcproxy.pmc resizablebooleanarray.pmc resizablefloatarray.pmc resizableintegerarray.pmc resizablepmcarray.pmc resizablestringarray.pmc role.pmc scalar.pmc scheduler.pmc sl
 ice.pmc task.pmc undef.pmc
+default.pmc null.pmc env.pmc key.pmc random.pmc unmanagedstruct.pmc managedstruct.pmc delegate.pmc exception.pmc parrotlibrary.pmc parrotinterpreter.pmc parrotthread.pmc lexpad.pmc timer.pmc pointer.pmc sub.pmc continuation.pmc retcontinuation.pmc exceptionhandler.pmc coroutine.pmc eval.pmc nci.pmc float.pmc integer.pmc bigint.pmc complex.pmc string.pmc boolean.pmc ref.pmc sharedref.pmc array.pmc fixedintegerarray.pmc iterator.pmc sarray.pmc fixedstringarray.pmc multiarray.pmc hash.pmc orderedhash.pmc tqueue.pmc os.pmc file.pmc addrregistry.pmc bound_nci.pmc capture.pmc class.pmc codestring.pmc deleg_pmc.pmc enumerate.pmc exporter.pmc fixedbooleanarray.pmc fixedfloatarray.pmc fixedpmcarray.pmc lexinfo.pmc multisub.pmc namespace.pmc object.pmc pair.pmc parrotrunningthread.pmc pccmethod_test.pmc pmcproxy.pmc resizablebooleanarray.pmc resizablefloatarray.pmc resizableintegerarray.pmc resizablepmcarray.pmc resizablestringarray.pmc role.pmc scalar.pmc scheduler.pmc slice.pmc task
 .pmc undef.pmc
 );
 my $dummy_options = join q{ } => @dummy_options;
 
@@ -168,7 +168,7 @@
 
 @dummy_options = qw(
 default.pmc null.pmc env.pmc key.pmc random.pmc unmanagedstruct.pmc
-managedstruct.pmc delegate.pmc constexception.pmc parrotlibrary.pmc parrotinterpreter.pmc parrotthread.pmc lexpad.pmc timer.pmc pointer.pmc sub.pmc continuation.pmc retcontinuation.pmc exceptionhandler.pmc coroutine.pmc eval.pmc nci.pmc float.pmc integer.pmc bigint.pmc complex.pmc string.pmc boolean.pmc ref.pmc sharedref.pmc array.pmc fixedintegerarray.pmc intlist.pmc iterator.pmc sarray.pmc fixedstringarray.pmc multiarray.pmc hash.pmc orderedhash.pmc tqueue.pmc os.pmc file.pmc addrregistry.pmc bound_nci.pmc capture.pmc class.pmc codestring.pmc deleg_pmc.pmc enumerate.pmc exporter.pmc fixedbooleanarray.pmc fixedfloatarray.pmc fixedpmcarray.pmc lexinfo.pmc multisub.pmc namespace.pmc object.pmc pair.pmc parrotrunningthread.pmc pccmethod_test.pmc pmcproxy.pmc resizablebooleanarray.pmc resizablefloatarray.pmc resizableintegerarray.pmc resizablepmcarray.pmc resizablestringarray.pmc role.pmc scalar.pmc scheduler.pmc slice.pmc task.pmc undef.pmc
+managedstruct.pmc delegate.pmc constexception.pmc parrotlibrary.pmc parrotinterpreter.pmc parrotthread.pmc lexpad.pmc timer.pmc pointer.pmc sub.pmc continuation.pmc retcontinuation.pmc exceptionhandler.pmc coroutine.pmc eval.pmc nci.pmc float.pmc integer.pmc bigint.pmc complex.pmc string.pmc boolean.pmc ref.pmc sharedref.pmc array.pmc fixedintegerarray.pmc iterator.pmc sarray.pmc fixedstringarray.pmc multiarray.pmc hash.pmc orderedhash.pmc tqueue.pmc os.pmc file.pmc addrregistry.pmc bound_nci.pmc capture.pmc class.pmc codestring.pmc deleg_pmc.pmc enumerate.pmc exporter.pmc fixedbooleanarray.pmc fixedfloatarray.pmc fixedpmcarray.pmc lexinfo.pmc multisub.pmc namespace.pmc object.pmc pair.pmc parrotrunningthread.pmc pccmethod_test.pmc pmcproxy.pmc resizablebooleanarray.pmc resizablefloatarray.pmc resizableintegerarray.pmc resizablepmcarray.pmc resizablestringarray.pmc role.pmc scalar.pmc scheduler.pmc slice.pmc task.pmc undef.pmc
 );
 $dummy_options = join q{ } => @dummy_options;
 



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About