paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 05:59:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* unified internal errors

Browse Source 
git-svn-id: trunk@29280 -
This commit is contained in:
florian 2014-12-13 11:46:59 +00:00
parent 5b7f168d2c
commit d540d56908
5 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/arm/aasmcpu.pas
View File

@ -1868,7 +1868,7 @@ implementation
ot:=OT_SHIFTEROP;
end;
else
internalerror(200402261);
internalerror(2004022623);
end;
end;
end;

2
compiler/ncal.pas
View File

@ -2906,7 +2906,7 @@ implementation
for i:=1 to procdefinition.maxparacount-paralength do
begin
if paraidx<0 then
internalerror(200402261);
internalerror(200402265);
if not assigned(tparavarsym(procdefinition.paras[paraidx]).defaultconstsym) then
begin
CGMessage1(parser_e_wrong_parameter_size,'<Procedure Variable>');

2
compiler/powerpc/agppcvasm.pas
View File

@ -165,7 +165,7 @@ unit agppcvasm;
top_ref :
begin
if o.ref^.refaddr<>addr_full then
internalerror(200402262);
internalerror(200402264);
hs:=o.ref^.symbol.name;
if o.ref^.offset>0 then
hs:=hs+'+'+tostr(o.ref^.offset)

2
compiler/ppcgen/agppcgas.pas
View File

@ -203,7 +203,7 @@ unit agppcgas;
top_ref :
begin
if o.ref^.refaddr<>addr_full then
internalerror(200402262);
internalerror(200402267);
hs:=o.ref^.symbol.name;
if target_asm.dollarsign<>'$' then
hs:=ReplaceForbiddenAsmSymbolChars(hs);

2
compiler/x86/aasmcpu.pas
View File

@ -1239,7 +1239,7 @@ implementation
assembler }
end;
else
internalerror(200402261);
internalerror(200402266);
end;
end;
end;