paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-05 09:27:40 +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_stab,
ait_force_line, ait_force_line,
ait_function_name, 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} {$ifdef alpha}
{ the follow is for the DEC Alpha } { the follow is for the DEC Alpha }
ait_frame, ait_frame,
ait_ent,
{$endif alpha} {$endif alpha}
{$ifdef ia64} {$ifdef ia64}
ait_bundle, ait_bundle,
@ -163,10 +166,11 @@ interface
'stab', 'stab',
'force_line', 'force_line',
'function_name', 'function_name',
'ent',
'ent_end',
{$ifdef alpha} {$ifdef alpha}
{ the follow is for the DEC Alpha } { the follow is for the DEC Alpha }
'frame', 'frame',
'ent',
{$endif alpha} {$endif alpha}
{$ifdef ia64} {$ifdef ia64}
'bundle', 'bundle',
@ -261,7 +265,8 @@ interface
a new ait type! } a new ait type! }
SkipInstr = [ait_comment, ait_symbol,ait_section SkipInstr = [ait_comment, ait_symbol,ait_section
,ait_stab, ait_function_name, ait_force_line ,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_varloc,ait_seh_directive
,ait_jvar, ait_jcatch]; ,ait_jvar, ait_jcatch];
@ -272,6 +277,7 @@ interface
ait_stab,ait_function_name, ait_stab,ait_function_name,
ait_cutobject,ait_marker,ait_varloc,ait_align,ait_section,ait_comment, ait_cutobject,ait_marker,ait_varloc,ait_align,ait_section,ait_comment,
ait_const,ait_directive, ait_const,ait_directive,
ait_ent, ait_ent_end,
{$ifdef arm} {$ifdef arm}
ait_thumb_func, ait_thumb_func,
{$endif arm} {$endif arm}
@ -420,6 +426,16 @@ interface
procedure derefimpl;override; procedure derefimpl;override;
end; 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) tai_directive = class(tailineinfo)
name : ansistring; name : ansistring;
directive : TAsmDirective; directive : TAsmDirective;
@ -1246,6 +1262,26 @@ implementation
ppufile.putbyte(byte(directive)); ppufile.putbyte(byte(directive));
end; 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 TAI_CONST