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

* fixed missed setting of return code

Browse Source 
git-svn-id: trunk@29002 -
This commit is contained in:
Tomas Hajny 2014-11-06 16:51:15 +00:00
parent fa89dca059
commit 30820cd0e5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/os2/dos.pas
View File

@ -453,7 +453,7 @@ begin
DT.Minute := byte (Minute);
DT.Second := byte (Second);
DT.Sec100 := byte (Sec100);
DosSetDateTime (DT);
RC := DosSetDateTime (DT);
if RC <> 0 then
OSErrorWatch (RC);
end;