Browse Source

* fix for tp7

peter 27 years ago
parent
commit
e2badc5910
1 changed files with 5 additions and 2 deletions
  1. 5 2
      compiler/cg386inl.pas

+ 5 - 2
compiler/cg386inl.pas

@@ -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 :)