Author: coke
Date: Wed Mar 14 22:08:30 2007
New Revision: 17486
Modified:
trunk/ (props changed)
trunk/languages/LANGUAGES.STATUS.pod
trunk/languages/Zcode/zops.pir
trunk/src/dynoplibs/myops.ops
Log:
#41829: languages/Zcode is broken
Not anymore. One of the opcodes it needed was missing, and it wasn't
loading a library it was trying to use.
Modified: trunk/languages/LANGUAGES.STATUS.pod
==============================================================================
--- trunk/languages/LANGUAGES.STATUS.pod (original)
+++ trunk/languages/LANGUAGES.STATUS.pod Wed Mar 14 22:08:30 2007
@@ -1136,7 +1136,7 @@
=item Last verified with parrot version
-0.4.5
+0.4.10
=item Location
Modified: trunk/languages/Zcode/zops.pir
==============================================================================
--- trunk/languages/Zcode/zops.pir (original)
+++ trunk/languages/Zcode/zops.pir Wed Mar 14 22:08:30 2007
@@ -467,6 +467,7 @@
unless fin goto text_loop
.local pmc escape
+ load_bytecode 'Data/Escape.pir'
escape = find_global "Data::Escape", "String"
s = escape(s)
s .= "\""
Modified: trunk/src/dynoplibs/myops.ops
==============================================================================
--- trunk/src/dynoplibs/myops.ops (original)
+++ trunk/src/dynoplibs/myops.ops Wed Mar 14 22:08:30 2007
@@ -106,6 +106,11 @@
Conversion of a two byte unsigned int to an INT.
Formerly in dotgnu.ops. Used only in ./languages/Zcode/z3main.pir.
+=item B<conv_i2>(inout INT)
+
+Conversion of a two byte signed int to an INT.
+Formerly in dotgnu.ops. Used only in ./languages/Zcode/z3main.pir.
+
=cut
inline op conv_u2(inout INT) :base_core {
@@ -113,6 +118,12 @@
goto NEXT();
}
+inline op conv_i2(inout INT) :base_core {
+ $1 = (INTVAL)((Parrot_Int2)($1));
+ goto NEXT();
+}
+
+
=back
=cut
