Browse Source

* small message fixes

peter 26 years ago
parent
commit
75aea84e80
2 changed files with 15 additions and 7 deletions
  1. 10 5
      compiler/symsym.inc
  2. 5 2
      compiler/tccal.pas

+ 10 - 5
compiler/symsym.inc

@@ -409,7 +409,9 @@
     destructor tprocsym.done;
     destructor tprocsym.done;
 
 
       begin
       begin
-         check_forward;
+         { don't check if errors !! }
+         if Errorcount=0 then
+           check_forward;
          tsym.done;
          tsym.done;
       end;
       end;
 
 
@@ -444,9 +446,6 @@
       var
       var
          pd : pprocdef;
          pd : pprocdef;
       begin
       begin
-         { don't check if errors !! }
-         if Errorcount>0 then
-           exit;
          pd:=definition;
          pd:=definition;
          while assigned(pd) do
          while assigned(pd) do
            begin
            begin
@@ -457,7 +456,10 @@
                        demangledparas(pd^.demangled_paras))
                        demangledparas(pd^.demangled_paras))
                    else
                    else
                      MessagePos1(fileinfo,sym_e_forward_not_resolved,name+pd^.demangled_paras);
                      MessagePos1(fileinfo,sym_e_forward_not_resolved,name+pd^.demangled_paras);
+                   { Turn futher error messages off }
+                   pd^.forwarddef:=false;
                 end;
                 end;
+
               pd:=pd^.nextoverloaded;
               pd:=pd^.nextoverloaded;
            end;
            end;
       end;
       end;
@@ -2016,7 +2018,10 @@
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.87  1999-05-08 19:52:38  peter
+  Revision 1.88  1999-05-10 09:01:43  peter
+    * small message fixes
+
+  Revision 1.87  1999/05/08 19:52:38  peter
     + MessagePos() which is enhanced Message() function but also gets the
     + MessagePos() which is enhanced Message() function but also gets the
       position info
       position info
     * Removed comp warnings
     * Removed comp warnings

+ 5 - 2
compiler/tccal.pas

@@ -692,7 +692,7 @@ implementation
                           internalerror(39393)
                           internalerror(39393)
                          else
                          else
                           CGMessage3(type_e_wrong_parameter_type,tostr(lastpara),
                           CGMessage3(type_e_wrong_parameter_type,tostr(lastpara),
-                             lastparatype^.typename,pt^.resulttype^.typename);
+                             pt^.resulttype^.typename,lastparatype^.typename);
 {$else}
 {$else}
                           CGMessage1(parser_e_wrong_parameter_type,tostr(lastpara));
                           CGMessage1(parser_e_wrong_parameter_type,tostr(lastpara));
 {$endif}
 {$endif}
@@ -1153,7 +1153,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.39  1999-05-02 09:35:46  florian
+  Revision 1.40  1999-05-10 09:01:45  peter
+    * small message fixes
+
+  Revision 1.39  1999/05/02 09:35:46  florian
     + method message handlers which contain an explicit self can't be called
     + method message handlers which contain an explicit self can't be called
       directly anymore
       directly anymore
     + self is now loaded at the start of the an message handler with an explicit
     + self is now loaded at the start of the an message handler with an explicit