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

* add info that a procedure is local in error messages

Browse Source
This commit is contained in:
peter 2005-01-30 11:26:40 +00:00
parent 46dbff9c93
commit 4631658576
3 changed files with 22 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ncnv.pas
View File

@ -1195,6 +1195,10 @@ implementation
if (pd.owner.symtabletype=objectsymtable) then
include(tprocvardef(resulttype.def).procoptions,po_methodpointer);
{ was it a local procedure? }
if (pd.owner.symtabletype=localsymtable) then
include(tprocvardef(resulttype.def).procoptions,po_local);
{ only need the address of the method? this is needed
for @tobject.create. In this case there will be a loadn without
a methodpointer. }
@ -2579,7 +2583,10 @@ begin
end.
{
$Log$
Revision 1.174 2005-01-09 15:04:36 peter
Revision 1.175 2005-01-30 11:26:40 peter
* add info that a procedure is local in error messages
Revision 1.174 2005/01/09 15:04:36 peter
* fix crash with -CR
Revision 1.173 2005/01/07 21:14:21 florian

8
compiler/symconst.pas
View File

@ -259,7 +259,8 @@ type
po_syscall_sysv,
po_syscall_basesysv,
po_syscall_sysvbase,
po_syscall_r12base
po_syscall_r12base,
po_local
);
tprocoptions=set of tprocoption;
@ -440,7 +441,10 @@ initialization
end.
{
$Log$
Revision 1.100 2005-01-09 20:24:43 olle
Revision 1.101 2005-01-30 11:26:40 peter
* add info that a procedure is local in error messages
Revision 1.100 2005/01/09 20:24:43 olle
* rework of macro subsystem
+ exportable macros for mode macpas

9
compiler/symdef.pas
View File

@ -3983,6 +3983,8 @@ implementation
showhidden:=true;
{$endif EXTDEBUG}
s:='';
if owner.symtabletype=localsymtable then
s:=s+'local ';
if assigned(_class) then
begin
if po_classmethod in procoptions then
@ -4846,6 +4848,8 @@ implementation
s := s+'address of'
else
s := s+'procedure variable type of';
if po_local in procoptions then
s := s+' local';
if assigned(rettype.def) and
(rettype.def<>voidtype.def) then
s:=s+' function'+typename_paras(showhidden)+':'+rettype.def.gettypename
@ -6367,7 +6371,10 @@ implementation
end.
{
$Log$
Revision 1.291 2005-01-24 22:08:32 peter
Revision 1.292 2005-01-30 11:26:40 peter
* add info that a procedure is local in error messages
Revision 1.291 2005/01/24 22:08:32 peter
* interface wrapper generation moved to cgobj
* generate interface wrappers after the module is parsed