* fix compilation with 3.0.x and -Oonodedfa enabled after r37887

git-svn-id: trunk@37919 -

compiler/pdecsub.pas

@@ -2873,6 +2873,7 @@ const
 
     function find_proc_directive_index(tok: ttoken): longint; inline;
       begin
+        result:=-1;
         for result:=1 to num_proc_directives do
           if proc_direcdata[result].idtok=tok then
             exit;