Explorar o código

* fixed void_to_(int,pointer) typeconversion

Jonas Maebe %!s(int64=22) %!d(string=hai) anos
pai
achega
ad0dd43c4b
Modificáronse 1 ficheiros con 5 adicións e 1 borrados
  1. 5 1
      compiler/ncnv.pas

+ 5 - 1
compiler/ncnv.pas

@@ -1394,6 +1394,7 @@ implementation
       begin
       begin
         first_int_to_int:=nil;
         first_int_to_int:=nil;
         if (left.expectloc<>LOC_REGISTER) and
         if (left.expectloc<>LOC_REGISTER) and
+           not is_void(left.resulttype.def) and
            (resulttype.def.size>left.resulttype.def.size) then
            (resulttype.def.size>left.resulttype.def.size) then
            expectloc:=LOC_REGISTER
            expectloc:=LOC_REGISTER
         else
         else
@@ -2108,7 +2109,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.112  2003-06-03 21:05:48  peter
+  Revision 1.113  2003-06-04 17:29:01  jonas
+    * fixed void_to_(int,pointer) typeconversion
+
+  Revision 1.112  2003/06/03 21:05:48  peter
     * fix check for procedure without parameters
     * fix check for procedure without parameters
     * calling constructor as member will not allocate memory
     * calling constructor as member will not allocate memory