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

* avoid warning during compilation

Browse Source 
git-svn-id: trunk@16701 -
This commit is contained in:
Tomas Hajny 2011-01-03 23:21:15 +00:00
parent f0084393de
commit d2262b1a41
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
utils/rmwait/rmwait.pas
View File

@ -395,7 +395,7 @@ begin
end; end;
procedure NewExit; far; procedure NewExit; {$IFNDEF FPC} far;{$ENDIF FPC}
begin begin
ExitProc := OldExit; ExitProc := OldExit;
if (ErrorAddr <> nil) or (ExitCode <> 0) then if (ErrorAddr <> nil) or (ExitCode <> 0) then