浏览代码

* fixed return opcode for enums and smallsets

git-svn-id: branches/jvmbackend@18603 -
Jonas Maebe 14 年之前
父节点
当前提交
7e6261ff55
共有 1 个文件被更改,包括 7 次插入0 次删除
  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: