[svn:parrot] r49080 - branches/stdhandle_meths/compilers/pct/src/PCT
whiteknight at svn.parrot.org
whiteknight at svn.parrot.org
Fri Sep 17 13:16:01 UTC 2010
Author: whiteknight
Date: Fri Sep 17 13:16:01 2010
New Revision: 49080
URL: https://trac.parrot.org/parrot/changeset/49080
Log:
update uses of stdhandle method in HLLCompiler.pir
Modified:
branches/stdhandle_meths/compilers/pct/src/PCT/HLLCompiler.pir
Modified: branches/stdhandle_meths/compilers/pct/src/PCT/HLLCompiler.pir
==============================================================================
--- branches/stdhandle_meths/compilers/pct/src/PCT/HLLCompiler.pir Fri Sep 17 13:10:59 2010 (r49079)
+++ branches/stdhandle_meths/compilers/pct/src/PCT/HLLCompiler.pir Fri Sep 17 13:16:01 2010 (r49080)
@@ -25,7 +25,6 @@
.namespace [ 'PCT';'HLLCompiler' ]
.include 'cclass.pasm'
-.include 'stdio.pasm'
.include 'iglobals.pasm'
.sub 'init' :vtable :method
@@ -331,7 +330,7 @@
$N1 = time
$N2 = $N1 - $N0
$P0 = getinterp
- $P1 = $P0.'stdhandle'(.PIO_STDERR_FILENO)
+ $P1 = $P0.'stderr_handle'()
$P1.'print'("Stage '")
$P1.'print'(stagename)
$P1.'print'("': ")
@@ -618,13 +617,13 @@
# on startup show the welcome message
$P0 = self.'commandline_banner'()
$P1 = getinterp
- $P2 = $P1.'stdhandle'(.PIO_STDERR_FILENO)
+ $P2 = $P1.'stderr_handle'()
$P2.'print'($P0)
.local pmc stdin
.local int has_readline
$P0 = getinterp
- stdin = $P0.'stdhandle'(.PIO_STDIN_FILENO)
+ stdin = $P0.'stdin_handle'()
encoding = adverbs['encoding']
if encoding == 'fixed_8' goto interactive_loop
unless encoding goto interactive_loop
@@ -894,7 +893,7 @@
.local string output
.local pmc ofh
$P0 = getinterp
- ofh = $P0.'stdhandle'(.PIO_STDOUT_FILENO)
+ ofh = $P0.'stdout_handle'()
output = adverbs['output']
if output == '' goto save_output_1
if output == '-' goto save_output_1
@@ -924,7 +923,7 @@
.get_results ($P0)
pop_eh
$P1 = getinterp
- $P1 = $P1.'stdhandle'(.PIO_STDERR_FILENO)
+ $P1 = $P1.'stderr_handle'()
$I0 = $P0['severity']
if $I0 == .EXCEPT_EXIT goto do_exit
$S0 = self.'backtrace'($P0)
More information about the parrot-commits
mailing list