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

* fixed 'cannot convert type' error when comparing two voidhugepointers with

Browse Source 
= or <>

git-svn-id: trunk@28158 -
This commit is contained in:
nickysn 2014-07-04 23:54:47 +00:00
parent 3bb730d5b9
commit c8130843b2
3 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/nadd.pas
View File

@ -1642,11 +1642,15 @@ implementation
inserttypeconv_internal(left,java_jlobject);
inserttypeconv_internal(right,java_jlobject);
{$elseif defined(i8086)}
if is_farpointer(left.resultdef) then
if is_hugepointer(left.resultdef) then
inserttypeconv_internal(left,charhugepointertype)
else if is_farpointer(left.resultdef) then
inserttypeconv_internal(left,charfarpointertype)
else
inserttypeconv_internal(left,charnearpointertype);
if is_farpointer(right.resultdef) then
if is_hugepointer(right.resultdef) then
inserttypeconv_internal(right,charhugepointertype)
else if is_farpointer(right.resultdef) then
inserttypeconv_internal(right,charfarpointertype)
else
inserttypeconv_internal(right,charnearpointertype);

3
compiler/psystem.pas
View File

@ -306,6 +306,7 @@ implementation
voidhugepointertype:=tcpupointerdefclass(cpointerdef).createx86(voidtype,x86pt_huge);
charnearpointertype:=tcpupointerdefclass(cpointerdef).createx86(cansichartype,x86pt_near);
charfarpointertype:=tcpupointerdefclass(cpointerdef).createx86(cansichartype,x86pt_far);
charhugepointertype:=tcpupointerdefclass(cpointerdef).createx86(cansichartype,x86pt_huge);
bytefarpointertype:=tcpupointerdefclass(cpointerdef).createx86(u8inttype,x86pt_far);
wordfarpointertype:=tcpupointerdefclass(cpointerdef).createx86(u16inttype,x86pt_far);
longintfarpointertype:=tcpupointerdefclass(cpointerdef).createx86(s32inttype,x86pt_far);
@ -447,6 +448,7 @@ implementation
addtype('$void_hugepointer',voidhugepointertype);
addtype('$char_nearpointer',charnearpointertype);
addtype('$char_farpointer',charfarpointertype);
addtype('$char_hugepointer',charhugepointertype);
addtype('$byte_farpointer',bytefarpointertype);
addtype('$word_farpointer',wordfarpointertype);
addtype('$longint_farpointer',longintfarpointertype);
@ -584,6 +586,7 @@ implementation
loadtype('void_hugepointer',voidhugepointertype);
loadtype('char_nearpointer',charnearpointertype);
loadtype('char_farpointer',charfarpointertype);
loadtype('char_hugepointer',charhugepointertype);
loadtype('byte_farpointer',bytefarpointertype);
loadtype('word_farpointer',wordfarpointertype);
loadtype('longint_farpointer',longintfarpointertype);

1
compiler/symdef.pas
View File

@ -942,6 +942,7 @@ interface
voidhugepointertype,
charnearpointertype,
charfarpointertype,
charhugepointertype,
bytefarpointertype, { used for Mem[] }
wordfarpointertype, { used for MemW[] }
longintfarpointertype, { used for MemL[] }