paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 18:47:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed crash with inlining after aktprocdef change

Browse Source
This commit is contained in:
peter 2001-11-02 23:24:40 +00:00
parent a87a30b831
commit a059a1671d
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/i386/n386cal.pas
View File

@ -1463,6 +1463,7 @@ implementation
{ we're inlining a procedure }
inlining_procedure:=true;
{ save old procinfo }
oldprocdef:=aktprocdef;
getmem(oldprocinfo,sizeof(tprocinfo));
move(procinfo^,oldprocinfo^,sizeof(tprocinfo));
{ set new procinfo }
@ -1592,7 +1593,10 @@ begin
end.
{
$Log$
Revision 1.36 2001-11-02 22:58:09 peter
Revision 1.37 2001-11-02 23:24:40 peter
* fixed crash with inlining after aktprocdef change
Revision 1.36 2001/11/02 22:58:09 peter
* procsym definition rewrite
Revision 1.35 2001/10/25 21:22:41 peter