Преглед на файлове

+ 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.