Browse Source

+ added missing begin_anonymous_record() for widestring constants (undetected
before because it only matters for the llvm target, and fpc+llvm+windows is
not yet supported/tested)

git-svn-id: branches/hlcgllvm@28749 -

Jonas Maebe 10 years ago
parent
commit
6cc74cd115
1 changed files with 1 additions and 0 deletions
  1. 1 0
      compiler/aasmcnst.pas

+ 1 - 0
compiler/aasmcnst.pas

@@ -644,6 +644,7 @@ implementation
        strlength:=getlengthwidestring(pcompilerwidestring(data));
        strlength:=getlengthwidestring(pcompilerwidestring(data));
        if winlike then
        if winlike then
          begin
          begin
+           datatcb.begin_anonymous_record;
            current_asmdata.getdatalabel(result.lab);
            current_asmdata.getdatalabel(result.lab);
            datatcb.emit_tai(Tai_const.Create_32bit(strlength*cwidechartype.size),s32inttype);
            datatcb.emit_tai(Tai_const.Create_32bit(strlength*cwidechartype.size),s32inttype);
            { can we optimise by placing the string constant label at the
            { can we optimise by placing the string constant label at the