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

Fix compilation for msdos targets

Browse Source
This commit is contained in:
Pierre Muller 2023-05-22 23:53:48 +02:00
parent 02b6e9143a
commit a7578e144d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/rtl-objpas/src/inc/system.timespan.pp
View File

@ -316,7 +316,8 @@ end;
class function TTimeSpan.TryParse(const S: string; out Value: TTimeSpan class function TTimeSpan.TryParse(const S: string; out Value: TTimeSpan
): Boolean; ): Boolean;
var i,len,k,v,v2 : integer; var i,len,k,v2 : integer;
v : longint;
sgn : boolean; sgn : boolean;
begin begin
value.fticks:=0; value.fticks:=0;