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

* fixed compilation of macpas interface-only units

Browse Source 
git-svn-id: trunk@2130 -
This commit is contained in:
Jonas Maebe 2006-01-02 20:55:10 +00:00
parent f3e69a1569
commit 48e98d2a17
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/symdef.pas
View File

@ -3890,8 +3890,14 @@ implementation
{ This is not allowed anymore, the forward declaration
already needs to create the correct mangledname, no changes
afterwards are allowed (PFV) }
{ Exception: interface definitions in mode macpas, since in that }
{ case no reference to the old name can exist yet (JM) }
if assigned(_mangledname) then
internalerror(200411171);
if ((m_mac in aktmodeswitches) and
(interfacedef)) then
stringdispose(_mangledname)
else
internalerror(200411171);
{$ifdef compress}
_mangledname:=stringdup(minilzw_encode(s));
{$else}