paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 06:29:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

* removed obsolete chainprocsym and test_procsym code

Browse Source
This commit is contained in:
peter 2001-11-02 23:16:50 +00:00
parent d2e1952377
commit 887f6ba34c
5 changed files with 24 additions and 61 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ncal.pas
View File

@ -664,10 +664,6 @@ implementation
paralength,lastpara : longint;
lastparatype : tdef;
pdc : tparaitem;
{$ifdef TEST_PROCSYMS}
nextprocsym : tprocsym;
symt : tsymtable;
{$endif TEST_PROCSYMS}
{ only Dummy }
hcvt : tconverttype;
label
@ -1697,7 +1693,10 @@ begin
end.
{
$Log$
Revision 1.54 2001-11-02 22:58:01 peter
Revision 1.55 2001-11-02 23:16:50 peter
* removed obsolete chainprocsym and test_procsym code
Revision 1.54 2001/11/02 22:58:01 peter
* procsym definition rewrite
Revision 1.53 2001/10/28 17:22:25 peter

12
compiler/pexpr.pas
View File

@ -1866,10 +1866,6 @@ implementation
p2:=p1;
p1:=ccallnode.create(nil,nil,nil,nil);
tcallnode(p1).set_procvar(p2);
{$ifdef TEST_PROCSYMS}
p1.unit_specific:=unit_specific;
{$endif TEST_PROCSYMS}
{tcallnode(p1).symtableprocentry:=tprocsym(sym);}
if token=_LKLAMMER then
begin
consume(_LKLAMMER);
@ -1909,9 +1905,6 @@ implementation
oldp1,
p1 : tnode;
code : integer;
{$ifdef TEST_PROCSYMS}
unit_specific,
{$endif TEST_PROCSYMS}
again : boolean;
sym : tsym;
classh : tobjectdef;
@ -2513,7 +2506,10 @@ implementation
end.
{
$Log$
Revision 1.49 2001-11-02 22:58:05 peter
Revision 1.50 2001-11-02 23:16:51 peter
* removed obsolete chainprocsym and test_procsym code
Revision 1.49 2001/11/02 22:58:05 peter
* procsym definition rewrite
Revision 1.48 2001/10/28 17:22:25 peter

8
compiler/pmodules.pas
View File

@ -529,9 +529,6 @@ implementation
begin
tsymtable(hp.u.globalsymtable).next:=symtablestack;
symtablestack:=tsymtable(hp.u.globalsymtable);
{$ifdef CHAINPROCSYMS}
symtablestack.chainprocsyms;
{$endif CHAINPROCSYMS}
{$ifdef DEBUG}
test_symtablestack;
{$endif DEBUG}
@ -1351,7 +1348,10 @@ implementation
end.
{
$Log$
Revision 1.48 2001-11-02 22:58:05 peter
Revision 1.49 2001-11-02 23:16:51 peter
* removed obsolete chainprocsym and test_procsym code
Revision 1.48 2001/11/02 22:58:05 peter
* procsym definition rewrite
Revision 1.47 2001/09/18 11:30:48 michael

11
compiler/scandir.pas
View File

@ -741,7 +741,7 @@ implementation
major, minor, revision : longint;
error : integer;
begin
if not (target_info.target in [target_i386_os2,target_i386_win32,target_i386_netware]) then // AD
if not (target_info.target in [target_i386_os2,target_i386_win32,target_i386_netware]) then
begin
Message(scan_n_version_not_support);
exit;
@ -775,7 +775,7 @@ implementation
exit;
end;
if (c='.') and
(target_info.target = target_i386_netware) then // AD
(target_info.target = target_i386_netware) then
begin
current_scanner.readchar;
current_scanner.readnumber;
@ -856,7 +856,7 @@ implementation
AddDirective('ASMMODE',{$ifdef FPCPROCVAR}@{$endif}dir_asmmode);
AddDirective('ASSERTIONS',{$ifdef FPCPROCVAR}@{$endif}dir_assertions);
AddDirective('BOOLEVAL',{$ifdef FPCPROCVAR}@{$endif}dir_booleval);
AddDirective('CALLING',{$ifdef FPCPROCVAR}@{$endif}dir_calling);//Ozerski 08.10.2001
AddDirective('CALLING',{$ifdef FPCPROCVAR}@{$endif}dir_calling);
AddDirective('COPYRIGHT',{$ifdef FPCPROCVAR}@{$endif}dir_copyright);
AddDirective('D',{$ifdef FPCPROCVAR}@{$endif}dir_description);
AddDirective('DEBUGINFO',{$ifdef FPCPROCVAR}@{$endif}dir_debuginfo);
@ -930,7 +930,10 @@ implementation
end.
{
$Log$
Revision 1.9 2001-10-23 21:49:42 peter
Revision 1.10 2001-11-02 23:16:52 peter
* removed obsolete chainprocsym and test_procsym code
Revision 1.9 2001/10/23 21:49:42 peter
* $calling directive and -Cc commandline patch added
from Pavel Ozerski

45
compiler/symtable.pas
View File

@ -542,11 +542,6 @@ implementation
begin
{ set owner and sym indexnb }
sym.owner:=self;
{$ifdef CHAINPROCSYMS}
{ set the nextprocsym field }
if sym.typ=procsym then
chainprocsym(sym);
{$endif CHAINPROCSYMS}
{ writes the symbol in data segment if required }
{ also sets the datasize of owner }
if not in_loading then
@ -620,8 +615,7 @@ implementation
this might be the cause of the class debug problems
as TCHILDCLASS.Create did not generate appropriate
stabs debug info if TCHILDCLASS wasn't used anywhere else PM }
{$warning TODO: turn on debuginfo check}
if // (cs_debuginfo in aktmoduleswitches) and
if (cs_debuginfo in aktmoduleswitches) and
(hp.typ=typesym) and
make_ref then
begin
@ -834,38 +828,6 @@ implementation
end;
{$endif GDB}
{$ifdef CHAINPROCSYMS}
procedure chainprocsym(p : tsym);
var
storesymtablestack : tsymtable;
srsym : tsym;
srsymtable : tsymtable;
begin
if p.typ=procsym then
begin
storesymtablestack:=symtablestack;
symtablestack:=p.owner.next;
while assigned(symtablestack) do
begin
{ search for same procsym in other units }
searchsym(p.name,srsym,srsymtable)
if assigned(srsym) and
(srsym.typ=procsym) then
begin
tprocsym(p).nextprocsym:=tprocsym(srsym);
symtablestack:=storesymtablestack;
exit;
end
else if srsym=nil then
symtablestack:=nil
else
symtablestack:=srsymtable.next;
end;
symtablestack:=storesymtablestack;
end;
end;
{$endif}
procedure tstoredsymtable.chainoperators;
var
@ -2085,7 +2047,10 @@ implementation
end.
{
$Log$
Revision 1.48 2001-11-02 22:58:08 peter
Revision 1.49 2001-11-02 23:16:52 peter
* removed obsolete chainprocsym and test_procsym code
Revision 1.48 2001/11/02 22:58:08 peter
* procsym definition rewrite
Revision 1.47 2001/10/12 20:27:43 jonas