mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-15 05:09:49 +02:00
tstaticvarsym.ppuload: read the section string outside of the symansistr define to match the code of ppuwrite
git-svn-id: trunk@27467 -
This commit is contained in:
parent
5c1b8fdad9
commit
8ae36f3ef4
@ -1840,9 +1840,9 @@ implementation
|
|||||||
_mangledname:=stringdup(ppufile.getstring)
|
_mangledname:=stringdup(ppufile.getstring)
|
||||||
else
|
else
|
||||||
_mangledname:=nil;
|
_mangledname:=nil;
|
||||||
|
{$endif symansistr}
|
||||||
if vo_has_section in varoptions then
|
if vo_has_section in varoptions then
|
||||||
section:=ppufile.getansistring;
|
section:=ppufile.getansistring;
|
||||||
{$endif symansistr}
|
|
||||||
ppufile.getderef(defaultconstsymderef);
|
ppufile.getderef(defaultconstsymderef);
|
||||||
ppuload_platform(ppufile);
|
ppuload_platform(ppufile);
|
||||||
end;
|
end;
|
||||||
|
Loading…
Reference in New Issue
Block a user