peter 21 years ago
parent
commit
d298043d6b
1 changed files with 1 additions and 1 deletions
  1. 1 1
      tests/test/tintuint.pp

+ 1 - 1
tests/test/tintuint.pp

@@ -34,7 +34,7 @@ begin
   ExitProc:=OldExit;
   ExitProc:=OldExit;
   if ExitCode=201 then
   if ExitCode=201 then
     begin
     begin
-      ErrorAddr:=0;
+      ErrorAddr:=nil;
       longjmp(RTE201Buf,1);
       longjmp(RTE201Buf,1);
     end;
     end;
 end;
 end;