paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 10:01:27 +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; ot:=OT_SHIFTEROP;
end; end;
else else
internalerror(200402261); internalerror(2004022623);
end; end;
end; end;
end; end;

2
compiler/ncal.pas
View File

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

2
compiler/powerpc/agppcvasm.pas
View File

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

2
compiler/ppcgen/agppcgas.pas
View File

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

2
compiler/x86/aasmcpu.pas
View File

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