[svn:parrot] r38844 - trunk/lib/Parrot

[petdance at svn.parrot.org]

Author: petdance
Date: Sat May 16 20:57:27 2009
New Revision: 38844
URL: https://trac.parrot.org/parrot/changeset/38844

Log:
Starting to note observers for splint

Modified:
   trunk/lib/Parrot/Vtable.pm

Modified: trunk/lib/Parrot/Vtable.pm
==============================================================================
--- trunk/lib/Parrot/Vtable.pm	Sat May 16 20:52:24 2009	(r38843)
+++ trunk/lib/Parrot/Vtable.pm	Sat May 16 20:57:27 2009	(r38844)
@@ -201,7 +201,7 @@
 sub vtbl_macros {
     my $vtable = shift;
 
-    my $macros = <<"EOM";
+    my $macros = <<'EOM';
 
 /*
  * vtable accessor macros
@@ -220,7 +220,7 @@
     (pmc)->vtable->$entry->[1]($args)
 EOM
     }
-    $macros .= <<"EOM";
+    $macros .= <<'EOM';
 
 /*
  * vtable method name defines for delegate
@@ -234,12 +234,12 @@
 EOM
 
     }
-    $macros .= <<"EOM";
+    $macros .= <<'EOM';
 
 EOM
 
     # finally the name mapping
-    $macros .= <<"EOM";
+    $macros .= <<'EOM';
 /*
  * vtable slot names
  */
@@ -247,7 +247,7 @@
 
 #define PARROT_VTABLE_LOW 9
 
-static const char * const Parrot_vtable_slot_names[] = {
+static /*@observer@*/ const char * const Parrot_vtable_slot_names[] = {
     "",   /* Pointer to namespace for this class */
     "",   /* 'type' value for MMD */
     "",   /* Name of class this vtable is for */
@@ -293,14 +293,14 @@
         $entry->[4],
 EOM
     }
-    $macros .= <<"EOM";
+    $macros .= <<'EOM';
         MMD_USER_FIRST
 } parrot_mmd_func_enum;
 
 /* &end_gen */
 
 #ifdef PARROT_IN_OBJECTS_C
-static const char * const Parrot_mmd_func_names[] = {
+static /*@observer@*/ const char * const Parrot_mmd_func_names[] = {
 EOM
 
     for my $entry ( @{$vtable} ) {