paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-11 05:18:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* compilation with -Oodfa fixed

Browse Source 
git-svn-id: trunk@35555 -
This commit is contained in:
florian 2017-03-09 22:09:43 +00:00
parent 4ec547301d
commit ea3495c20e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/ncgld.pas
View File

@ -323,6 +323,7 @@ implementation
{ Enable size optimization with -Os or PIC code is generated and PIC uses GOT } { Enable size optimization with -Os or PIC code is generated and PIC uses GOT }
size_opt:=(cs_opt_size in current_settings.optimizerswitches) size_opt:=(cs_opt_size in current_settings.optimizerswitches)
or ((cs_create_pic in current_settings.moduleswitches) and (tf_pic_uses_got in target_info.flags)); or ((cs_create_pic in current_settings.moduleswitches) and (tf_pic_uses_got in target_info.flags));
hreg_tv_rec:=NR_INVALID;
if size_opt then if size_opt then
begin begin
{ Load a pointer to the thread var record into a register. } { Load a pointer to the thread var record into a register. }