diff --git a/compiler/ncal.pas b/compiler/ncal.pas index f4523597ed..544b72c683 100644 --- a/compiler/ncal.pas +++ b/compiler/ncal.pas @@ -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 diff --git a/compiler/pexpr.pas b/compiler/pexpr.pas index 4d29664845..74f95ce7f7 100644 --- a/compiler/pexpr.pas +++ b/compiler/pexpr.pas @@ -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 diff --git a/compiler/pmodules.pas b/compiler/pmodules.pas index 7c6813b390..60f837ea3c 100644 --- a/compiler/pmodules.pas +++ b/compiler/pmodules.pas @@ -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 diff --git a/compiler/scandir.pas b/compiler/scandir.pas index c7bc58435a..f8c4543cdb 100644 --- a/compiler/scandir.pas +++ b/compiler/scandir.pas @@ -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 diff --git a/compiler/symtable.pas b/compiler/symtable.pas index 15a6039041..c70683c467 100644 --- a/compiler/symtable.pas +++ b/compiler/symtable.pas @@ -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