#1728: Add more signatures for for PAST op types.
--------------------+-------------------------------------------------------
Reporter: coke | Owner: pmichaud
Type: patch | Status: new
Priority: normal | Milestone:
Component: PCT | Version: trunk
Severity: low | Keywords:
Lang: tcl | Patch: new
Platform: |
--------------------+-------------------------------------------------------
Inlined.
I'll probably apply this in a few days if there are no objections.
{{{
Index: compilers/pct/src/PAST/Compiler.pir
===================================================================
--- compilers/pct/src/PAST/Compiler.pir (revision 48286)
+++ compilers/pct/src/PAST/Compiler.pir (working copy)
@@ -81,7 +81,11 @@
piropsig['find_codepoint'] = 'Is'
piropsig['find_dynamic_lex'] = 'Ps'
piropsig['find_name'] = 'Ps'
+ piropsig['getinterp'] = 'P'
piropsig['getprop'] = 'P~P'
+ piropsig['getstderr'] = 'P'
+ piropsig['getstdin'] = 'P'
+ piropsig['getstdout'] = 'P'
piropsig['index'] = 'Issi'
piropsig['isa'] = 'IP~'
piropsig['isfalse'] = 'IP'
@@ -92,9 +96,11 @@
piropsig['length'] = 'Is'
piropsig['load_bytecode'] = 'vs'
piropsig['load_language'] = 'vs'
+ piropsig['loadlib'] = 'P~'
piropsig['mod'] = 'PP+'
piropsig['mul'] = 'PP+'
piropsig['neg'] = 'PP'
+ piropsig['new'] = 'P~'
piropsig['newclosure'] = 'PP'
piropsig['not'] = 'PP'
piropsig['ord'] = 'Isi'
@@ -117,7 +123,9 @@
piropsig['split'] = 'Pss'
piropsig['sub'] = 'PP+'
piropsig['substr'] = 'Ssii'
+ piropsig['titlecase'] = 'Ss'
piropsig['trace'] = 'vi'
+ piropsig['typeof'] = '~P'
piropsig['unshift'] = '0P*'
piropsig['upcase'] = 'Ss'
set_global '%piropsig', piropsig
}}}
--
Ticket URL: <https://trac.parrot.org/parrot/ticket/1728>
Parrot <https://trac.parrot.org/parrot/>
Parrot Development
_______________________________________________
parrot-tickets mailing list
[email protected]
http://lists.parrot.org/mailman/listinfo/parrot-tickets
