瀏覽代碼

* fix typo in message and deallocate all previously allocated memory

git-svn-id: trunk@29527 -
Tomas Hajny 10 年之前
父節點
當前提交
33856b9f7b
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      tests/test/targ1a.pp

+ 2 - 2
tests/test/targ1a.pp

@@ -23,10 +23,10 @@ begin
     begin
       GetMem(MemArray[i],Size(i));
     end;
-  for i:=1 to MAX_SIZE div SIZE_INC do
+  for i:=0 to MAX_SIZE div SIZE_INC do
     begin
       FreeMem(MemArray[i],Size(i));
     end;
-  Writeln(stderr,'Everthing is fine');
+  Writeln(stderr,'Everything is fine');
 
 end.