return 1-based line numbers of HLL::Compiler.lineof

Author: moritz

src/HLL/Compiler.pm

@@ -660,6 +660,8 @@ class HLL::Compiler {
             inc line
             goto line_loop
           line_done:
+            # line numbers are generall 1-based
+            inc line
             .return (line)
         };
     }

src/HLL/Grammar.pm

@@ -318,7 +318,7 @@ of the match.
         my $pos := self.pos();
         my $target := pir::getattribute__PPPs(self, Regex::Cursor, '$!target');
         @args.push(' at line ');
-        @args.push(HLL::Compiler.lineof($target, $pos) + 1);
+        @args.push(HLL::Compiler.lineof($target, $pos));
         @args.push(', near "');
         @args.push(pir::escape__SS(pir::substr($target, $pos, 10)));
         @args.push('"');