paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 16:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* patch by J. Gareth Moreton: unifies internalerrors, resolves #37471

Browse Source 
git-svn-id: trunk@46234 -
This commit is contained in:
florian 2020-08-04 20:51:52 +00:00
parent 719220e8a4
commit 1d3ed354de
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/x86/rax86int.pas
View File

@ -1142,7 +1142,7 @@ Unit Rax86int;
SetSegmentOverride(dest,segreg); SetSegmentOverride(dest,segreg);
end; end;
else else
internalerror(2018030701); internalerror(2018030704);
end; end;
end; end;
OPR_LOCAL: OPR_LOCAL:
@ -1223,7 +1223,7 @@ Unit Rax86int;
oper.opr.localsegment:=seg; oper.opr.localsegment:=seg;
end; end;
else else
internalerror(2018030703); internalerror(2018030705);
end; end;
end; end;

6
compiler/z80/raz80asm.pas
View File

@ -862,7 +862,7 @@ Unit raz80asm;
dest.opr:=tmplocal; dest.opr:=tmplocal;
end; end;
else else
internalerror(2018030701); internalerror(2018030711);
end; end;
end; end;
OPR_LOCAL: OPR_LOCAL:
@ -900,11 +900,11 @@ Unit raz80asm;
OPR_LOCAL: OPR_LOCAL:
Message(asmr_e_no_local_or_para_allowed); Message(asmr_e_no_local_or_para_allowed);
else else
internalerror(2018030703); internalerror(2018030713);
end; end;
end; end;
else else
internalerror(2018030702); internalerror(2018030712);
end; end;
end; end;