* simplify empty-dynamic-string-to-pointer (non-p(wide)char) type conversions

    so that they cannot result in "cmp const, const" at the assembler level
    (mantis #33548)

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@38662 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 6 insertions, 0 deletions

diff --git a/compiler/jvm/njvmcon.pas b/compiler/jvm/njvmcon.pas
index 2f96eb643c..b52c4211c1 100644
--- a/compiler/jvm/njvmcon.pas
+++ b/compiler/jvm/njvmcon.pas
@@ -48,6 +48,7 @@ interface
        tjvmstringconstnode = class(tstringconstnode)
           function pass_1: tnode; override;
           procedure pass_generate_code;override;
+          class function emptydynstrnil: boolean; override;
        end;
 
        tjvmsetconsttype = (
@@ -246,6 +247,11 @@ implementation
         thlcgjvm(hlcg).a_load_stack_reg(current_asmdata.CurrAsmList,resultdef,location.register);
       end;
 
+    class function tjvmstringconstnode.emptydynstrnil: boolean;
+      begin
+        result:=false;
+      end;
+
 
     {*****************************************************************************
                                TJVMSETCONSTNODE