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

* resultname changed to pshortstring

Browse Source 
git-svn-id: trunk@5295 -
This commit is contained in:
peter 2006-11-09 07:43:13 +00:00
parent 7781e842fc
commit 13f359aa80
2 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/pdecsub.pas
View File

@ -200,6 +200,7 @@ implementation
vs : tlocalvarsym;
aliasvs : tabsolutevarsym;
sl : tpropaccesslist;
hs : string;
begin
{ The result from constructors and destructors can't be accessed directly }
if not(pd.proctypeoption in [potype_constructor,potype_destructor]) and
@ -220,11 +221,13 @@ implementation
{ insert the name of the procedure as alias for the function result,
we can't use realname because that will not work for compilerprocs
as the name is lowercase and unreachable from the code }
if pd.resultname='' then
pd.resultname:=pd.procsym.name;
if assigned(pd.resultname) then
hs:=pd.resultname^
else
hs:=pd.procsym.name;
sl:=tpropaccesslist.create;
sl.addsym(sl_load,pd.funcretsym);
aliasvs:=tabsolutevarsym.create_ref(pd.resultname,pd.returndef,sl);
aliasvs:=tabsolutevarsym.create_ref(hs,pd.returndef,sl);
include(aliasvs.varoptions,vo_is_funcret);
tlocalsymtable(pd.localst).insert(aliasvs);
@ -1051,7 +1054,7 @@ implementation
end
else
begin
pd.resultname:=orgpattern;
pd.resultname:=stringdup(orgpattern);
consume(_ID);
end;
if not try_to_consume(_COLON) then

2
compiler/symdef.pas
View File

@ -439,7 +439,7 @@ interface
libsymderef : tderef;
{$endif powerpc or m68k}
{ name of the result variable to insert in the localsymtable }
resultname : TIDString;
resultname : pshortstring;
{ true, if the procedure is only declared
(forward procedure) }
forwarddef,