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

* getposition added to retrieve the the current tai item

Browse Source
This commit is contained in:
peter 2003-06-09 12:20:47 +00:00
parent 65f03c3f7e
commit 47b691057b
2 changed files with 63 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

73
compiler/nbas.pas
View File

@ -51,7 +51,10 @@ interface
tasmnode = class(tnode)
p_asm : taasmoutput;
currenttai : tai;
getposition : boolean;
constructor create(p : taasmoutput);virtual;
constructor create_get_position;
destructor destroy;override;
constructor ppuload(t:tnodetype;ppufile:tcompilerppufile);override;
procedure ppuwrite(ppufile:tcompilerppufile);override;
@ -480,12 +483,23 @@ implementation
*****************************************************************************}
constructor tasmnode.create(p : taasmoutput);
begin
inherited create(asmn);
p_asm:=p;
inherited create(asmn);
p_asm:=p;
getposition:=false;
currenttai:=nil;
end;
constructor tasmnode.create_get_position;
begin
inherited create(asmn);
p_asm:=nil;
getposition:=true;
currenttai:=nil;
end;
destructor tasmnode.destroy;
begin
if assigned(p_asm) then
@ -499,13 +513,20 @@ implementation
hp : tai;
begin
inherited ppuload(t,ppufile);
p_asm:=taasmoutput.create;
repeat
hp:=ppuloadai(ppufile);
if hp=nil then
break;
p_asm.concat(hp);
until false;
getposition:=boolean(ppufile.getbyte);
if not getposition then
begin
p_asm:=taasmoutput.create;
repeat
hp:=ppuloadai(ppufile);
if hp=nil then
break;
p_asm.concat(hp);
until false;
end
else
p_asm:=nil;
currenttai:=nil;
end;
@ -514,14 +535,18 @@ implementation
hp : tai;
begin
inherited ppuwrite(ppufile);
hp:=tai(p_asm.first);
while assigned(hp) do
begin
ppuwriteai(ppufile,hp);
hp:=tai(hp.next);
end;
{ end is marked by a nil }
ppuwriteai(ppufile,nil);
ppufile.putbyte(byte(getposition));
if not getposition then
begin
hp:=tai(p_asm.first);
while assigned(hp) do
begin
ppuwriteai(ppufile,hp);
hp:=tai(hp.next);
end;
{ end is marked by a nil }
ppuwriteai(ppufile,nil);
end;
end;
@ -550,16 +575,21 @@ implementation
n.p_asm.concatlistcopy(p_asm);
end
else n.p_asm := nil;
n.getposition:=getposition;
n.currenttai:=currenttai;
getcopy := n;
end;
function tasmnode.det_resulttype:tnode;
begin
result:=nil;
resulttype:=voidtype;
include(current_procinfo.flags,pi_uses_asm);
if not getposition then
include(current_procinfo.flags,pi_uses_asm);
end;
function tasmnode.pass_1 : tnode;
begin
result:=nil;
@ -823,7 +853,10 @@ begin
end.
{
$Log$
Revision 1.54 2003-06-08 18:27:15 jonas
Revision 1.55 2003-06-09 12:20:47 peter
* getposition added to retrieve the the current tai item
Revision 1.54 2003/06/08 18:27:15 jonas
+ ability to change the location of a ttempref node with changelocation()
method. Useful to use instead of copying the contents from one temp to
another

11
compiler/ncgbas.pas
View File

@ -135,6 +135,12 @@ interface
begin
location_reset(location,LOC_VOID,OS_NO);
if getposition then
begin
currenttai:=tai(exprasmlist.last);
exit;
end;
if inlining_procedure then
begin
objectlibrary.CreateUsedAsmSymbolList;
@ -310,7 +316,10 @@ begin
end.
{
$Log$
Revision 1.34 2003-05-17 13:30:08 jonas
Revision 1.35 2003-06-09 12:20:47 peter
* getposition added to retrieve the the current tai item
Revision 1.34 2003/05/17 13:30:08 jonas
* changed tt_persistant to tt_persistent :)
* tempcreatenode now doesn't accept a boolean anymore for persistent
temps, but a ttemptype, so you can also create ansistring temps etc