develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35390 - trunk/languages/BASIC/compiler

From:
coke
Date:
January 10, 2009 22:21
Subject:
[svn:parrot] r35390 - trunk/languages/BASIC/compiler
Message ID:
20090111062114.F015ECB9F9@x12.develooper.com
Author: coke
Date: Sat Jan 10 22:21:14 2009
New Revision: 35390

Modified:
   trunk/languages/BASIC/compiler/RT_builtins.pir

Log:
[BASIC] - remove unused function (which happened to reference a long dead opcode.)



Modified: trunk/languages/BASIC/compiler/RT_builtins.pir
==============================================================================
--- trunk/languages/BASIC/compiler/RT_builtins.pir	(original)
+++ trunk/languages/BASIC/compiler/RT_builtins.pir	Sat Jan 10 22:21:14 2009
@@ -355,30 +355,6 @@
 FINISHED:
 	.return($N0)
 .end
-.sub _BUILTIN_STRING_STRING	# string string(num repeat, num ascii)
-	.param int argc
-	.param num repeatf
-
-	.local int repeat
-	set repeat, repeatf
-	.local string repeater
-	.local string target
-	set $I1, 0
-	set target, ""
-	entrytype $I0, 0
-	eq $I0, FLOAT, FLOATB
-	.local string thing
-	set repeater, thing
-	branch REP
-FLOATB:	.local num ascii
-	set $I0, ascii
-	chr repeater, $I0
-REP: 	ge $I1, repeat, BAIL
-	concat target, repeater
-	inc $I1
-	branch REP
-BAIL:	.return(target)
-.end
 .sub _BUILTIN_LOG		# num log(num op)
 	.param int argc
 	.param num op



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About