소스 검색

* 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;
                   is_external_var:=true;
                 end
                 end
               else if (cs_externally_visible in current_settings.localswitches) then
               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_cdecl:=true;
+                  is_public_var:=true;
                 end;
                 end;
             end;
             end;