merge r13489 from cpstrnew branch by florian:

* made tcpstr1 work

git-svn-id: trunk@19086 -

compiler/ncginl.pas

@@ -328,7 +328,6 @@ implementation
      end;
 
 
-
 {*****************************************************************************
                           LENGTH GENERIC HANDLING
 *****************************************************************************}

rtl/i386/i386.inc

@@ -1643,7 +1643,7 @@ asm
 .Lj3620:
         movl    (%esp),%eax
         movl    (%eax),%eax
-        subl    $8,%eax
+        subl    $12,%eax
         call    FPC_FREEMEM_X
         movl    (%esp),%eax
         movl    $0,(%eax)