paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-05 04:18:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazutils: fixed dangling pointer

Browse Source 
git-svn-id: trunk@50646 -
This commit is contained in:
mattias 2015-12-05 14:08:46 +00:00
parent 51db04d913
commit 82b946cccb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/utf8process.pp
View File

@ -355,7 +355,7 @@ Const
(HIGH_PRIORITY_CLASS,IDLE_PRIORITY_CLASS,
NORMAL_PRIORITY_CLASS,REALTIME_PRIORITY_CLASS);
function WStrAsUniquePWideChar(s: UnicodeString): PWideChar; inline;
function WStrAsUniquePWideChar(var s: UnicodeString): PWideChar; inline;
begin
UniqueString(s);
if s<>'' then