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

* don't omit stackframe on avr for assembler routines

Browse Source 
git-svn-id: branches/avr@17031 -
This commit is contained in:
florian 2011-02-26 21:02:50 +00:00
parent f255b1103b
commit ad9956022c
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/pstatmnt.pas
View File

@ -1297,8 +1297,7 @@ implementation
include(current_procinfo.flags,pi_is_assembler);
p:=_asm_statement;
{$ifndef sparc}
{$ifndef arm}
{$if not(defined(sparc)) and not(defined(arm)) and not(defined(avr))}
if (po_assembler in current_procinfo.procdef.procoptions) then
begin
{ set the framepointer to esp for assembler functions when the
@ -1323,8 +1322,7 @@ implementation
current_procinfo.framepointer:=NR_STACK_POINTER_REG;
end;
end;
{$endif arm}
{$endif sparc}
{$endif not(defined(sparc)) and not(defined(arm)) and not(defined(avr))}
{ Flag the result as assigned when it is returned in a
register.