[svn:parrot] r49080 - branches/stdhandle_meths/compilers/pct/src/PCT

[whiteknight at svn.parrot.org]

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)