fix when FPC_USE_LIBC is disabled not call PASCALMAIN

This commit is contained in:
Jinyang He 2023-06-20 18:07:37 +08:00 committed by Michael Van Canneyt
parent 706aefb2aa
commit bad62d51fa

View File

@ -85,13 +85,12 @@ procedure _FPC_proc_start; assembler; nostackframe; public name '_start';
la.got $t0, initialstkptr
st.d $sp, $t0, 0
{$if defined(FPC_USE_LIBC)}
{ call PascalMain }
bl PASCALMAIN
{$else}
{$if not defined(FPC_USE_LIBC)}
bl InitTLS
{$endif}
{$endif}
{ call PascalMain }
bl PASCALMAIN
break 1
end;