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

+ procsym field of tprocdef set

Browse Source
This commit is contained in:
pierre 1999-08-10 12:37:44 +00:00
parent be2b57963f
commit 88185b4be3
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/psub.pas
View File

@ -489,6 +489,7 @@ begin
aktprocsym^.definition:=pd; aktprocsym^.definition:=pd;
aktprocsym^.definition^.fileinfo:=procstartfilepos; aktprocsym^.definition^.fileinfo:=procstartfilepos;
aktprocsym^.definition^.setmangledname(hs); aktprocsym^.definition^.setmangledname(hs);
aktprocsym^.definition^.procsym:=aktprocsym;
{ update also the current filepos for aktprocsym } { update also the current filepos for aktprocsym }
aktprocsym^.fileinfo:=procstartfilepos; aktprocsym^.fileinfo:=procstartfilepos;
@ -2024,7 +2025,10 @@ end.
{ {
$Log$ $Log$
Revision 1.12 1999-08-05 16:53:06 peter Revision 1.13 1999-08-10 12:37:44 pierre
+ procsym field of tprocdef set
Revision 1.12 1999/08/05 16:53:06 peter
* V_Fatal=1, all other V_ are also increased * V_Fatal=1, all other V_ are also increased
* Check for local procedure when assigning procvar * Check for local procedure when assigning procvar
* fixed comment parsing because directives * fixed comment parsing because directives