paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-03 09:18:43 +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 ppuload(ppufile:tcompilerppufile);
procedure ppuwrite(ppufile:tcompilerppufile);override;
function mangledname:string;
end;
tunitsym = class(Tstoredsym)
@ -474,6 +475,16 @@ implementation
end;
function tlabelsym.mangledname:string;
begin
if not(defined) then
begin
defined:=true;
current_asmdata.getjumplabel(asmblocklabel);
end;
result:=asmblocklabel.getname;
end;
{****************************************************************************
TUNITSYM
****************************************************************************}