paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 16:59:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* 0->nil

Browse Source
This commit is contained in:
peter 2003-12-23 22:12:15 +00:00
parent dd69b121a9
commit d298043d6b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/test/tintuint.pp
View File

@ -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;