paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 14:31:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

* better throw an internalerror in TAoptBase.RegLoadedWithNewValue instead of trying to make a safe approximation

Browse Source 
git-svn-id: trunk@33002 -
This commit is contained in:
florian 2016-01-24 16:24:45 +00:00
parent 1cb91cc7bb
commit 5aabe71aee
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/aoptbase.pas
View File

@ -293,8 +293,7 @@ unit aoptbase;
function TAoptBase.RegLoadedWithNewValue(reg : tregister; hp : tai) : boolean; function TAoptBase.RegLoadedWithNewValue(reg : tregister; hp : tai) : boolean;
begin begin
{ save approximation } internalerror(2016012401);
Result:=true;
end; end;