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

Do allocate a new regset for top_regset for ARM compiler to avoid heap memory corruption

Browse Source 
(cherry picked from commit 1e5240b5a4)
This commit is contained in:
Pierre Muller 2024-05-02 13:52:04 +00:00
parent ae0fe8a6a0
commit 3326d095df
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/aasmtai.pas
View File

@ -2893,6 +2893,11 @@ implementation
p.oper[i]^.ref^:=oper[i]^.ref^; p.oper[i]^.ref^:=oper[i]^.ref^;
end; end;
{$ifdef ARM} {$ifdef ARM}
top_regset:
begin
new(p.oper[i]^.regset);
p.oper[i]^.regset^:=oper[i]^.regset^;
end;
top_shifterop: top_shifterop:
begin begin
new(p.oper[i]^.shifterop); new(p.oper[i]^.shifterop);