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

* don't look in objectsymtable when parsing the function return type

Browse Source
This commit is contained in:
peter 2003-10-01 18:28:55 +00:00
parent be82d39edd
commit c1c8c5dbb1
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/pdecsub.pas
View File

@ -736,6 +736,7 @@ implementation
var
pd : tprocdef;
hs : string;
oldst : tsymtable;
isclassmethod : boolean;
begin
pd:=nil;
@ -760,7 +761,12 @@ implementation
if try_to_consume(_COLON) then
begin
inc(testcurobject);
{ Don't look in the objectsymtable for types }
oldst:=symtablestack;
if symtablestack.symtabletype=objectsymtable then
symtablestack:=symtablestack.next;
single_type(pd.rettype,hs,false);
symtablestack:=oldst;
pd.test_if_fpu_result;
dec(testcurobject);
end
@ -2149,7 +2155,10 @@ const
end.
{
$Log$
Revision 1.140 2003-10-01 16:49:05 florian
Revision 1.141 2003-10-01 18:28:55 peter
* don't look in objectsymtable when parsing the function return type
Revision 1.140 2003/10/01 16:49:05 florian
* para items are now reversed for pascal calling conventions
Revision 1.139 2003/09/28 21:44:55 peter