+ fake shortstring temp support

git-svn-id: branches/jvmbackend@18542 -
2025-04-21 11:29:24 +02:00 · 2011-08-20 08:08:54 +00:00 · 2011-08-20 08:08:54 +00:00 · 000c502c9c
commit 000c502c9c
parent 1c1fe26ebd
1 changed files with 13 additions and 0 deletions
--- a/compiler/jvm/tgcpu.pas
+++ b/compiler/jvm/tgcpu.pas
@ -129,6 +129,19 @@ unit tgcpu;
              result:=true;
 {$endif}
            end;
+          stringdef:
+            begin
+              if is_shortstring(def) then
+                begin
+{$ifndef nounsupported}
+                  gettemp(list,java_jlobject.size,java_jlobject.alignment,temptype,ref);
+                  result:=true;
+{$else}
+                  internalerror(2011051701);
+{$endif}
+
+                end;
+            end;
        end;
      end;