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

fix store stacklength but not its addr in info

Browse Source
This commit is contained in:
Jinyang He 2023-06-21 09:50:45 +08:00 committed by Michael Van Canneyt
parent bad62d51fa
commit 2928837225
3 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/linux/loongarch64/si_c.inc
View File

@ -78,6 +78,7 @@ procedure main_stub; assembler; nostackframe;
la.got, $t0, SysInitEntryInformation
st.d $sp, $t0, TEntryInformation.OS.stkptr
la.got $t1, StackLength
ld.d $t1, $t1, 0
st.d $t1, $t0, TEntryInformation.OS.stklen
la.got $t2, _FPC_libc_haltproc
st.d $t2, $t0, TEntryInformation.OS.haltproc

1
rtl/linux/loongarch64/si_g.inc
View File

@ -77,6 +77,7 @@ procedure main_stub; assembler; nostackframe;
la.got, $t0, SysInitEntryInformation
st.d $sp, $t0, TEntryInformation.OS.stkptr
la.got $t1, StackLength
ld.d $t1, $t1, 0
st.d $t1, $t0, TEntryInformation.OS.stklen
la.got $t2, _FPC_libc_haltproc
st.d $t2, $t0, TEntryInformation.OS.haltproc

1
rtl/linux/loongarch64/si_prc.inc
View File

@ -50,6 +50,7 @@ procedure _FPC_proc_start; assembler; nostackframe; public name '_start';
st.d $sp, $t1, TEntryInformation.OS.stkptr
la.got $t0, StackLength
ld.d $t0, $t0, 0
st.d $t0, $t1, TEntryInformation.OS.stklen
la.got $t2, _FPC_proc_haltproc
st.d $t2, $t1, TEntryInformation.OS.haltproc