+ second try on warning fix

git-svn-id: trunk@28015 -
2025-09-01 23:50:23 +02:00 · 2014-06-20 13:36:57 +00:00 · 2014-06-20 13:36:57 +00:00 · 195dbc15fa
commit 195dbc15fa
parent 00b55e100c
1 changed files with 1 additions and 0 deletions
--- a/compiler/pexpr.pas
+++ b/compiler/pexpr.pas
@ -2442,6 +2442,7 @@ implementation

           { preinitalize tokenpos }
           tokenpos:=current_filepos;
+           p1:=nil;

           { first check for identifier }
           if token<>_ID then