Browse Source

+ add a check for Browser values

pierre 25 years ago
parent
commit
9015699063
1 changed files with 2 additions and 1 deletions
  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); }