Michaël Van Canneyt 4 mesi fa
parent
commit
4b5c6ba3fc
1 ha cambiato i file con 1 aggiunte e 1 eliminazioni
  1. 1 1
      compiler/pgenutil.pas

+ 1 - 1
compiler/pgenutil.pas

@@ -211,7 +211,7 @@ uses
               else
                 begin
                 getmem(sp,tstringconstnode(node).len+1);
-                move(tstringconstnode(node).asconstpchar,sp^,tstringconstnode(node).len+1);
+                move(tstringconstnode(node).asconstpchar^,sp^,tstringconstnode(node).len+1);
                 sym:=cconstsym.create_string(undefinedname,conststring,sp,tstringconstnode(node).len,fromdef);
                 prettyname:=''''+tstringconstnode(node).asconstpchar+'''';
                 end;