* removed obsolete chainprocsym and test_procsym code

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

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

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

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
 

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