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

- removed {$ifdef compress} code (it hasn't been activated/maintained since

Browse Source 
a very long time)

git-svn-id: trunk@27359 -
This commit is contained in:
Jonas Maebe 2014-03-29 22:31:46 +00:00
parent 6b16c05a98
commit 57859963d6
2 changed files with 13 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
compiler/symdef.pas
View File

@ -5317,16 +5317,11 @@ implementation
if assigned(_mangledname) then
{$endif symansistr}
begin
{$ifdef compress}
{$error add support for ansistrings in case of symansistr}
mangledname:=minilzw_decode(_mangledname^);
{$else}
{$ifdef symansistr}
{$ifdef symansistr}
mangledname:=_mangledname;
{$else symansistr}
{$else symansistr}
mangledname:=_mangledname^;
{$endif symansistr}
{$endif}
{$endif symansistr}
exit;
end;
{$ifndef jvm}
@ -5344,16 +5339,11 @@ implementation
else
jvmaddtypeownerprefix(owner,mangledname);
{$endif not jvm}
{$ifdef compress}
{$error add support for ansistrings in case of symansistr}
_mangledname:=stringdup(minilzw_encode(mangledname));
{$else}
{$ifdef symansistr}
_mangledname:=mangledname;
{$else symansistr}
_mangledname:=stringdup(mangledname);
{$endif symansistr}
{$endif}
{$ifdef symansistr}
_mangledname:=mangledname;
{$else symansistr}
_mangledname:=stringdup(mangledname);
{$endif symansistr}
end;
@ -5703,16 +5693,11 @@ implementation
include(procoptions,po_has_importname);
include(procoptions,po_has_mangledname);
{$else}
{$ifdef compress}
{$error add support for symansistr}
_mangledname:=stringdup(minilzw_encode(s));
{$else}
{$ifdef symansistr}
{$ifdef symansistr}
_mangledname:=s;
{$else symansistr}
{$else symansistr}
_mangledname:=stringdup(s);
{$endif symansistr}
{$endif}
{$endif symansistr}
{$endif jvm}
include(procoptions,po_has_mangledname);
end;

14
compiler/symsym.pas
View File

@ -1848,22 +1848,14 @@ implementation
usename:=name
else
usename:=_mangledbasename;
_mangledname:=make_mangledname(prefix,owner,usename);
{$else symansistr}
if not assigned(_mangledbasename) then
usename:=name
else
usename:=_mangledbasename^;
_mangledname:=stringdup(make_mangledname(prefix,owner,usename));
{$endif symansistr}
{$ifdef compress}
{$error add ansistring support for symansistr}
_mangledname:=stringdup(minilzw_encode(make_mangledname(prefix,owner,usename)));
{$else compress}
{$ifdef symansistr}
_mangledname:=make_mangledname(prefix,owner,usename);
{$else symansistr}
_mangledname:=stringdup(make_mangledname(prefix,owner,usename));
{$endif symansistr}
{$endif compress}
{$endif jvm}
end;
{$ifdef symansistr}
@ -1909,8 +1901,6 @@ implementation
{$if defined(jvm)}
_mangledname:=jvmmangledbasename(self,s,false);
jvmaddtypeownerprefix(owner,_mangledname);
{$elseif defined(compress)}
_mangledname:=stringdup(minilzw_encode(s));
{$else}
{$ifdef symansistr}
_mangledname:=s;