Browse Source

* fixed webbug 882

Jonas Maebe 25 years ago
parent
commit
03939d1fb1
1 changed files with 6 additions and 3 deletions
  1. 6 3
      compiler/tcmem.pas

+ 6 - 3
compiler/tcmem.pas

@@ -302,14 +302,14 @@ implementation
                      if not(cs_typed_addresses in aktlocalswitches) then
                      if not(cs_typed_addresses in aktlocalswitches) then
                        p^.resulttype:=voidfarpointerdef
                        p^.resulttype:=voidfarpointerdef
                      else
                      else
-                       p^.resulttype:=new(ppointerdef,initfardef(p^.left^.resulttype));
+                       p^.resulttype:=new(ppointerdef,initfardef(hp^.resulttype));
                    end
                    end
                   else
                   else
                    begin
                    begin
                      if not(cs_typed_addresses in aktlocalswitches) then
                      if not(cs_typed_addresses in aktlocalswitches) then
                        p^.resulttype:=voidpointerdef
                        p^.resulttype:=voidpointerdef
                      else
                      else
-                       p^.resulttype:=new(ppointerdef,initdef(p^.left^.resulttype));
+                       p^.resulttype:=new(ppointerdef,initdef(hp^.resulttype));
                    end;
                    end;
                 end;
                 end;
            end;
            end;
@@ -646,7 +646,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.42  2000-02-17 14:53:43  florian
+  Revision 1.43  2000-03-22 15:41:10  jonas
+    * fixed webbug 882
+
+  Revision 1.42  2000/02/17 14:53:43  florian
     * some updates for the newcg
     * some updates for the newcg
 
 
   Revision 1.41  2000/02/09 13:23:08  peter
   Revision 1.41  2000/02/09 13:23:08  peter