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

Merged revisions 3590 via svnmerge from

Browse Source 
http://svn.freepascal.org/svn/fpc/trunk

r3590 (florian)
* allow assembler labels to be used in typed consts

git-svn-id: branches/fixes_2_0@3591 -
This commit is contained in:
florian 2006-05-20 10:27:35 +00:00
parent 55a3b27b99
commit 676ec647f2
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

@ -72,6 +72,7 @@ interface
{$ifdef GDB} {$ifdef GDB}
function stabstring : pchar;override; function stabstring : pchar;override;
{$endif GDB} {$endif GDB}
function mangledname:string;
end; end;
tunitsym = class(Tstoredsym) tunitsym = class(Tstoredsym)
@ -558,6 +559,16 @@ implementation
{$endif GDB} {$endif GDB}
function tlabelsym.mangledname:string;
begin
if not(defined) then
begin
defined:=true;
objectlibrary.getlabel(asmblocklabel);
end;
result:=asmblocklabel.getname;
end;
{**************************************************************************** {****************************************************************************
TUNITSYM TUNITSYM
****************************************************************************} ****************************************************************************}