浏览代码

* no itnernalerror for errordef.concatstabto()

peter 22 年之前
父节点
当前提交
c5efd5c7d5
共有 1 个文件被更改,包括 6 次插入2 次删除
  1. 6 2
      compiler/symdef.pas

+ 6 - 2
compiler/symdef.pas

@@ -5564,7 +5564,8 @@ implementation
 
 
     procedure terrordef.concatstabto(asmlist : taasmoutput);
     procedure terrordef.concatstabto(asmlist : taasmoutput);
       begin
       begin
-        internalerror(20021119);
+        { No internal error needed, an normal error is already
+          thrown }
       end;
       end;
 {$endif GDB}
 {$endif GDB}
 
 
@@ -5724,7 +5725,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.131  2003-03-17 16:54:41  peter
+  Revision 1.132  2003-03-18 16:25:50  peter
+    * no itnernalerror for errordef.concatstabto()
+
+  Revision 1.131  2003/03/17 16:54:41  peter
     * support DefaultHandler and anonymous inheritance fixed
     * support DefaultHandler and anonymous inheritance fixed
       for message methods
       for message methods