paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 16:29:19 +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 } { we're inlining a procedure }
inlining_procedure:=true; inlining_procedure:=true;
{ save old procinfo } { save old procinfo }
oldprocdef:=aktprocdef;
getmem(oldprocinfo,sizeof(tprocinfo)); getmem(oldprocinfo,sizeof(tprocinfo));
move(procinfo^,oldprocinfo^,sizeof(tprocinfo)); move(procinfo^,oldprocinfo^,sizeof(tprocinfo));
{ set new procinfo } { set new procinfo }
@ -1592,7 +1593,10 @@ begin
end. end.
{ {
$Log$ $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 * procsym definition rewrite
Revision 1.35 2001/10/25 21:22:41 peter Revision 1.35 2001/10/25 21:22:41 peter