+ Internalerror if g_concatcopy is called with len=0.

git-svn-id: trunk@8052 -

compiler/x86/cgx86.pas

@@ -1566,6 +1566,8 @@ unit cgx86;
         cm:copymode;
 
     begin
+      if len=0 then
+        internalerror(200707142);
       cm:=copy_move;
       helpsize:=12;
       if cs_opt_size in current_settings.optimizerswitches then