paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 07:50:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* changed internal error number to make it unique

Browse Source 
git-svn-id: trunk@39090 -
This commit is contained in:
nickysn 2018-05-22 12:55:53 +00:00
parent a656d98657
commit dcdfecbf35
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/omfbase.pas
View File

@ -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);