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

* remove temptype, use tempinfo.temptype instead

Browse Source
This commit is contained in:
peter 2003-06-09 18:26:46 +00:00
parent 72a89db7f7
commit ab1f33f68b
2 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/nbas.pas
View File

@ -103,7 +103,6 @@ interface
{ size (the size is separate to allow creating "void" temps with a custom size) } { size (the size is separate to allow creating "void" temps with a custom size) }
ttempcreatenode = class(tnode) ttempcreatenode = class(tnode)
size: longint; size: longint;
temptype: ttemptype;
tempinfo: ptempinfo; tempinfo: ptempinfo;
{ * persistent temps are used in manually written code where the temp } { * persistent temps are used in manually written code where the temp }
{ be usable among different statements and where you can manually say } { be usable among different statements and where you can manually say }
@ -615,7 +614,7 @@ implementation
new(tempinfo); new(tempinfo);
fillchar(tempinfo^,sizeof(tempinfo^),0); fillchar(tempinfo^,sizeof(tempinfo^),0);
tempinfo^.restype := _restype; tempinfo^.restype := _restype;
temptype := _temptype; tempinfo^.temptype := _temptype;
end; end;
function ttempcreatenode.getcopy: tnode; function ttempcreatenode.getcopy: tnode;
@ -624,7 +623,6 @@ implementation
begin begin
n := ttempcreatenode(inherited getcopy); n := ttempcreatenode(inherited getcopy);
n.size := size; n.size := size;
n.temptype := temptype;
new(n.tempinfo); new(n.tempinfo);
fillchar(n.tempinfo^,sizeof(n.tempinfo^),0); fillchar(n.tempinfo^,sizeof(n.tempinfo^),0);
@ -783,7 +781,7 @@ implementation
inherited create(tempdeleten); inherited create(tempdeleten);
tempinfo := temp.tempinfo; tempinfo := temp.tempinfo;
release_to_normal := true; release_to_normal := true;
if temp.temptype <> tt_persistent then if tempinfo^.temptype <> tt_persistent then
internalerror(200204211); internalerror(200204211);
end; end;
@ -853,7 +851,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.55 2003-06-09 12:20:47 peter Revision 1.56 2003-06-09 18:26:46 peter
* remove temptype, use tempinfo.temptype instead
Revision 1.55 2003/06/09 12:20:47 peter
* getposition added to retrieve the the current tai item * getposition added to retrieve the the current tai item
Revision 1.54 2003/06/08 18:27:15 jonas Revision 1.54 2003/06/08 18:27:15 jonas

7
compiler/ncgbas.pas
View File

@ -270,7 +270,7 @@ interface
internalerror(200108222); internalerror(200108222);
{ get a (persistent) temp } { get a (persistent) temp }
tg.GetTemp(exprasmlist,size,temptype,tempinfo^.ref); tg.GetTemp(exprasmlist,size,tempinfo^.temptype,tempinfo^.ref);
tempinfo^.valid := true; tempinfo^.valid := true;
end; end;
@ -316,7 +316,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.35 2003-06-09 12:20:47 peter Revision 1.36 2003-06-09 18:26:46 peter
* remove temptype, use tempinfo.temptype instead
Revision 1.35 2003/06/09 12:20:47 peter
* getposition added to retrieve the the current tai item * getposition added to retrieve the the current tai item
Revision 1.34 2003/05/17 13:30:08 jonas Revision 1.34 2003/05/17 13:30:08 jonas