paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-07-06 03:26:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* give an internal error in second_int_to_bool() if left.expectloc was not

Browse Source 
in [LOC_FLAGS,LOC_JUMP], but it's actual location is one of those

git-svn-id: trunk@29587 -
This commit is contained in:
Jonas Maebe 2015-01-30 19:31:31 +00:00
parent ff25f5c923
commit 2c3aa7cee0
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/ncgcnv.pas
View File

@ -176,6 +176,11 @@ interface
if (nf_explicit in flags) and if (nf_explicit in flags) and
not(left.location.loc in [LOC_FLAGS,LOC_JUMP]) then not(left.location.loc in [LOC_FLAGS,LOC_JUMP]) then
begin begin
{ overriding methods must be able to know in advance whether this
code path will be taken by checking expectloc, so they can call
the inherited method in that case }
if left.expectloc in [LOC_FLAGS,LOC_JUMP] then
internalerror(2014122901);
location_copy(location,left.location); location_copy(location,left.location);
newsize:=def_cgsize(resultdef); newsize:=def_cgsize(resultdef);
{ change of size? change sign only if location is LOC_(C)REGISTER? Then we have to sign/zero-extend } { change of size? change sign only if location is LOC_(C)REGISTER? Then we have to sign/zero-extend }