paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 18:09:27 +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);
end;
else
internalerror(2018030701);
internalerror(2018030704);
end;
end;
OPR_LOCAL:
@ -1223,7 +1223,7 @@ Unit Rax86int;
oper.opr.localsegment:=seg;
end;
else
internalerror(2018030703);
internalerror(2018030705);
end;
end;

6
compiler/z80/raz80asm.pas
View File

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