[svn:parrot] r47045 - in branches/ops_massacre: include/parrot src src/dynoplibs t/dynoplibs
plobsing at svn.parrot.org
plobsing at svn.parrot.org
Thu May 27 04:12:14 UTC 2010
Author: plobsing
Date: Thu May 27 04:12:14 2010
New Revision: 47045
URL: https://trac.parrot.org/parrot/changeset/47045
Log:
fix codetests
Modified:
branches/ops_massacre/include/parrot/interpreter.h
branches/ops_massacre/include/parrot/io.h
branches/ops_massacre/include/parrot/misc.h
branches/ops_massacre/src/dynoplibs/bit.ops (props changed)
branches/ops_massacre/src/dynoplibs/debug.ops (contents, props changed)
branches/ops_massacre/src/dynoplibs/io.ops (contents, props changed)
branches/ops_massacre/src/dynoplibs/sys.ops (contents, props changed)
branches/ops_massacre/src/utils.c
branches/ops_massacre/t/dynoplibs/bit.t (props changed)
branches/ops_massacre/t/dynoplibs/debug.t (contents, props changed)
branches/ops_massacre/t/dynoplibs/io.t (contents, props changed)
branches/ops_massacre/t/dynoplibs/sysinfo.t (contents, props changed)
branches/ops_massacre/t/dynoplibs/time.t (props changed)
Modified: branches/ops_massacre/include/parrot/interpreter.h
==============================================================================
--- branches/ops_massacre/include/parrot/interpreter.h Thu May 27 04:00:30 2010 (r47044)
+++ branches/ops_massacre/include/parrot/interpreter.h Thu May 27 04:12:14 2010 (r47045)
@@ -522,15 +522,6 @@
__attribute__nonnull__(3)
__attribute__nonnull__(4);
-PARROT_WARN_UNUSED_RESULT
-PARROT_CONST_FUNCTION
-INTVAL sysinfo_i(SHIM_INTERP, INTVAL info_wanted);
-
-PARROT_CANNOT_RETURN_NULL
-PARROT_WARN_UNUSED_RESULT
-STRING * sysinfo_s(PARROT_INTERP, INTVAL info_wanted)
- __attribute__nonnull__(1);
-
#define ASSERT_ARGS_interpinfo __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
PARROT_ASSERT_ARG(interp))
#define ASSERT_ARGS_interpinfo_p __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
@@ -557,9 +548,6 @@
PARROT_ASSERT_ARG(interp) \
, PARROT_ASSERT_ARG(func) \
, PARROT_ASSERT_ARG(name))
-#define ASSERT_ARGS_sysinfo_i __attribute__unused__ int _ASSERT_ARGS_CHECK = (0)
-#define ASSERT_ARGS_sysinfo_s __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
- PARROT_ASSERT_ARG(interp))
/* Don't modify between HEADERIZER BEGIN / HEADERIZER END. Your changes will be lost. */
/* HEADERIZER END: src/interp/inter_misc.c */
Modified: branches/ops_massacre/include/parrot/io.h
==============================================================================
--- branches/ops_massacre/include/parrot/io.h Thu May 27 04:00:30 2010 (r47044)
+++ branches/ops_massacre/include/parrot/io.h Thu May 27 04:12:14 2010 (r47045)
@@ -222,6 +222,10 @@
PARROT_EXPORT
PARROT_WARN_UNUSED_RESULT
+PIOOFF_T Parrot_io_make_offset32(INTVAL hi, INTVAL lo);
+
+PARROT_EXPORT
+PARROT_WARN_UNUSED_RESULT
PARROT_CANNOT_RETURN_NULL
PMC * Parrot_io_new_pmc(PARROT_INTERP, INTVAL flags)
__attribute__nonnull__(1);
@@ -342,9 +346,6 @@
FUNC_MODIFIES(*pmc);
PARROT_WARN_UNUSED_RESULT
-PIOOFF_T Parrot_io_make_offset32(INTVAL hi, INTVAL lo);
-
-PARROT_WARN_UNUSED_RESULT
PIOOFF_T Parrot_io_make_offset_pmc(PARROT_INTERP, ARGMOD(PMC *pmc))
__attribute__nonnull__(1)
__attribute__nonnull__(2)
@@ -378,6 +379,7 @@
PARROT_ASSERT_ARG(interp) \
, PARROT_ASSERT_ARG(pmc))
#define ASSERT_ARGS_Parrot_io_make_offset __attribute__unused__ int _ASSERT_ARGS_CHECK = (0)
+#define ASSERT_ARGS_Parrot_io_make_offset32 __attribute__unused__ int _ASSERT_ARGS_CHECK = (0)
#define ASSERT_ARGS_Parrot_io_new_pmc __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
PARROT_ASSERT_ARG(interp))
#define ASSERT_ARGS_Parrot_io_open __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
@@ -420,7 +422,6 @@
PARROT_ASSERT_ARG(interp) \
, PARROT_ASSERT_ARG(pmc) \
, PARROT_ASSERT_ARG(buffer))
-#define ASSERT_ARGS_Parrot_io_make_offset32 __attribute__unused__ int _ASSERT_ARGS_CHECK = (0)
#define ASSERT_ARGS_Parrot_io_make_offset_pmc __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
PARROT_ASSERT_ARG(interp) \
, PARROT_ASSERT_ARG(pmc))
Modified: branches/ops_massacre/include/parrot/misc.h
==============================================================================
--- branches/ops_massacre/include/parrot/misc.h Thu May 27 04:00:30 2010 (r47044)
+++ branches/ops_massacre/include/parrot/misc.h Thu May 27 04:12:14 2010 (r47045)
@@ -83,6 +83,13 @@
PARROT_EXPORT
PARROT_WARN_UNUSED_RESULT
+PARROT_CANNOT_RETURN_NULL
+PMC* Parrot_tm_to_array(PARROT_INTERP, ARGIN(const struct tm *tm))
+ __attribute__nonnull__(1)
+ __attribute__nonnull__(2);
+
+PARROT_EXPORT
+PARROT_WARN_UNUSED_RESULT
INTVAL Parrot_uint_rand(INTVAL how_random);
PARROT_CONST_FUNCTION
@@ -102,12 +109,6 @@
__attribute__nonnull__(4)
FUNC_MODIFIES(*data);
-PARROT_WARN_UNUSED_RESULT
-PARROT_CANNOT_RETURN_NULL
-PMC* tm_to_array(PARROT_INTERP, ARGIN(const struct tm *tm))
- __attribute__nonnull__(1)
- __attribute__nonnull__(2);
-
#define ASSERT_ARGS_Parrot_byte_index __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
PARROT_ASSERT_ARG(base) \
, PARROT_ASSERT_ARG(search))
@@ -123,6 +124,9 @@
, PARROT_ASSERT_ARG(src_regs) \
, PARROT_ASSERT_ARG(info))
#define ASSERT_ARGS_Parrot_srand __attribute__unused__ int _ASSERT_ARGS_CHECK = (0)
+#define ASSERT_ARGS_Parrot_tm_to_array __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
+ PARROT_ASSERT_ARG(interp) \
+ , PARROT_ASSERT_ARG(tm))
#define ASSERT_ARGS_Parrot_uint_rand __attribute__unused__ int _ASSERT_ARGS_CHECK = (0)
#define ASSERT_ARGS_floatval_mod __attribute__unused__ int _ASSERT_ARGS_CHECK = (0)
#define ASSERT_ARGS_intval_mod __attribute__unused__ int _ASSERT_ARGS_CHECK = (0)
@@ -130,9 +134,6 @@
PARROT_ASSERT_ARG(interp) \
, PARROT_ASSERT_ARG(data) \
, PARROT_ASSERT_ARG(cmp))
-#define ASSERT_ARGS_tm_to_array __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
- PARROT_ASSERT_ARG(interp) \
- , PARROT_ASSERT_ARG(tm))
/* Don't modify between HEADERIZER BEGIN / HEADERIZER END. Your changes will be lost. */
/* HEADERIZER END: src/utils.c */
Modified: branches/ops_massacre/src/dynoplibs/debug.ops
==============================================================================
--- branches/ops_massacre/src/dynoplibs/debug.ops Thu May 27 04:00:30 2010 (r47044)
+++ branches/ops_massacre/src/dynoplibs/debug.ops Thu May 27 04:12:14 2010 (r47045)
@@ -1,5 +1,5 @@
/*
- * $Id: debug.ops 42916 2009-12-06 14:47:19Z fperrad $
+ * $Id$
* Copyright (C) 2002-2008, Parrot Foundation.
*/
Modified: branches/ops_massacre/src/dynoplibs/io.ops
==============================================================================
--- branches/ops_massacre/src/dynoplibs/io.ops Thu May 27 04:00:30 2010 (r47044)
+++ branches/ops_massacre/src/dynoplibs/io.ops Thu May 27 04:12:14 2010 (r47045)
@@ -194,10 +194,6 @@
}
}
-=back
-
-=cut
-
##########################################
=item B<peek>(out STR)
Modified: branches/ops_massacre/src/dynoplibs/sys.ops
==============================================================================
--- branches/ops_massacre/src/dynoplibs/sys.ops Thu May 27 04:00:30 2010 (r47044)
+++ branches/ops_massacre/src/dynoplibs/sys.ops Thu May 27 04:12:14 2010 (r47045)
@@ -1,5 +1,5 @@
/*
- * $Id: sys.ops 46691 2010-05-16 00:39:58Z plobsing $
+ * $Id$
** sys.ops
*/
Modified: branches/ops_massacre/src/utils.c
==============================================================================
--- branches/ops_massacre/src/utils.c Thu May 27 04:00:30 2010 (r47044)
+++ branches/ops_massacre/src/utils.c Thu May 27 04:12:14 2010 (r47045)
@@ -540,7 +540,7 @@
/*
-=item C<PMC* tm_to_array(PARROT_INTERP, const struct tm *tm)>
+=item C<PMC* Parrot_tm_to_array(PARROT_INTERP, const struct tm *tm)>
Helper to convert a B<struct tm *> to an Array
@@ -554,7 +554,7 @@
PMC*
Parrot_tm_to_array(PARROT_INTERP, ARGIN(const struct tm *tm))
{
- ASSERT_ARGS(tm_to_array)
+ ASSERT_ARGS(Parrot_tm_to_array)
PMC * const Array = Parrot_pmc_new(interp,
Parrot_get_ctx_HLL_type(interp, enum_class_FixedIntegerArray));
Modified: branches/ops_massacre/t/dynoplibs/debug.t
==============================================================================
--- branches/ops_massacre/t/dynoplibs/debug.t Thu May 27 04:00:30 2010 (r47044)
+++ branches/ops_massacre/t/dynoplibs/debug.t Thu May 27 04:12:14 2010 (r47045)
@@ -1,6 +1,6 @@
#!perl
# Copyright (C) 2001-2007, Parrot Foundation.
-# $Id: debuginfo.t 45949 2010-04-24 01:14:23Z cotto $
+# $Id$
use strict;
use warnings;
Modified: branches/ops_massacre/t/dynoplibs/io.t
==============================================================================
--- branches/ops_massacre/t/dynoplibs/io.t Thu May 27 04:00:30 2010 (r47044)
+++ branches/ops_massacre/t/dynoplibs/io.t Thu May 27 04:12:14 2010 (r47045)
@@ -1,6 +1,6 @@
#!./parrot
# Copyright (C) 2008, Parrot Foundation.
-# $Id: io.t 46982 2010-05-25 03:05:26Z plobsing $
+# $Id$
=head1 NAME
Modified: branches/ops_massacre/t/dynoplibs/sysinfo.t
==============================================================================
--- branches/ops_massacre/t/dynoplibs/sysinfo.t Thu May 27 04:00:30 2010 (r47044)
+++ branches/ops_massacre/t/dynoplibs/sysinfo.t Thu May 27 04:12:14 2010 (r47045)
@@ -1,6 +1,6 @@
#!perl
# Copyright (C) 2008-2010, Parrot Foundation.
-# $Id: sysinfo.t 44427 2010-02-24 00:30:09Z mikehh $
+# $Id$
# initial work by Brad Gilbert b2gills <at> gmail <dot> com
More information about the parrot-commits
mailing list