* create init rtti for fpc_copy instead of full rtti

git-svn-id: trunk@7714 -

compiler/ncgld.pas

@@ -640,7 +640,7 @@ implementation
               internalerror(200204249);
           end
        { try to reuse memory locations instead of copying }
-           { copy to a memory location ... }
+       { copy to a memory location ... }
         else if (right.location.loc = LOC_REFERENCE) and
            maybechangetemp(current_asmdata.CurrAsmList,left,right.location.reference) then
           begin

compiler/nld.pas

@@ -703,7 +703,7 @@ implementation
            (left.resultdef.typ in [arraydef,objectdef,recorddef]) then
          begin
            hp:=ccallparanode.create(caddrnode.create_internal(
-                  crttinode.create(tstoreddef(left.resultdef),fullrtti,rdt_normal)),
+                  crttinode.create(tstoreddef(left.resultdef),initrtti,rdt_normal)),
                ccallparanode.create(ctypeconvnode.create_internal(
                  caddrnode.create_internal(left),voidpointertype),
                ccallparanode.create(ctypeconvnode.create_internal(