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

Fix testppudump by adding missing TAsmsymtype and TAsmsymbind

Browse Source 
git-svn-id: trunk@34189 -
This commit is contained in:
pierre 2016-07-22 16:42:10 +00:00
parent 02ebae7658
commit c3ac426131
1 changed files with 42 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
compiler/utils/ppuutils/ppudump.pp
View File

@ -879,19 +879,35 @@ const
);
type
{ Copied from aasmbase.pas }
TAsmsymbind=(
AB_NONE,AB_EXTERNAL,AB_COMMON,AB_LOCAL,AB_GLOBAL,AB_WEAK_EXTERNAL,
{ global in the current program/library, but not visible outside it }
AB_PRIVATE_EXTERN,AB_LAZY,AB_IMPORT);
TAsmsymbind=(
AB_NONE,AB_EXTERNAL,AB_COMMON,AB_LOCAL,AB_GLOBAL,AB_WEAK_EXTERNAL,
{ global in the current program/library, but not visible outside it }
AB_PRIVATE_EXTERN,AB_LAZY,AB_IMPORT,
{ a symbol that's internal to the compiler and used as a temp }
AB_TEMP,
{ a global symbol that points to another global symbol and is only used
to allow indirect loading in case of packages and indirect imports }
AB_INDIRECT,AB_EXTERNAL_INDIRECT);
TAsmsymtype=(
AT_NONE,AT_FUNCTION,AT_DATA,AT_SECTION,AT_LABEL,
{
the address of this code label is taken somewhere in the code
so it must be taken care of it when creating pic
}
AT_ADDR
);
TAsmsymtype=(
AT_NONE,AT_FUNCTION,AT_DATA,AT_SECTION,AT_LABEL,
{
the address of this code label is taken somewhere in the code
so it must be taken care of it when creating pic
}
AT_ADDR,
{ Label for debug or other non-program information }
AT_METADATA,
{ label for data that must always be accessed indirectly, because it
is handled explcitely in the system unit or (e.g. RTTI and threadvar
tables) -- never seen in an assembler/assembler writer, always
changed to AT_DATA }
AT_DATA_FORCEINDIRECT,
{ Thread-local symbol (ELF targets) }
AT_TLS,
{ GNU indirect function (ELF targets) }
AT_GNU_IFUNC
);
var
s,
@ -930,6 +946,12 @@ begin
bindstr:='Lazy';
AB_IMPORT :
bindstr:='Import';
AB_TEMP :
bindstr:='Temp';
AB_INDIRECT :
bindstr:='Indirect';
AB_EXTERNAL_INDIRECT :
bindstr:='Indirect external';
else
begin
bindstr:='<Error !!>';
@ -947,6 +969,14 @@ begin
typestr:='Label';
AT_ADDR :
typestr:='Label (with address taken)';
AT_METADATA :
typestr:='Metadata';
AT_DATA_FORCEINDIRECT :
typestr:='Data (ForceIndirect)';
AT_TLS :
typestr:='TLS';
AT_GNU_IFUNC :
typestr:='GNU IFUNC';
else
begin
typestr:='<Error !!>';