paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-19 23:11:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

* interfacedef flag for procdef if it's defined in the interface, to

Browse Source 
make a difference with 'forward;' directive forwarddef. Fixes 253
This commit is contained in:
peter 1999-05-31 16:42:33 +00:00
parent 4640717c7d
commit 1bb9950cc9
2 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/symdef.inc
View File

@ -2315,6 +2315,7 @@
usedregisters_fpu:=$ffffffff;
{$endif alpha}
forwarddef:=true;
interfacedef:=false;
_class := nil;
code:=nil;
count:=false;
@ -2353,6 +2354,7 @@
parast:=nil;
localst:=nil;
forwarddef:=false;
interfacedef:=false;
lastref:=nil;
lastwritten:=nil;
defref:=nil;
@ -3495,7 +3497,11 @@ Const local_symtable_index : longint = $8001;
{
$Log$
Revision 1.123 1999-05-27 19:45:02 peter
Revision 1.124 1999-05-31 16:42:33 peter
* interfacedef flag for procdef if it's defined in the interface, to
make a difference with 'forward;' directive forwarddef. Fixes 253
Revision 1.123 1999/05/27 19:45:02 peter
* removed oldasm
* plabel -> pasmlabel
* -a switches to source writing automaticly

10
compiler/symdefh.inc
View File

@ -403,7 +403,9 @@
code : pointer;
{ true, if the procedure is only declared }
{ (forward procedure) }
forwarddef : boolean;
forwarddef,
{ true if the procedure is declared in the interface }
interfacedef : boolean;
{ check the problems of manglednames }
count : boolean;
is_used : boolean;
@ -517,7 +519,11 @@
{
$Log$
Revision 1.30 1999-05-27 19:45:04 peter
Revision 1.31 1999-05-31 16:42:35 peter
* interfacedef flag for procdef if it's defined in the interface, to
make a difference with 'forward;' directive forwarddef. Fixes 253
Revision 1.30 1999/05/27 19:45:04 peter
* removed oldasm
* plabel -> pasmlabel
* -a switches to source writing automaticly