Jelajahi Sumber

+ fake shortstring temp support

git-svn-id: branches/jvmbackend@18542 -
Jonas Maebe 14 tahun lalu
induk
melakukan
000c502c9c
1 mengubah file dengan 13 tambahan dan 0 penghapusan
  1. 13 0
      compiler/jvm/tgcpu.pas

+ 13 - 0
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;