[svn:parrot] r46809 - trunk/src/dynoplibs
plobsing at svn.parrot.org
plobsing at svn.parrot.org
Thu May 20 02:24:33 UTC 2010
Author: plobsing
Date: Thu May 20 02:24:32 2010
New Revision: 46809
URL: https://trac.parrot.org/parrot/changeset/46809
Log:
flag deprecated dynops as :deprecated
Modified:
trunk/src/dynoplibs/deprecated.ops
Modified: trunk/src/dynoplibs/deprecated.ops
==============================================================================
--- trunk/src/dynoplibs/deprecated.ops Thu May 20 00:43:28 2010 (r46808)
+++ trunk/src/dynoplibs/deprecated.ops Thu May 20 02:24:32 2010 (r46809)
@@ -30,25 +30,25 @@
=cut
-op exchange(inout INT, inout INT) :base_core {
+op exchange(inout INT, inout INT) :deprecated {
const INTVAL temp = $1;
$1 = $2;
$2 = temp;
}
-op exchange(inout PMC, inout PMC) :base_core {
+op exchange(inout PMC, inout PMC) :deprecated {
PMC * const temp = $1;
$1 = $2;
$2 = temp;
}
-op exchange(inout NUM, inout NUM) :base_core {
+op exchange(inout NUM, inout NUM) :deprecated {
FLOATVAL temp = $1;
$1 = $2;
$2 = temp;
}
-op exchange(inout STR, inout STR) :base_core {
+op exchange(inout STR, inout STR) :deprecated {
STRING * const temp = $1;
$1 = $2;
$2 = temp;
@@ -62,7 +62,7 @@
=cut
-inline op setp_ind(in INT, invar PMC) :base_ref {
+inline op setp_ind(in INT, invar PMC) :deprecated {
if ($1 < 0 || $1 >= NUM_REGISTERS)
PANIC(interp, "Out of bound register access");
REG_PMC(interp, $1) = $2;
@@ -76,7 +76,7 @@
=cut
-inline op setn_ind(in INT, in NUM) :base_ref {
+inline op setn_ind(in INT, in NUM) :deprecated {
if ($1 < 0 || $1 >= NUM_REGISTERS)
PANIC(interp, "Out of bound register access");
REG_NUM(interp, $1) = $2;
@@ -90,7 +90,7 @@
=cut
-inline op sets_ind(in INT, in STR) :base_ref {
+inline op sets_ind(in INT, in STR) :deprecated {
if ($1 < 0 || $1 >= NUM_REGISTERS)
PANIC(interp, "Out of bound register access");
REG_STR(interp, $1) = $2;
@@ -104,7 +104,7 @@
=cut
-inline op seti_ind(in INT, in INT) :base_ref {
+inline op seti_ind(in INT, in INT) :deprecated {
if ($1 < 0 || $1 >= NUM_REGISTERS)
PANIC(interp, "Out of bound register access");
REG_INT(interp, $1) = $2;
@@ -128,19 +128,19 @@
=cut
-inline op cleari() :base_core {
+inline op cleari() :deprecated {
Parrot_clear_i(interp);
}
-inline op clearn() :base_core {
+inline op clearn() :deprecated {
Parrot_clear_n(interp);
}
-inline op clears() :base_core {
+inline op clears() :deprecated {
Parrot_clear_s(interp);
}
-inline op clearp() :base_core {
+inline op clearp() :deprecated {
Parrot_clear_p(interp);
}
More information about the parrot-commits
mailing list