[svn:parrot] r38890 - in trunk: config/gen/makefiles include/parrot lib/Parrot src/string tools/build
petdance at svn.parrot.org
petdance at svn.parrot.org
Mon May 18 05:35:30 UTC 2009
Author: petdance
Date: Mon May 18 05:35:29 2009
New Revision: 38890
URL: https://trac.parrot.org/parrot/changeset/38890
Log:
startng to annotate functions with PARROT_OBSERVER
Modified:
trunk/config/gen/makefiles/root.in
trunk/include/parrot/string_funcs.h
trunk/lib/Parrot/Headerizer.pm
trunk/src/string/api.c
trunk/tools/build/headerizer.pl
Modified: trunk/config/gen/makefiles/root.in
==============================================================================
--- trunk/config/gen/makefiles/root.in Mon May 18 05:05:30 2009 (r38889)
+++ trunk/config/gen/makefiles/root.in Mon May 18 05:35:29 2009 (r38890)
@@ -2074,7 +2074,7 @@
$(MKPATH) $(SPLINT_TMP)
splint $(CC_INC) @cc_hasjit@ -DNDEBUG "-Isrc/pmc" "-Icompilers/ast" $(SPLINTFLAGS) $(SPLINTFLAGS_TEST) \
+partial -memchecks \
- src/oo.c src/key.c \
+ src/string/*.c src/oo.c src/key.c \
| grep -v 'Source code error generation point'
COVER_FLAGS := -fprofile-arcs -ftest-coverage
Modified: trunk/include/parrot/string_funcs.h
==============================================================================
--- trunk/include/parrot/string_funcs.h Mon May 18 05:05:30 2009 (r38889)
+++ trunk/include/parrot/string_funcs.h Mon May 18 05:35:29 2009 (r38890)
@@ -507,6 +507,7 @@
PARROT_EXPORT
PARROT_CANNOT_RETURN_NULL
+PARROT_OBSERVER
const char* string_primary_encoding_for_representation(PARROT_INTERP,
parrot_string_representation_t representation)
__attribute__nonnull__(1);
Modified: trunk/lib/Parrot/Headerizer.pm
==============================================================================
--- trunk/lib/Parrot/Headerizer.pm Mon May 18 05:05:30 2009 (r38889)
+++ trunk/lib/Parrot/Headerizer.pm Mon May 18 05:35:29 2009 (r38890)
@@ -62,6 +62,7 @@
PARROT_CONST_FUNCTION
PARROT_DOES_NOT_RETURN
PARROT_MALLOC
+ PARROT_OBSERVER
);
=item C<extract_function_declarations($text)>
Modified: trunk/src/string/api.c
==============================================================================
--- trunk/src/string/api.c Mon May 18 05:05:30 2009 (r38889)
+++ trunk/src/string/api.c Mon May 18 05:35:29 2009 (r38890)
@@ -633,6 +633,7 @@
PARROT_EXPORT
PARROT_CANNOT_RETURN_NULL
+PARROT_OBSERVER
const char*
string_primary_encoding_for_representation(PARROT_INTERP,
parrot_string_representation_t representation)
Modified: trunk/tools/build/headerizer.pl
==============================================================================
--- trunk/tools/build/headerizer.pl Mon May 18 05:05:30 2009 (r38889)
+++ trunk/tools/build/headerizer.pl Mon May 18 05:35:29 2009 (r38890)
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2001-2007, Parrot Foundation.
+# Copyright (C) 2001-2009, Parrot Foundation.
# $Id$
use strict;
@@ -81,6 +81,7 @@
PARROT_DOES_NOT_RETURN
PARROT_DOES_NOT_RETURN_WHEN_FALSE
PARROT_MALLOC
+ PARROT_OBSERVER
);
main();
@@ -323,9 +324,9 @@
else {
# try to isolate the variable's name;
# strip off everything before the final space or asterisk.
- $var =~ s[.+[* ]([^* ]+)$][$1];
+ $var =~ s{.+[* ]([^* ]+)$}{$1};
# strip off a trailing "[]", if any.
- $var =~ s/\[\]$//;
+ $var =~ s{\[\]$}{};
}
push( @asserts, "PARROT_ASSERT_ARG($var)" );
}
More information about the parrot-commits
mailing list