[svn:parrot] r37404 - in trunk: . examples/japh t/examples

[allison at svn.parrot.org]

Author: allison
Date: Sat Mar 14 03:10:14 2009
New Revision: 37404
URL: https://trac.parrot.org/parrot/changeset/37404

Log:
[cage] Deleting second japh example. Fails on Darwin, and depends on an
unfortunate side effect of the current strings implementation that we won't be
keeping.

Deleted:
   trunk/examples/japh/japh2.pasm
Modified:
   trunk/MANIFEST
   trunk/t/examples/japh.t

Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST	Sat Mar 14 01:41:38 2009	(r37403)
+++ trunk/MANIFEST	Sat Mar 14 03:10:14 2009	(r37404)
@@ -1,7 +1,7 @@
 # ex: set ro:
 # $Id$
 #
-# generated by tools/dev/mk_manifest_and_skip.pl Fri Mar 13 21:56:03 2009 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Sat Mar 14 03:06:48 2009 UT
 #
 # See tools/dev/install_files.pl for documentation on the
 # format of this file.
@@ -640,7 +640,6 @@
 examples/embed/lorito.c                                     [examples]
 examples/japh/README                                        []doc
 examples/japh/japh1.pasm                                    [examples]
-examples/japh/japh2.pasm                                    [examples]
 examples/japh/japh3.pasm                                    [examples]
 examples/japh/japh4.pasm                                    [examples]
 examples/japh/japh5.pasm                                    [examples]

Deleted: trunk/examples/japh/japh2.pasm
==============================================================================
--- trunk/examples/japh/japh2.pasm	Sat Mar 14 03:10:14 2009	(r37403)
+++ /dev/null	00:00:00 1970	(deleted)
@@ -1,25 +0,0 @@
-# $Id$
-
-# Little Endian only using struct
-    new P1, 'ResizablePMCArray'
-    push P1, -100
-    push P1, 28
-    push P1, I0
-    new P0, 'ManagedStruct', P1
-    set P0[0], 1953723722
-    set P0[0;1], 1869504800
-    set P0[0;2], 1919248500
-    set P0[0;3], 1918980128
-    set P0[0;4], 544501618
-    set P0[0;5], 1801675080
-    set P0[0;6], 1879732837
-    set P1[0], -93
-    null I1
-    assign P0, P1
-l:  set I0, P0[0;I1]
-    chr S0, I0
-    print S0
-    inc I1
-    lt I1, 27, l
-    end
-

Modified: trunk/t/examples/japh.t
==============================================================================
--- trunk/t/examples/japh.t	Sat Mar 14 01:41:38 2009	(r37403)
+++ trunk/t/examples/japh.t	Sat Mar 14 03:10:14 2009	(r37404)
@@ -1,5 +1,5 @@
 #!perl
-# Copyright (C) 2005-2006, Parrot Foundation.
+# Copyright (C) 2005-2009, Parrot Foundation.
 # $Id$
 
 use strict;
@@ -32,12 +32,6 @@
 
 # known reasons for failure
 my %todo = ();
-if ( $PConfig{bigendian} ) {
-    $todo{2} = 'works only on little endian';
-}
-if ( $PConfig{intvalsize} == 8 ) {
-    $todo{2} = 'works only with 32-bit integer values';
-}
 if ( defined( $ENV{TEST_PROG_ARGS}) && $ENV{TEST_PROG_ARGS} =~ /--runcore=jit/ ) {
     $todo{4} = 'broken with JIT';
 }