Преглед изворни кода

Merged revisions 11202 via svnmerge from
http://svn.freepascal.org/svn/fpc/trunk

........
r11202 | yury | 2008-06-05 08:24:58 +0000 (Thu, 05 Jun 2008) | 1 line

* Fixed r10992. Really warn if someone still uses ppc386.cfg
........

git-svn-id: branches/rc_2_2_2@11333 -

Tomas Hajny пре 17 година
родитељ
комит
4d38ffd427
1 измењених фајлова са 5 додато и 3 уклоњено
  1. 5 3
      compiler/options.pas

+ 5 - 3
compiler/options.pas

@@ -2300,9 +2300,11 @@ begin
       { Maybe alternative configfile ? }
       if (not read_configfile) and
          (ppcaltcfg<>'') then
-        read_configfile:=check_configfile(ppcaltcfg,ppccfg);
-        if read_configfile then
-          message(option_ppc386_deprecated);
+        begin
+          read_configfile:=check_configfile(ppcaltcfg,ppccfg);
+          if read_configfile then
+            message(option_ppc386_deprecated);
+        end;
     end
   else
     read_configfile := false;