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

[bernhard]

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);