Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
minor fixes
  • Loading branch information
diakopter committed Nov 1, 2011
1 parent 3fbbe7d commit b501c7f
Show file tree
Hide file tree
Showing 3 changed files with 4 additions and 3 deletions.
1 change: 1 addition & 0 deletions .gitignore
Expand Up @@ -12,5 +12,6 @@ java/compiler/x.*
java/compiler/NQPSetting.*
java/compiler/RakudoOutput.*
lua/compiler/*.lua
lua/compiler/*.lbc
lua/compiler/*.dll
lua/compiler/icu
2 changes: 1 addition & 1 deletion lua/compiler/LST2Lua.pm
Expand Up @@ -9,7 +9,7 @@ method compile(LST::Node $node) {
# Quick hack so we can get unique (for this compilation) IDs.
sub get_unique_id($prefix) {
$*CUR_ID := $*CUR_ID + 1;
if ($prefix eq 'result' || $prefix eq 'inv' || $prefix eq 'callee' || $prefix eq 'list' || $prefix eq 'try_result' || $prefix eq 'new' || $prefix eq 'viv_attr' || $prefix eq 'expr_result' || $prefix eq 'if_result' || $prefix eq 'expr_result_negated') {
if ($prefix ne 'block') {
return 'locals[' ~ $*CUR_ID ~ ']';
}
return $prefix ~ '_' ~ $*CUR_ID;
Expand Down
4 changes: 2 additions & 2 deletions lua/compiler/PAST2LSTCompiler.pm
Expand Up @@ -111,7 +111,7 @@ method compile(PAST::Node $node) {
LST::MethodCall.new(
:on('StaticBlockInfo[1].StaticLexPad'), :name('SetByName'), :void(1), :type('RakudoObject'),
LST::Literal.new( :value('NQPStr'), :escape(1) ),
'REPRRegistry.get_REPR_by_name("P6str").type_object_for(null, null)'
'REPRRegistry.get_REPR_by_name("P6str"):type_object_for(nil, nil)'
),

# We do the loadinit calls before building the constants, as we
Expand Down Expand Up @@ -266,7 +266,7 @@ sub make_constants_init_method($name) {
# Quick hack so we can get unique (for this compilation) IDs.
sub get_unique_id($prefix) {
$*CUR_ID := $*CUR_ID + 1;
if ($prefix eq 'result' || $prefix eq 'inv' || $prefix eq 'callee' || $prefix eq 'list' || $prefix eq 'if_cond' || $prefix eq 'if_result' || $prefix eq 'new' || $prefix eq 'viv_attr' || $prefix eq 'expr_result' || $prefix eq 'if_result' || $prefix eq 'expr_result_negated') {
if ($prefix ne 'block') {
return 'locals[' ~ $*CUR_ID ~ ']';
}
return $prefix ~ '_' ~ $*CUR_ID;
Expand Down

0 comments on commit b501c7f

Please sign in to comment.