Merged revisions 2505 via svnmerge from

http://[email protected]/svn/fpc/trunk

........
r2505 | peter | 2006-02-10 09:01:53 +0100 (Fri, 10 Feb 2006) | 2 lines

  * fixed invalid memory read in tp-mode when parsing uses clause

........

git-svn-id: branches/fixes_2_0@2584 -

compiler/pmodules.pas

@@ -564,13 +564,10 @@ implementation
            sorg:=orgpattern;
            consume(_ID);
            { support "<unit> in '<file>'" construct, but not for tp7 }
-           if not(m_tp7 in aktmodeswitches) then
-            begin
-              if try_to_consume(_OP_IN) then
-               fn:=FixFileName(get_stringconst)
-              else
-               fn:='';
-            end;
+           fn:='';
+           if not(m_tp7 in aktmodeswitches) and
+              try_to_consume(_OP_IN) then
+             fn:=FixFileName(get_stringconst);
            { Give a warning if objpas is loaded }
            if s='OBJPAS' then
             Message(parser_w_no_objpas_use_mode);