Permalink
Browse files

fix after parrot/parrot@6afb0ae

(.annotate file)
  • Loading branch information...
1 parent 7edb8bf commit 2792a9db516a29b2e85ee0795821356373a49f76 @fperrad committed Jun 19, 2011
Showing with 6 additions and 1 deletion.
  1. +6 −1 lua/lib/luabasic.pir
View
@@ -1,4 +1,4 @@
-# Copyright (C) 2005-2009, Parrot Foundation.
+# Copyright (C) 2005-2011, Parrot Foundation.
# $Id$
=head1 Lua Basic Library
@@ -434,12 +434,17 @@ To load and run a given string, use the idiom
=cut
+.include 'cclass.pasm'
+
.sub 'loadstring'
.param pmc s :optional
.param pmc chunkname :optional
.param pmc extra :slurpy
$S1 = lua_checkstring(1, s)
$S2 = lua_optstring(2, chunkname, $S1)
+ $I0 = length $S2
+ $I0 = find_cclass .CCLASS_NEWLINE, $S2, 0, $I0
+ $S2 = substr $S2, 0, $I0
($P0, $S0) = lua_loadbuffer($S1, $S2)
.tailcall load_aux($P0, $S0)
.end

0 comments on commit 2792a9d

Please sign in to comment.