paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 17:39:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* asmnode.get_position now inserts a marker

Browse Source
This commit is contained in:
peter 2003-10-24 17:39:41 +00:00
parent 53e8350307
commit 96afb56699
2 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/aasmtai.pas
View File

@ -192,7 +192,8 @@ interface
TMarker = (NoPropInfoStart,NoPropInfoEnd, TMarker = (NoPropInfoStart,NoPropInfoEnd,
AsmBlockStart,AsmBlockEnd, AsmBlockStart,AsmBlockEnd,
InlineStart,InlineEnd,marker_blockstart); InlineStart,InlineEnd,marker_blockstart,
marker_position);
{ Buffer type used for alignment } { Buffer type used for alignment }
tfillbuffer = array[0..63] of char; tfillbuffer = array[0..63] of char;
@ -2139,7 +2140,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.47 2003-10-23 14:44:07 peter Revision 1.48 2003-10-24 17:39:41 peter
* asmnode.get_position now inserts a marker
Revision 1.47 2003/10/23 14:44:07 peter
* splitted buildderef and buildderefimpl to fix interface crc * splitted buildderef and buildderefimpl to fix interface crc
calculation calculation

7
compiler/ncgbas.pas
View File

@ -175,6 +175,8 @@ interface
if getposition then if getposition then
begin begin
{ Add a marker, to be sure the list is not empty }
exprasmlist.concat(tai_marker.create(marker_position));
currenttai:=tai(exprasmlist.last); currenttai:=tai(exprasmlist.last);
exit; exit;
end; end;
@ -372,7 +374,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.45 2003-10-21 15:15:36 peter Revision 1.46 2003-10-24 17:39:41 peter
* asmnode.get_position now inserts a marker
Revision 1.45 2003/10/21 15:15:36 peter
* taicpu_abstract.oper[] changed to pointers * taicpu_abstract.oper[] changed to pointers
Revision 1.44 2003/10/10 17:48:13 peter Revision 1.44 2003/10/10 17:48:13 peter