瀏覽代碼

* unique internal errors

git-svn-id: trunk@17970 -
florian 14 年之前
父節點
當前提交
4f08d148ea
共有 2 個文件被更改,包括 2 次插入2 次删除
  1. 1 1
      compiler/powerpc/cgcpu.pas
  2. 1 1
      compiler/ppcgen/cgppc.pas

+ 1 - 1
compiler/powerpc/cgcpu.pas

@@ -275,7 +275,7 @@ const
           { TODO: optimize/take into consideration fromsize/tosize. Will }
           { TODO: optimize/take into consideration fromsize/tosize. Will }
           { probably only matter for OS_S8 loads though                  }
           { probably only matter for OS_S8 loads though                  }
           if not(fromsize in [OS_8,OS_S8,OS_16,OS_S16,OS_32,OS_S32]) then
           if not(fromsize in [OS_8,OS_S8,OS_16,OS_S16,OS_32,OS_S32]) then
-            internalerror(2002090902);
+            internalerror(2002090903);
           ref2 := ref;
           ref2 := ref;
           fixref(list,ref2);
           fixref(list,ref2);
           { the caller is expected to have adjusted the reference already }
           { the caller is expected to have adjusted the reference already }

+ 1 - 1
compiler/ppcgen/cgppc.pas

@@ -440,7 +440,7 @@ unit cgppc;
       op: TAsmOp;
       op: TAsmOp;
     begin
     begin
       if not (fromsize in [OS_8..OS_INT,OS_S8..OS_SINT]) then
       if not (fromsize in [OS_8..OS_INT,OS_S8..OS_SINT]) then
-        internalerror(2002090903);
+        internalerror(2002090904);
       if not (tosize in [OS_8..OS_INT,OS_S8..OS_SINT]) then
       if not (tosize in [OS_8..OS_INT,OS_S8..OS_SINT]) then
         internalerror(2002090905);
         internalerror(2002090905);