Przeglądaj źródła

* fixed return opcode for enums and smallsets

git-svn-id: branches/jvmbackend@18603 -
Jonas Maebe 14 lat temu
rodzic
commit
7e6261ff55
1 zmienionych plików z 7 dodań i 0 usunięć
  1. 7 0
      compiler/jvm/hlcgcpu.pas

+ 7 - 0
compiler/jvm/hlcgcpu.pas

@@ -1324,6 +1324,13 @@ implementation
             else
               opc:=a_ireturn;
           end;
+        enumdef:
+          opc:=a_ireturn;
+        setdef:
+          if is_smallset(retdef) then
+            opc:=a_ireturn
+          else
+            opc:=a_areturn;
         floatdef:
           case tfloatdef(retdef).floattype of
             s32real: