paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-03 23:57:17 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix for tp7

Browse Source
This commit is contained in:
peter 1998-10-02 17:04:51 +00:00
parent 1595295776
commit e2badc5910
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/cg386inl.pas
View File

@ -752,7 +752,7 @@ implementation
end;
pointerdef : begin
opsize:=S_L;
if ppointerdef(p^.left^.left^.resulttype)^.definition=voiddef then
if porddef(ppointerdef(p^.left^.left^.resulttype)^.definition)=voiddef then
addvalue:=1
else
addvalue:=ppointerdef(p^.left^.left^.resulttype)^.definition^.savesize;
@ -939,7 +939,10 @@ implementation
end.
{
$Log$
Revision 1.8 1998-10-02 10:35:09 peter
Revision 1.9 1998-10-02 17:04:51 peter
* fix for tp7
Revision 1.8 1998/10/02 10:35:09 peter
* support for inc(pointer,value) which now increases with value instead
of 0*value :)