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

* more browser details

Browse Source
This commit is contained in:
pierre 1999-11-10 00:24:02 +00:00
parent 614fff10f0
commit acaa9296b7
2 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/pstatmnt.pas
View File

@ -831,6 +831,7 @@ unit pstatmnt;
classh : pobjectdef; classh : pobjectdef;
pd,pd2 : pdef; pd,pd2 : pdef;
store_valid : boolean; store_valid : boolean;
destructorpos,storepos : tfileposinfo;
tt : ttreetyp; tt : ttreetyp;
begin begin
ht:=token; ht:=token;
@ -868,6 +869,7 @@ unit pstatmnt;
{ function styled new is handled in factor } { function styled new is handled in factor }
{ destructors have no parameters } { destructors have no parameters }
destrukname:=pattern; destrukname:=pattern;
destructorpos:=tokenpos;
consume(_ID); consume(_ID);
pd:=p^.resulttype; pd:=p^.resulttype;
@ -902,7 +904,11 @@ unit pstatmnt;
exit; exit;
end; end;
{ search cons-/destructor, also in parent classes } { search cons-/destructor, also in parent classes }
storepos:=tokenpos;
tokenpos:=destructorpos;
sym:=search_class_member(classh,pattern); sym:=search_class_member(classh,pattern);
tokenpos:=storepos;
{ the second parameter of new/dispose must be a call } { the second parameter of new/dispose must be a call }
{ to a cons-/destructor } { to a cons-/destructor }
if (not assigned(sym)) or (sym^.typ<>procsym) then if (not assigned(sym)) or (sym^.typ<>procsym) then
@ -1320,7 +1326,10 @@ unit pstatmnt;
end. end.
{ {
$Log$ $Log$
Revision 1.107 1999-11-09 13:02:46 peter Revision 1.108 1999-11-10 00:24:02 pierre
* more browser details
Revision 1.107 1999/11/09 13:02:46 peter
* fixed 'raise end;' * fixed 'raise end;'
Revision 1.106 1999/11/06 14:34:23 peter Revision 1.106 1999/11/06 14:34:23 peter

9
compiler/psub.pas
View File

@ -100,7 +100,7 @@ var sp:stringid;
hs:string; hs:string;
st : psymtable; st : psymtable;
overloaded_level:word; overloaded_level:word;
procstartfilepos : tfileposinfo; storepos,procstartfilepos : tfileposinfo;
begin begin
{ Save the position where this procedure really starts and set col to 1 which { Save the position where this procedure really starts and set col to 1 which
looks nicer } looks nicer }
@ -123,9 +123,11 @@ begin
{ method ? } { method ? }
if not(parse_only) and try_to_consume(_POINT) then if not(parse_only) and try_to_consume(_POINT) then
begin begin
storepos:=tokenpos;
tokenpos:=procstartfilepos; tokenpos:=procstartfilepos;
getsym(sp,true); getsym(sp,true);
sym:=srsym; sym:=srsym;
tokenpos:=storepos;
{ load proc name } { load proc name }
sp:=pattern; sp:=pattern;
realname:=orgpattern; realname:=orgpattern;
@ -1907,7 +1909,10 @@ end.
{ {
$Log$ $Log$
Revision 1.33 1999-11-09 23:43:08 pierre Revision 1.34 1999-11-10 00:24:02 pierre
* more browser details
Revision 1.33 1999/11/09 23:43:08 pierre
* better browser info * better browser info
Revision 1.32 1999/11/09 23:06:45 peter Revision 1.32 1999/11/09 23:06:45 peter