[svn:parrot] r46732 - trunk/tools/util
coke at svn.parrot.org
coke at svn.parrot.org
Mon May 17 13:31:37 UTC 2010
Author: coke
Date: Mon May 17 13:31:36 2010
New Revision: 46732
URL: https://trac.parrot.org/parrot/changeset/46732
Log:
Rip out broken method, replace with less PIR.
(probably broken due to recent string changes)
Modified:
trunk/tools/util/crow.pir
Modified: trunk/tools/util/crow.pir
==============================================================================
--- trunk/tools/util/crow.pir Mon May 17 13:12:32 2010 (r46731)
+++ trunk/tools/util/crow.pir Mon May 17 13:31:36 2010 (r46732)
@@ -21,7 +21,7 @@
.sub 'main' :main
- .param pmc args
+ .param pmc args
load_bytecode 'Crow.pbc'
@@ -43,8 +43,10 @@
.local string template, type
type = opts['type']
- 'infix://='(type, 'text')
+ if type != '' goto got_type
+ type = 'text'
+got_type:
template = 'get_template'(templates, type)
.local pmc data
@@ -98,25 +100,6 @@
.end
-.sub 'infix://='
- .param pmc a
- .param pmc b
-
- if null a goto agg_undefined
- $I0 = defined a
- if $I0 goto return
- assign a, b
-
- return:
- .return ()
-
- agg_undefined:
- $P0 = new 'Exception'
- $P0 = "cannot assign to Null PMC!"
- throw $P0
-.end
-
-
# Local Variables:
# mode: pir
# fill-column: 100
More information about the parrot-commits
mailing list