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);
-
[svn:parrot] r36086 - in trunk/src: . string
by bernhard