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

* fixed cs_externally_visible (macpas {$z+})

git-svn-id: trunk@5381 -
Jonas Maebe пре 18 година
родитељ
комит
76cd84f2a1
1 измењених фајлова са 2 додато и 1 уклоњено
  1. 2 1
      compiler/pdecvar.pas

+ 2 - 1
compiler/pdecvar.pas

@@ -838,8 +838,9 @@ implementation
                   is_external_var:=true;
                 end
               else if (cs_externally_visible in current_settings.localswitches) then
-                begin {The effect of this is the same as if cvar has been given as directives.}
+                begin {The effect of this is the same as if cvar has been given as directives and it's made public.}
                   is_cdecl:=true;
+                  is_public_var:=true;
                 end;
             end;