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

* allow assembler labels to be used in typed consts

Browse Source 
git-svn-id: trunk@3590 -
This commit is contained in:
florian 2006-05-20 10:18:46 +00:00
parent 307315cef6
commit 627c7f2ae0
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/symsym.pas
View File

@ -63,6 +63,7 @@ interface
constructor create(const n : string); constructor create(const n : string);
constructor ppuload(ppufile:tcompilerppufile); constructor ppuload(ppufile:tcompilerppufile);
procedure ppuwrite(ppufile:tcompilerppufile);override; procedure ppuwrite(ppufile:tcompilerppufile);override;
function mangledname:string;
end; end;
tunitsym = class(Tstoredsym) tunitsym = class(Tstoredsym)
@ -474,6 +475,16 @@ implementation
end; end;
function tlabelsym.mangledname:string;
begin
if not(defined) then
begin
defined:=true;
current_asmdata.getjumplabel(asmblocklabel);
end;
result:=asmblocklabel.getname;
end;
{**************************************************************************** {****************************************************************************
TUNITSYM TUNITSYM
****************************************************************************} ****************************************************************************}