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

[svn:parrot] r36086 - in trunk/src: . string

From:
bernhard
Date:
January 28, 2009 02:56
Subject:
[svn:parrot] r36086 - in trunk/src: . string
Message ID:
20090128105533.ADA42CB9AE@x12.develooper.com
Author: bernhard
Date: Wed Jan 28 02:55:28 2009
New Revision: 36086

Modified:
   trunk/src/datatypes.c
   trunk/src/string/api.c

Log:
[codingstd] add missing of incorrect ASSERT_ARGS macro


Modified: trunk/src/datatypes.c
==============================================================================
--- trunk/src/datatypes.c	(original)
+++ trunk/src/datatypes.c	Wed Jan 28 02:55:28 2009
@@ -1,5 +1,5 @@
 /*
-Copyright (C) 2002-2008, The Perl Foundation.
+Copyright (C) 2002-2009, The Perl Foundation.
 License:  Artistic 2.0, see README and LICENSE for details
 $Id$
 
@@ -86,6 +86,7 @@
 FLOATVAL
 floatval_divide_by_zero(PARROT_INTERP, FLOATVAL num)
 {
+    ASSERT_ARGS(floatval_divide_by_zero)
     FLOATVAL zero = 0.0;
     return num / zero;
 }

Modified: trunk/src/string/api.c
==============================================================================
--- trunk/src/string/api.c	(original)
+++ trunk/src/string/api.c	Wed Jan 28 02:55:28 2009
@@ -1,5 +1,5 @@
 /*
-Copyright (C) 2001-2008, The Perl Foundation.
+Copyright (C) 2001-2009, The Perl Foundation.
 $Id$
 
 =head1 NAME
@@ -1135,7 +1135,7 @@
 STRING *
 Parrot_str_repeat(PARROT_INTERP, ARGIN(const STRING *s), UINTVAL num)
 {
-    ASSERT_ARGS(string_repeat)
+    ASSERT_ARGS(Parrot_str_repeat)
     STRING * const dest = string_make_direct(interp, NULL,
                         s->bufused * num,
                         s->encoding, s->charset, 0);



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