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

* farpointer and normal pointer aren't compatible

Browse Source
This commit is contained in:
peter 2000-11-11 16:13:31 +00:00
parent 3c6d0efadc
commit efcc15cfee
1 changed files with 22 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
compiler/types.pas
View File

@ -1004,12 +1004,18 @@ implementation
{ pointer with an equal definition are equal } { pointer with an equal definition are equal }
if (def1^.deftype=pointerdef) and (def2^.deftype=pointerdef) then if (def1^.deftype=pointerdef) and (def2^.deftype=pointerdef) then
begin begin
{ here a problem detected in tabsolutesym } { check if both are farpointer }
{ the types can be forward type !! } if (ppointerdef(def1)^.is_far=ppointerdef(def2)^.is_far) then
if assigned(def1^.typesym) and (ppointerdef(def1)^.pointertype.def^.deftype=forwarddef) then begin
b:=(def1^.typesym=def2^.typesym) { here a problem detected in tabsolutesym }
{ the types can be forward type !! }
if assigned(def1^.typesym) and (ppointerdef(def1)^.pointertype.def^.deftype=forwarddef) then
b:=(def1^.typesym=def2^.typesym)
else
b:=ppointerdef(def1)^.pointertype.def=ppointerdef(def2)^.pointertype.def;
end
else else
b:=ppointerdef(def1)^.pointertype.def=ppointerdef(def2)^.pointertype.def; b:=false;
end end
else else
{ ordinals are equal only when the ordinal type is equal } { ordinals are equal only when the ordinal type is equal }
@ -1489,8 +1495,12 @@ implementation
{ well, but it's handy to use, it isn't ? (FK) } { well, but it's handy to use, it isn't ? (FK) }
is_equal(ppointerdef(def_from)^.pointertype.def,voiddef) then is_equal(ppointerdef(def_from)^.pointertype.def,voiddef) then
begin begin
doconv:=tc_equal; { but don't allow conversion between farpointer-pointer }
b:=1; if (ppointerdef(def_to)^.is_far=ppointerdef(def_from)^.is_far) then
begin
doconv:=tc_equal;
b:=1;
end;
end; end;
end; end;
procvardef : procvardef :
@ -1700,7 +1710,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.19 2000-11-06 22:30:30 peter Revision 1.20 2000-11-11 16:13:31 peter
* farpointer and normal pointer aren't compatible
Revision 1.19 2000/11/06 22:30:30 peter
* more fixes * more fixes
Revision 1.18 2000/11/04 14:25:22 florian Revision 1.18 2000/11/04 14:25:22 florian
@ -1758,4 +1771,4 @@ end.
Revision 1.2 2000/07/13 11:32:53 michael Revision 1.2 2000/07/13 11:32:53 michael
+ removed logs + removed logs
} }