Browse Source

* Fix tgenconst13

Michaël Van Canneyt 4 months ago
parent
commit
4b5c6ba3fc
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/pgenutil.pas

+ 1 - 1
compiler/pgenutil.pas

@@ -211,7 +211,7 @@ uses
               else
               else
                 begin
                 begin
                 getmem(sp,tstringconstnode(node).len+1);
                 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);
                 sym:=cconstsym.create_string(undefinedname,conststring,sp,tstringconstnode(node).len,fromdef);
                 prettyname:=''''+tstringconstnode(node).asconstpchar+'''';
                 prettyname:=''''+tstringconstnode(node).asconstpchar+'''';
                 end;
                 end;