* Removed the uf_extrtti module flag. Having a flag that is always set if of no use.

git-svn-id: branches/joost/classattributes@25235 -

compiler/ncgrtti.pas

@@ -28,7 +28,6 @@ interface
     uses
       cclasses,constexp,
       aasmbase,aasmdata,
-      ppu,
       symbase,symconst,symtype,symdef;
 
     type
@@ -1365,8 +1364,6 @@ implementation
           { Write a trailing 255 to mark the end of the symbols-list }
           current_asmdata.asmlists[al_rtti].concat(cai_align.Create(sizeof(TConstPtrUInt)));
           current_asmdata.asmlists[al_rtti].concat(Tai_const.Create_8bit(255));
-
-          current_module.flags:=current_module.flags+uf_extrtti;
         end;
     end;
 

compiler/ngenutil.pas

@@ -656,11 +656,8 @@ implementation
       hp:=tused_unit(usedunits.first);
       while assigned(hp) do
        begin
-         if (hp.u.flags and uf_extrtti) <> 0 then
-           begin
-             unitinits.concat(Tai_const.Createname(make_mangledname('EXTRU_',hp.u.globalsymtable,''),0));
-             inc(count);
-           end;
+         unitinits.concat(Tai_const.Createname(make_mangledname('EXTRU_',hp.u.globalsymtable,''),0));
+         inc(count);
          hp:=tused_unit(hp.next);
        end;
       { Insert TableCount,InitCount at start }

compiler/ppu.pas

@@ -162,7 +162,6 @@ const
   uf_wideinits           = $400000; { this unit has winlike widestring typed constants }
   uf_classinits          = $800000; { this unit has class constructors/destructors }
   uf_resstrinits        = $1000000; { this unit has string consts referencing resourcestrings }
-  uf_extrtti            = $2000000; { this unit has extended rtti information }
 
 {$ifdef generic_cpu}
 { We need to use the correct size of aint and pint for