Browse Source

+ add a check for Browser values

pierre 25 năm trước cách đây
mục cha
commit
9015699063
1 tập tin đã thay đổi với 2 bổ sung1 xóa
  1. 2 1
      ide/text/test.pas

+ 2 - 1
ide/text/test.pas

@@ -151,7 +151,8 @@ BEGIN
   writeln(IsOdd(3));
   writeln(Func1(5,5,Bool,T));
   new(X);
-  X^.next:=X;
+  new(X^.next);
+  X^.next^.next:=X;
   dispose(X);
  { for i:=1 to 99 do
     Writeln('Line ',i); }