cvsuser 03/07/08 06:57:30
Modified: languages/BASIC/compiler RT_io.imc
Log:
some more cleanup for #22899
Revision Changes Path
1.2 +2 -8 parrot/languages/BASIC/compiler/RT_io.imc
Index: RT_io.imc
===================================================================
RCS file: /cvs/public/parrot/languages/BASIC/compiler/RT_io.imc,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- RT_io.imc 4 Jul 2003 02:13:41 -0000 1.1
+++ RT_io.imc 8 Jul 2003 13:57:30 -0000 1.2
@@ -88,16 +88,10 @@
.sub _READLINE # string readline(int fd)
saveall
.param int fd
- ne 0, fd, NOTSTDIN
- call _line_read
- readline $S0, fd
- branch ENDREAD
-NOTSTDIN:
find_global $P0, "FDS"
$P1=$P0[fd]
set $S0, ""
- read $S0, $P1, 255
-ENDREAD:
+ readline $S0, $P1
.return $S0
restoreall
ret
