From 4b9a082152da62e020aeb491b83afc45c1b872f8 Mon Sep 17 00:00:00 2001 From: paul Date: Sat, 17 Sep 2011 13:17:19 +0000 Subject: [PATCH] merge r17371 from cpstrnew branch by michael: * Patch from Inoussa to fix tunistr5.pp git-svn-id: trunk@19108 - --- compiler/asmutils.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/asmutils.pas b/compiler/asmutils.pas index 28570893d0..bc7a454ab0 100644 --- a/compiler/asmutils.pas +++ b/compiler/asmutils.pas @@ -94,7 +94,7 @@ uses else begin list.concat(Tai_const.Create_pint(-1)); - list.concat(Tai_const.Create_pint(strlength*cwidechartype.size)); + list.concat(Tai_const.Create_pint(strlength)); end; { make sure the string doesn't get dead stripped if the header is referenced } if (target_info.system in systems_darwin) then