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

+ ait_marker support

Browse Source
This commit is contained in:
Jonas Maebe 1998-10-01 20:19:06 +00:00
parent 77b55ba596
commit 5b3312c7ed
6 changed files with 50 additions and 653 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
compiler/aasm.pas
View File

@ -69,6 +69,7 @@ unit aasm;
ait_cut, { used to split into tiny assembler files }
ait_regalloc,
ait_regdealloc,
ait_marker,
{ never used, makes insertation of new ait_ easier to type }
ait_dummy);
@ -244,6 +245,14 @@ unit aasm;
constructor init_end;
end;
TMarker = (NoPropInfoStart, NoPropInfoEnd);
pai_marker = ^tai_marker;
tai_marker = object(tai)
Kind: TMarker;
Constructor init(_Kind: TMarker);
end;
{ for each processor define the best precision }
{ bestreal is defined in globals }
{$ifdef i386}
@ -691,6 +700,19 @@ uses
endname:=true;
end;
{****************************************************************************
Tai_Marker
****************************************************************************}
Constructor Tai_Marker.Init(_Kind: TMarker);
Begin
Inherited Init;
typ := ait_marker;
Kind := _Kind;
End;
{*****************************************************************************
External Helpers
*****************************************************************************}
@ -850,7 +872,10 @@ uses
end.
{
$Log$
Revision 1.18 1998-09-20 17:11:25 jonas
Revision 1.19 1998-10-01 20:19:11 jonas
+ ait_marker support
Revision 1.18 1998/09/20 17:11:25 jonas
* released REGALLOC
Revision 1.17 1998/09/07 18:33:31 peter

652
compiler/ag386int.pas
View File

File diff suppressed because it is too large Load Diff

6
compiler/ag386nsm.pas
View File

@ -532,6 +532,7 @@ ait_labeled_instruction :
ait_stabs,
ait_stab_function_name : ;
{$endif GDB}
ait_marker : ;
else
internalerror(10000);
end;
@ -570,7 +571,10 @@ ait_stab_function_name : ;
end.
{
$Log$
Revision 1.8 1998-09-20 17:11:22 jonas
Revision 1.9 1998-10-01 20:19:07 jonas
+ ait_marker support
Revision 1.8 1998/09/20 17:11:22 jonas
* released REGALLOC
Revision 1.7 1998/08/11 14:01:43 peter

6
compiler/ag68kgas.pas
View File

@ -590,6 +590,7 @@ ait_stab_function_name : funcname:=pai_stab_function_name(hp)^.str;
AsmWriteLn(ait_section2str(lastsec));
AsmStartSize:=AsmSize;
end;
ait_marker : ;
else
internalerror(10000);
end;
@ -663,7 +664,10 @@ ait_stab_function_name : funcname:=pai_stab_function_name(hp)^.str;
end.
{
$Log$
Revision 1.12 1998-09-28 16:57:09 pierre
Revision 1.13 1998-10-01 20:19:08 jonas
+ ait_marker support
Revision 1.12 1998/09/28 16:57:09 pierre
* changed all length(p^.value_str^) into str_length(p)
to get it work with and without ansistrings
* changed sourcefiles field of tmodule to a pointer

6
compiler/ag68kmit.pas
View File

@ -581,6 +581,7 @@ ait_stab_function_name : funcname:=pai_stab_function_name(hp)^.str;
if lastsec<>sec_none then
AsmWriteLn(ait_section2str[lastsec,lastsecidx]);
end;
ait_marker : ;
else
internalerror(10000);
end;
@ -641,7 +642,10 @@ ait_stab_function_name : funcname:=pai_stab_function_name(hp)^.str;
end.
{
$Log$
Revision 1.10 1998-09-28 16:57:11 pierre
Revision 1.11 1998-10-01 20:19:09 jonas
+ ait_marker support
Revision 1.10 1998/09/28 16:57:11 pierre
* changed all length(p^.value_str^) into str_length(p)
to get it work with and without ansistrings
* changed sourcefiles field of tmodule to a pointer

6
compiler/ag68kmot.pas
View File

@ -485,6 +485,7 @@ ait_labeled_instruction :
ait_stabs,
ait_stab_function_name : ;
{$endif GDB}
ait_marker : ;
else
internalerror(10000);
end;
@ -523,7 +524,10 @@ ait_labeled_instruction :
end.
{
$Log$
Revision 1.8 1998-09-16 01:08:08 carl
Revision 1.9 1998-10-01 20:19:10 jonas
+ ait_marker support
Revision 1.8 1998/09/16 01:08:08 carl
* alignment of byte bugfix
Revision 1.7 1998/08/10 14:49:38 peter