Merged revisions 1376 via svnmerge from

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

r1376 (peter)
  * function name doesn't call the function in macpas

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

compiler/pexpr.pas

@@ -1220,9 +1220,14 @@ implementation
               (vo_is_funcret in tabstractvarsym(srsym).varoptions) and
               (
                (token=_LKLAMMER) or
-               (not(m_fpc in aktmodeswitches) and
+               (
+                (
+                 (m_tp7 in aktmodeswitches) or
+                 (m_delphi in aktmodeswitches)
+                ) and
                 (afterassignment or in_args) and
-                not(vo_is_result in tabstractvarsym(srsym).varoptions))
+                not(vo_is_result in tabstractvarsym(srsym).varoptions)
+               )
               ) then
             begin
               storesymtablestack:=symtablestack;