浏览代码

+ Type of Ofs() changed to pointer

michael 27 年之前
父节点
当前提交
c38cbb1782
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      docs/refex/ex44.pp

+ 1 - 1
docs/refex/ex44.pp

@@ -6,5 +6,5 @@ Var W : Pointer;
 
 
 begin
-  W:=Ofs(W); { W contains its own offset. } 
+  W:=Pointer(Ofs(W)); { W contains its own offset. } 
 end.