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

* allow recursive calls again in assembler procedure

Browse Source
This commit is contained in:
Jonas Maebe 2001-11-09 10:06:56 +00:00
parent b08f72ffa8
commit 816cfa08b3
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/pstatmnt.pas
View File

@ -1104,7 +1104,9 @@ implementation
if not is_void(aktprocdef.rettype.def) then if not is_void(aktprocdef.rettype.def) then
begin begin
{ insert in local symtable } { insert in local symtable }
{ but with another name, so that recursive calls are possible }
symtablestack.insert(aktprocdef.funcretsym); symtablestack.insert(aktprocdef.funcretsym);
symtablestack.rename(aktprocdef.funcretsym.name,'$result');
end; end;
{ force the asm statement } { force the asm statement }
if token<>_ASM then if token<>_ASM then
@ -1119,7 +1121,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.43 2001-11-02 22:58:05 peter Revision 1.44 2001-11-09 10:06:56 jonas
* allow recursive calls again in assembler procedure
Revision 1.43 2001/11/02 22:58:05 peter
* procsym definition rewrite * procsym definition rewrite
Revision 1.42 2001/10/26 22:36:42 florian Revision 1.42 2001/10/26 22:36:42 florian