diff options
| author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-11-04 17:07:53 +0000 |
|---|---|---|
| committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-11-04 17:07:53 +0000 |
| commit | 2e2daa66fccd73fd09fd3d188a2ed2e40adde167 (patch) | |
| tree | 68b29d652966b37517ed7c5c6bc829d614892596 /rtl | |
| parent | fbf316185a7613231677d21d52b0c6174ab109a9 (diff) | |
| parent | 7a5e4cd906877649e3ccc8cd46bc3db6d31bf52f (diff) | |
| download | fpc-objc.tar.gz | |
* merged r14048 - r14054 from trunkobjc
git-svn-id: http://svn.freepascal.org/svn/fpc/branches/objc@14055 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'rtl')
| -rw-r--r-- | rtl/inc/wustring22.inc | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/rtl/inc/wustring22.inc b/rtl/inc/wustring22.inc index 6b73469bb7..8a48073a33 100644 --- a/rtl/inc/wustring22.inc +++ b/rtl/inc/wustring22.inc @@ -1447,13 +1447,7 @@ var begin SetLength(S,Len); If (Buf<>Nil) and (Len>0) then - begin - BufLen := IndexByte(Buf^, Len+1, 0); - If (BufLen>0) and (BufLen < Len) then - Len := BufLen; - widestringmanager.Ansi2WideMoveProc(Buf,S,Len); - //PWideChar(Pointer(S)+Len*sizeof(WideChar))^:=#0; - end; + widestringmanager.Ansi2WideMoveProc(Buf,S,Len); end; |