From a729201e37265d0601272619c3c2b6f6ec86c46f Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 20 Aug 2011 08:04:40 +0000
Subject: [PATCH]   * map normal sets to R_ADDRESSREGISTER

git-svn-id: branches/jvmbackend@18496 -
---
 compiler/jvm/hlcgcpu.pas | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/compiler/jvm/hlcgcpu.pas b/compiler/jvm/hlcgcpu.pas
index f3c15463da..63ef663c5c 100644
--- a/compiler/jvm/hlcgcpu.pas
+++ b/compiler/jvm/hlcgcpu.pas
@@ -248,6 +248,11 @@ implementation
         { records are implemented via classes }
         recorddef:
           result:=R_ADDRESSREGISTER;
+        setdef:
+          if is_smallset(def) then
+            result:=R_INTREGISTER
+          else
+            result:=R_ADDRESSREGISTER;
         else
           result:=inherited;
       end;