mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 09:59:25 +02:00
+ check for tf_init_final_units_by_calls in trv32nodeutils.insert_init_final_table
This commit is contained in:
parent
c86e7b43b4
commit
fbf20eee31
@ -93,6 +93,11 @@ implementation
|
||||
i : longint;
|
||||
ref:treference;
|
||||
begin
|
||||
if not(tf_init_final_units_by_calls in target_info.flags) then
|
||||
begin
|
||||
inherited insert_init_final_table(main,entries);
|
||||
exit;
|
||||
end;
|
||||
initList:=TAsmList.create;
|
||||
finalList:=TAsmList.create;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user