浏览代码

* Write byte dyn array

Michaël Van Canneyt 4 月之前
父节点
当前提交
98f6c64f82
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      compiler/wpobase.pas

+ 2 - 2
compiler/wpobase.pas

@@ -822,7 +822,7 @@ implementation
       calledentries:=tbitset.create_bytesize(len);
       calledentries:=tbitset.create_bytesize(len);
       if (len <> calledentries.datasize) then
       if (len <> calledentries.datasize) then
         internalerror(2009060301);
         internalerror(2009060301);
-      ppufile.readdata(calledentries.data^,len);
+      ppufile.readdata(calledentries.data);
     end;
     end;
 
 
 
 
@@ -837,7 +837,7 @@ implementation
     begin
     begin
       ppufile.putderef(objdefderef);
       ppufile.putderef(objdefderef);
       ppufile.putlongint(calledentries.datasize);
       ppufile.putlongint(calledentries.datasize);
-      ppufile.putdata(calledentries.data^,calledentries.datasize);
+      ppufile.putdata(calledentries.data);
     end;
     end;