瀏覽代碼

* write INVALID as register name instead of IE

peter 22 年之前
父節點
當前提交
adeae3a00b
共有 1 個文件被更改,包括 8 次插入2 次删除
  1. 8 2
      compiler/cginfo.pas

+ 8 - 2
compiler/cginfo.pas

@@ -274,7 +274,10 @@ implementation
           R_KNIREGISTER:
           R_KNIREGISTER:
             t:='k';
             t:='k';
           else
           else
-            internalerror(200308251);
+            begin
+              result:='INVALID';
+              exit;
+            end;
         end;
         end;
         str(getsupreg(r),nr);
         str(getsupreg(r),nr);
         case getsubreg(r) of
         case getsubreg(r) of
@@ -302,7 +305,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.23  2003-09-03 16:29:37  peter
+  Revision 1.24  2003-09-03 21:06:19  peter
+    * write INVALID as register name instead of IE
+
+  Revision 1.23  2003/09/03 16:29:37  peter
     * superregisters also from .dat file
     * superregisters also from .dat file
 
 
   Revision 1.22  2003/09/03 15:55:00  peter
   Revision 1.22  2003/09/03 15:55:00  peter