浏览代码

* changed internal error number to make it unique

git-svn-id: trunk@39090 -
nickysn 7 年之前
父节点
当前提交
dcdfecbf35
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/omfbase.pas

+ 1 - 1
compiler/omfbase.pas

@@ -2303,7 +2303,7 @@ implementation
       FixData: Byte;
       FixData: Byte;
     begin
     begin
       if (DataRecordOffset<0) or (DataRecordOffset>1023) then
       if (DataRecordOffset<0) or (DataRecordOffset>1023) then
-        internalerror(2015040501);
+        internalerror(2015040505);
       Locat:=$8000+(Ord(Mode) shl 14)+(Ord(LocationType) shl 10)+DataRecordOffset;
       Locat:=$8000+(Ord(Mode) shl 14)+(Ord(LocationType) shl 10)+DataRecordOffset;
       { unlike other fields in the OMF format, this one is big endian }
       { unlike other fields in the OMF format, this one is big endian }
       RawRecord.RawData[Offset]:=Byte(Locat shr 8);
       RawRecord.RawData[Offset]:=Byte(Locat shr 8);