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

* Made a stupid mistake in r19460: restoring rbp from rbp-relative reference will obviously crash. This went unnoticed however, because PASCALMAIN does not return and wrong code is never executed. Fixed by storing rbp in non-volatile register instead of local var.

Browse Source 
git-svn-id: trunk@19501 -
This commit is contained in:
sergei 2011-10-16 12:38:47 +00:00
parent 80b5100bf6
commit 8e41ecfd54
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/win64/system.pp
View File

@ -181,7 +181,6 @@ var
procedure Exe_entry;[public,alias:'_FPC_EXE_Entry'];
var
ST : pointer;
save_rbp: pointer;
begin
IsLibrary:=false;
{ install the handlers for exe only ?
@ -189,7 +188,6 @@ procedure Exe_entry;[public,alias:'_FPC_EXE_Entry'];
install_exception_handlers;
ExitCode:=0;
asm
movq %rbp,save_rbp
movq %rsp,%rax
movq %rax,st
end;
@ -198,10 +196,11 @@ procedure Exe_entry;[public,alias:'_FPC_EXE_Entry'];
xorq %rax,%rax
movw %ss,%ax
movl %eax,_SS(%rip)
movq %rbp,%rsi
xorq %rbp,%rbp
call PASCALMAIN
movq save_rbp,%rbp
end;
movq %rsi,%rbp
end ['RSI','RBP']; { <-- specifying RSI allows compiler to save/restore it properly }
{ if we pass here there was no error ! }
system_exit;
end;