[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