Преглед изворни кода

* compilation with -Oodfa fixed

git-svn-id: trunk@35555 -
florian пре 8 година
родитељ
комит
ea3495c20e
1 измењених фајлова са 2 додато и 1 уклоњено
  1. 2 1
      compiler/ncgld.pas

+ 2 - 1
compiler/ncgld.pas

@@ -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. }
@@ -568,7 +569,7 @@ implementation
                         LOC_CREFERENCE,
                         LOC_CREFERENCE,
                         LOC_REFERENCE:
                         LOC_REFERENCE:
                           begin
                           begin
-                             if is_implicit_pointer_object_type(left.resultdef) or 
+                             if is_implicit_pointer_object_type(left.resultdef) or
                                  (left.resultdef.typ=classrefdef) then
                                  (left.resultdef.typ=classrefdef) then
                                begin
                                begin
                                  vd:=left.resultdef;
                                  vd:=left.resultdef;