paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 10:59:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed (real)modulename memory leak when changing the module name

Browse Source 
git-svn-id: trunk@21954 -
This commit is contained in:
Jonas Maebe 2012-07-23 13:49:36 +00:00
parent 0a1157da38
commit ba4b08261c
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/fmodule.pas
View File

@ -965,6 +965,8 @@ implementation
procedure tmodule.setmodulename(const s:string); procedure tmodule.setmodulename(const s:string);
begin begin
stringdispose(modulename);
stringdispose(realmodulename);
modulename:=stringdup(upper(s)); modulename:=stringdup(upper(s));
realmodulename:=stringdup(s); realmodulename:=stringdup(s);
{ also update asmlibrary names } { also update asmlibrary names }