Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* changed internal error number to make it unique

git-svn-id: trunk@39094 -
nickysn 7 years ago
parent
8c842c1337
commit
70be0dc6e9
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      compiler/omfbase.pas

+ 1 - 1
compiler/omfbase.pas
View File 

@@ -1572,7 +1572,7 @@ implementation
 
         begin
 
         begin
 
           RawRecord.RecordType:=RT_SEGDEF32;
 
           RawRecord.RecordType:=RT_SEGDEF32;
 
           if SegmentLength>4294967296 then
 
           if SegmentLength>4294967296 then
 
-            internalerror(2015040302);
 
+            internalerror(2015040307);
 
           Big:=SegmentLength=4294967296;
 
           Big:=SegmentLength=4294967296;
 
         end
 
         end
 
       else
 
       else