paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 23:50:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ set vo_is_exported for vars

Browse Source
This commit is contained in:
pierre 2000-06-02 21:18:13 +00:00
parent b8020e724b
commit 28ce798307
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/pdecl.pas
View File

@ -556,7 +556,8 @@ unit pdecl;
if idtoken in [_EXPORT,_PUBLIC] then
begin
consume(_ID);
if extern_aktvarsym then
if extern_aktvarsym or
(symtablestack^.symtabletype in [parasymtable,localsymtable]) then
Message(parser_e_not_external_and_export)
else
export_aktvarsym:=true;
@ -585,7 +586,14 @@ unit pdecl;
aktvarsym:=new(pvarsym,init_C(s,C_name,tt));
{ set some vars options }
if export_aktvarsym then
inc(aktvarsym^.refs);
begin
inc(aktvarsym^.refs);
{$ifdef INCLUDEOK}
include(aktvarsym^.varoptions,vo_is_exported);
{$else}
aktvarsym^.varoptions:=aktvarsym^.varoptions+[vo_is_exported];
{$endif}
end;
if extern_aktvarsym then
{$ifdef INCLUDEOK}
include(aktvarsym^.varoptions,vo_is_external);
@ -1210,7 +1218,10 @@ unit pdecl;
end.
{
$Log$
Revision 1.182 2000-06-01 19:14:09 peter
Revision 1.183 2000-06-02 21:18:13 pierre
+ set vo_is_exported for vars
Revision 1.182 2000/06/01 19:14:09 peter
* symtable.insert changed to procedure
Revision 1.181 2000/04/17 18:44:22 peter
@ -1294,4 +1305,4 @@ end.
Revision 1.159 1999/10/01 10:05:42 peter
+ procedure directive support in const declarations, fixes bug 232
}
}