Browse Source

* Small bugfix for procdef selection

daniel 23 years ago
parent
commit
c2fcc297ad
1 changed files with 5 additions and 1 deletions
  1. 5 1
      compiler/ncal.pas

+ 5 - 1
compiler/ncal.pas

@@ -987,6 +987,7 @@ implementation
             if po_overload in srprocsym.first_procdef.procoptions then
             if po_overload in srprocsym.first_procdef.procoptions then
                 begin
                 begin
                     repeat
                     repeat
+                        srprocsym:=nil;
                         repeat
                         repeat
                             srsymtable:=srsymtable.next;
                             srsymtable:=srsymtable.next;
                         until (srsymtable=nil) or (srsymtable.symtabletype in [localsymtable,staticsymtable,globalsymtable]);
                         until (srsymtable=nil) or (srsymtable.symtabletype in [localsymtable,staticsymtable,globalsymtable]);
@@ -2596,7 +2597,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.94  2002-09-03 19:27:22  daniel
+  Revision 1.95  2002-09-03 21:32:49  daniel
+    * Small bugfix for procdef selection
+
+  Revision 1.94  2002/09/03 19:27:22  daniel
     * Activated new ncal code
     * Activated new ncal code
 
 
   Revision 1.93  2002/09/03 16:26:26  daniel
   Revision 1.93  2002/09/03 16:26:26  daniel