Sfoglia il codice sorgente

* fixed return opcode for enums and smallsets

git-svn-id: branches/jvmbackend@18603 -
Jonas Maebe 14 anni fa
parent
commit
7e6261ff55
1 ha cambiato i file con 7 aggiunte e 0 eliminazioni
  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: