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

+ New tai_ent and tai_ent_end classes

Browse Source 
git-svn-id: trunk@21779 -
This commit is contained in:
pierre 2012-07-04 16:32:20 +00:00
parent 68d7e943c8
commit f92fba996d
1 changed files with 39 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
compiler/aasmtai.pas
View File

@ -68,10 +68,13 @@ interface
ait_stab,
ait_force_line,
ait_function_name,
{ Used for .ent .end pair used for .dpr section in MIPS
and probably also for Alpha }
ait_ent,
ait_ent_end,
{$ifdef alpha}
{ the follow is for the DEC Alpha }
ait_frame,
ait_ent,
{$endif alpha}
{$ifdef ia64}
ait_bundle,
@ -163,10 +166,11 @@ interface
'stab',
'force_line',
'function_name',
'ent',
'ent_end',
{$ifdef alpha}
{ the follow is for the DEC Alpha }
'frame',
'ent',
{$endif alpha}
{$ifdef ia64}
'bundle',
@ -261,7 +265,8 @@ interface
a new ait type! }
SkipInstr = [ait_comment, ait_symbol,ait_section
,ait_stab, ait_function_name, ait_force_line
,ait_regalloc, ait_tempalloc, ait_symbol_end, ait_directive
,ait_regalloc, ait_tempalloc, ait_symbol_end
,ait_ent, ait_ent_end, ait_directive
,ait_varloc,ait_seh_directive
,ait_jvar, ait_jcatch];
@ -272,6 +277,7 @@ interface
ait_stab,ait_function_name,
ait_cutobject,ait_marker,ait_varloc,ait_align,ait_section,ait_comment,
ait_const,ait_directive,
ait_ent, ait_ent_end,
{$ifdef arm}
ait_thumb_func,
{$endif arm}
@ -420,6 +426,16 @@ interface
procedure derefimpl;override;
end;
tai_ent = class(tai)
Name : string;
Constructor Create (const ProcName : String);
end;
tai_ent_end = class(tai)
Name : string;
Constructor Create (const ProcName : String);
end;
tai_directive = class(tailineinfo)
name : ansistring;
directive : TAsmDirective;
@ -1246,6 +1262,26 @@ implementation
ppufile.putbyte(byte(directive));
end;
{****************************************************************************
TAI_ENT / TAI_ENT_END
****************************************************************************}
Constructor tai_ent.Create (const ProcName : String);
begin
Inherited Create;
Name:=ProcName;
typ:=ait_ent;
end;
Constructor tai_ent_end.Create (const ProcName : String);
begin
Inherited Create;
Name:=ProcName;
typ:=ait_ent_end;
end;
{****************************************************************************
TAI_CONST