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

* In pure-assembler procedures, don't allocate/free any registers around the only assembler node. Such procedures don't use virtual registers or register allocator.

Browse Source 
git-svn-id: trunk@32608 -
This commit is contained in:
sergei 2015-12-07 18:32:35 +00:00
parent 894e61f6bd
commit 5709127a39
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/pstatmnt.pas
View File

@ -1073,6 +1073,10 @@ implementation
{ Read first the _ASM statement } { Read first the _ASM statement }
consume(_ASM); consume(_ASM);
{ Force an empty register list for pure assembler routines,
so that pass2 won't allocate volatile registers for them. }
asmstat.has_registerlist:=(po_assembler in current_procinfo.procdef.procoptions);
{ END is read, got a list of changed registers? } { END is read, got a list of changed registers? }
if try_to_consume(_LECKKLAMMER) then if try_to_consume(_LECKKLAMMER) then
begin begin