paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-08 05:18:32 +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

3
compiler/ncgld.pas
View File

@ -323,6 +323,7 @@ implementation
{ Enable size optimization with -Os or PIC code is generated and PIC uses GOT }
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));
hreg_tv_rec:=NR_INVALID;
if size_opt then
begin
{ Load a pointer to the thread var record into a register. }
@ -568,7 +569,7 @@ implementation
LOC_CREFERENCE,
LOC_REFERENCE:
begin
if is_implicit_pointer_object_type(left.resultdef) or
if is_implicit_pointer_object_type(left.resultdef) or
(left.resultdef.typ=classrefdef) then
begin
vd:=left.resultdef;