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

* don't give an internalerror when setting the mangledbasename in case the

Browse Source 
regular mangledname has already been set (just like we don't internalerror
    when changing the regular mangledname even if it has already been set);
    this happens e.g. when specifying the external name of some interface
    variables, such as in the Win32 system unit

git-svn-id: branches/jvmbackend@20893 -
This commit is contained in:
Jonas Maebe 2012-04-15 20:49:40 +00:00
parent aee5380ae0
commit fb73001389
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/symsym.pas
View File

@ -1714,16 +1714,14 @@ implementation
procedure tstaticvarsym.set_mangledbasename(const s: TSymStr);
begin
{$ifdef symansistr}
if _mangledname<>'' then
internalerror(2011082202);
{$ifdef symansistr}
_mangledbasename:=s;
{$else symansistr}
if assigned(_mangledname) then
internalerror(2011082202);
_mangledname:='';
{$else symansistr}
stringdispose(_mangledname);
stringdispose(_mangledbasename);
_mangledbasename:=stringdup(s);
{$endif symansistr}
{$endif symansistr}
include(varoptions,vo_has_mangledname);
end;