? patch
? t.pasm
? t.pbc
? test
? classes/perlscalar.pmc
Index: MANIFEST
===================================================================
RCS file: /cvs/public/parrot/MANIFEST,v
retrieving revision 1.192
diff -u -r1.192 MANIFEST
--- MANIFEST	7 Aug 2002 00:54:05 -0000	1.192
+++ MANIFEST	9 Aug 2002 10:36:20 -0000
@@ -26,6 +26,7 @@
 classes/perlhash.pmc
 classes/perlint.pmc
 classes/perlnum.pmc
+classes/perlscalar.pmc
 classes/perlstring.pmc
 classes/perlundef.pmc
 classes/pmc2c.pl
Index: assemble.pl
===================================================================
RCS file: /cvs/public/parrot/assemble.pl,v
retrieving revision 1.84
diff -u -r1.84 assemble.pl
--- assemble.pl	4 Aug 2002 22:54:31 -0000	1.84
+++ assemble.pl	9 Aug 2002 10:36:37 -0000
@@ -140,6 +140,7 @@
   $self->{constants}{Coroutine} = 10;
   $self->{constants}{Continuation} = 11;
   $self->{constants}{CSub} = 12;
+  $self->{constants}{PerlScalar} = 13;
   $self;
 }
 
Index: global_setup.c
===================================================================
RCS file: /cvs/public/parrot/global_setup.c,v
retrieving revision 1.31
diff -u -r1.31 global_setup.c
--- global_setup.c	4 Aug 2002 22:54:31 -0000	1.31
+++ global_setup.c	9 Aug 2002 10:36:37 -0000
@@ -34,6 +34,7 @@
     Parrot_Coroutine_class_init(enum_class_Coroutine);
     Parrot_CSub_class_init(enum_class_CSub);
     Parrot_Continuation_class_init(enum_class_Continuation);
+    Parrot_PerlScalar_class_init(enum_class_PerlScalar);
 
     /* Now register the names of the PMCs */
 
@@ -94,6 +95,11 @@
     MAKE_KEY_STRING(key, Parrot_base_vtables[enum_class_CSub].name(NULL, NULL));
     Parrot_base_classname_hash->vtable->set_integer_keyed(NULL,
                                                           Parrot_base_classname_hash, &key, enum_class_CSub);
+
+    MAKE_KEY_STRING(key, Parrot_base_vtables[enum_class_PerlScalar].name(NULL, NULL));
+    Parrot_base_classname_hash->vtable->set_integer_keyed(NULL,
+                                                          Parrot_base_classname_hash, &key, enum_class_PerlScalar);
+
 
 }
 
Index: include/parrot/global_setup.h
===================================================================
RCS file: /cvs/public/parrot/include/parrot/global_setup.h,v
retrieving revision 1.9
diff -u -r1.9 global_setup.h
--- include/parrot/global_setup.h	4 Aug 2002 22:56:06 -0000	1.9
+++ include/parrot/global_setup.h	9 Aug 2002 10:36:46 -0000
@@ -30,6 +30,7 @@
 void Parrot_Coroutine_class_init(INTVAL);
 void Parrot_Continuation_class_init(INTVAL);
 void Parrot_CSub_class_init(INTVAL);
+void Parrot_PerlScalar_class_init(INTVAL);
 
 void init_world(void);
 
Index: include/parrot/pmc.h
===================================================================
RCS file: /cvs/public/parrot/include/parrot/pmc.h,v
retrieving revision 1.34
diff -u -r1.34 pmc.h
--- include/parrot/pmc.h	4 Aug 2002 22:56:06 -0000	1.34
+++ include/parrot/pmc.h	9 Aug 2002 10:36:48 -0000
@@ -27,6 +27,7 @@
     enum_class_Coroutine,
     enum_class_Continuation,
     enum_class_CSub,
+    enum_class_PerlScalar,
     enum_class_max = 100
 };
 VAR_SCOPE VTABLE Parrot_base_vtables[enum_class_max];