File tree 2 files changed +4
-4
lines changed
2 files changed +4
-4
lines changed Original file line number Diff line number Diff line change @@ -20,7 +20,7 @@ sub dispatch_file_scope_stm {
20
20
}
21
21
22
22
sub register_taggable {
23
- push_decl($lastpos_dispatch , $+ {tagtype } . " " . $+ {identtag })
23
+ push_decl($lastcurpos , $+ {tagtype } . " " . $+ {identtag })
24
24
}
25
25
26
26
sub register_normal_decl {
@@ -29,5 +29,5 @@ sub register_normal_decl {
29
29
$matches [-1]{' ident' } = $ident ;
30
30
# CORE::print ("registering " . $ident . " " . $matches[-1]{typedefkey} . "\n");
31
31
register_decl($matches [-1]);
32
- push_decl($lastpos_dispatch , $ident )
32
+ push_decl($lastcurpos , $ident )
33
33
}
Original file line number Diff line number Diff line change @@ -576,7 +576,7 @@ sub findnearest {
576
576
577
577
sub getidtostor {
578
578
my $ident = $_ [0];
579
- my $currpos = $currexecinitialpos ;
579
+ my $currpos = pos () ;
580
580
my $lastid = -1;
581
581
582
582
{
@@ -646,7 +646,7 @@ sub waitforid {
646
646
foreach my $ind (@{$identstoidmap -> {$ident }}) {
647
647
lock @{$ind };
648
648
# CORE::print ("check map $ind \n");
649
- last if (not ( $ind -> [0] < $currpos ) );
649
+ last if ($ind -> [0] >= $currpos );
650
650
$areallset = $areallset && $ind -> [1];
651
651
last if (not $areallset );
652
652
++$nset ;
You can’t perform that action at this time.
0 commit comments