What am I doing wrong?
R5beta takes about 25 times the elapsed time of R4.2
/*
E:\>rexx tio
REXX-ooRexx_4.2.0(MT)_64-bit 6.04 22 Feb 2014
0.116000
0.389000
Installed R5:
E:\>rexx tio
REXX-ooRexx_5.0.0(MT)_64-bit 6.05 8 Sep 2020
3.010000
8.967000
Back to R4:
E:\>rexx tio
REXX-ooRexx_4.2.0(MT)_64-bit 6.04 22 Feb 2014
0.132000
0.463000
*/
Parse Version v
Say v
'erase large.*'
fid='large.txt'
Call time 'R'
Do i=1 To 10000
Call lineout fid,right(i,70)
End
Call lineout fid
Say time('E')
oid='large.xxx'
Call time 'R'
Do While lines(fid)>0
Call lineout oid,linein(fid)
End
Call lineout fid
Call lineout oid
Say time('E')
Regards
Walter
_______________________________________________ Oorexx-devel mailing list Oorexx-devel@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/oorexx-devel
