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

* set po_public also when parsing the object declaration

Browse Source
This commit is contained in:
peter 2003-06-05 20:04:43 +00:00
parent f65d119ea1
commit be7a5b76a4
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/pdecsub.pas
View File

@ -710,7 +710,10 @@ implementation
pd.proctypeoption:=potype; pd.proctypeoption:=potype;
{ methods need to be exported } { methods need to be exported }
if assigned(aclass) and if assigned(aclass) and
(symtablestack.symtablelevel=main_program_level) then (
(symtablestack.symtabletype=objectsymtable) or
(symtablestack.symtablelevel=main_program_level)
) then
include(pd.procoptions,po_public); include(pd.procoptions,po_public);
{ symbol options that need to be kept per procdef } { symbol options that need to be kept per procdef }
@ -2168,7 +2171,10 @@ const
end. end.
{ {
$Log$ $Log$
Revision 1.126 2003-06-02 21:42:05 jonas Revision 1.127 2003-06-05 20:04:43 peter
* set po_public also when parsing the object declaration
Revision 1.126 2003/06/02 21:42:05 jonas
* function results can now also be regvars * function results can now also be regvars
- removed tprocinfo.return_offset, never use it again since it's invalid - removed tprocinfo.return_offset, never use it again since it's invalid
if the result is a regvar if the result is a regvar