소스 검색

* Fix tgenconst13

Michaël Van Canneyt 4 달 전
부모
커밋
4b5c6ba3fc
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  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;