Просмотр исходного кода

* fixed breakage by r13718

git-svn-id: trunk@13725 -
florian 16 лет назад
Родитель
Сommit
24889df6ed
1 измененных файлов с 1 добавлено и 1 удалено
  1. 1 1
      compiler/ncon.pas

+ 1 - 1
compiler/ncon.pas

@@ -302,7 +302,7 @@ implementation
                     else
                       begin
                         getmem(pCharVal, tstringconstnode(p).len + 1);
-                        move(pCharVal^, tstringconstnode(p).value_str^, tstringconstnode(p).len);
+                        move(tstringconstnode(p).value_str^, pCharVal^, tstringconstnode(p).len);
                         pCharVal[tstringconstnode(p).len] := #0;
                         get_string_value := pCharVal;
                       end;