paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 12:09:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ insert type conversion for the div result when cpuneedsdiv32helper is used

Browse Source 
git-svn-id: branches/i8086@23879 -
This commit is contained in:
nickysn 2013-03-16 23:12:39 +00:00
parent 1dbca4c403
commit a9640ad9c6
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/nmat.pas
View File

@ -433,6 +433,13 @@ implementation
left := nil; left := nil;
right := nil; right := nil;
firstpass(result); firstpass(result);
if result.resultdef.typ<>orddef then
internalerror(2013031701);
if resultdef.typ<>orddef then
internalerror(2013031701);
if torddef(result.resultdef).ordtype <> torddef(resultdef).ordtype then
inserttypeconv(result,resultdef);
end; end;
{$else cpuneedsdiv32helper} {$else cpuneedsdiv32helper}
begin begin