fix detection of error()

diff --git a/misc/tools/progs-analyzer.pl b/misc/tools/progs-analyzer.pl
index 91eb67f13f7bb4d2b414fe1d9ba51504cc7e644e..df803b7c22b8d0676f85e043bd3415c7a5cda3a0 100644 (file)
--- a/misc/tools/progs-analyzer.pl
+++ b/misc/tools/progs-analyzer.pl
@@ -686,7 +686,7 @@ sub find_uninitialized_locals($$)
                                my $func = $s->{a};
                                my $funcid = $progs->{globals}[$func]{v}{int};
                                my $funcobj = $progs->{functions}[$funcid];
-                               if($funcobj->{first_statement} >= 0)
+                               if(!$funcobj || $funcobj->{first_statement} >= 0)
                                {
                                        # invalidate temps
                                        for(values %$state)
@@ -697,9 +697,11 @@ sub find_uninitialized_locals($$)
                                                }
                                        }
                                }
-                               elsif($funcobj->{debugname} =~ /(^|:)error$/)
+                               else # builtin
                                {
-                                       return 1;
+                                       my $def = $progs->{globaldef_byoffset}->($func);
+                                       return 1
+                                               if $def->{debugname} eq 'error';
                                }
                        }