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

* fixed check for exporting var or proc

Browse Source
This commit is contained in:
peter 2000-04-24 12:47:27 +00:00
parent 68e75531e5
commit 015cca99cd
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/pexports.pas
View File

@ -64,7 +64,7 @@ unit pexports;
if assigned(srsym) then
begin
hp^.sym:=srsym;
if ((srsym^.typ<>procsym) or
if ((hp^.sym^.typ<>procsym) or
((tf_need_export in target_info.flags) and
not(po_exports in pprocdef(pprocsym(srsym)^.definition)^.procoptions)
)
@ -131,12 +131,10 @@ unit pexports;
end;
if (DefString<>'') and UseDeffileForExport then
DefFile.AddExport(DefString);
if srsym^.typ=procsym then
if hp^.sym^.typ=procsym then
exportlib^.exportprocedure(hp)
else
begin
exportlib^.exportvar(hp);
end;
exportlib^.exportvar(hp);
end;
end
else
@ -155,7 +153,10 @@ end.
{
$Log$
Revision 1.21 2000-02-24 18:41:39 peter
Revision 1.22 2000-04-24 12:47:27 peter
* fixed check for exporting var or proc
Revision 1.21 2000/02/24 18:41:39 peter
* removed warnings/notes
Revision 1.20 2000/02/23 23:06:39 florian