|
@@ -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
|