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

* no difference for withnode when debuginfo is generated

Browse Source
This commit is contained in:
peter 2004-09-21 16:00:50 +00:00
parent e1278ec66f
commit 4df1a1f378
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/pstatmnt.pas
View File

@ -513,11 +513,13 @@ implementation
htype:=p.resulttype
else
htype.setdef(tpointerdef.create(p.resulttype));
{$ifdef WITHNODEDEBUG}
{ we can't generate debuginfo for a withnode stored in a }
{ register }
if (cs_debuginfo in aktmoduleswitches) then
loadp:=ctempcreatenode.create(htype,sizeof(aint),tt_persistent)
else
{$endif WITHNODEDEBUG}
loadp:=ctempcreatenode.create_reg(htype,sizeof(aint),tt_persistent);
resulttypepass(loadp);
if hasimplicitderef then
@ -1182,7 +1184,10 @@ implementation
end.
{
$Log$
Revision 1.137 2004-09-13 20:28:27 peter
Revision 1.138 2004-09-21 16:00:50 peter
* no difference for withnode when debuginfo is generated
Revision 1.137 2004/09/13 20:28:27 peter
* for loop variable assignment is not allowed anymore
Revision 1.136 2004/06/20 08:55:30 florian