paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-25 08:48:54 +01:00
Code Issues Packages Projects Releases Wiki Activity

Fix 1f3a013f8f for unix target, by using system.TTime (to avoid using TTime also defined in baseunix unit)

Browse Source
This commit is contained in:
Pierre Muller 2025-09-23 23:48:20 +02:00
parent 682a643766
commit b50284466f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/rtl-objpas/src/inc/rtti.pp
View File

@ -285,7 +285,7 @@ type
class operator := (AValue: TVarRec): TValue; inline;
class operator := (AValue: TDateTime): TValue; inline;
class operator := (AValue: TDate): TValue; inline;
class operator := (AValue: TTime): TValue; inline;
class operator := (AValue: system.TTime): TValue; inline;
class operator = (const ALeft, ARight: TValue): Boolean; inline;
class operator <> (const ALeft, ARight: TValue): Boolean; inline;
property DataSize: SizeInt read GetDataSize;
@ -2794,9 +2794,9 @@ begin
Make(@AValue, System.TypeInfo(TDate), Result);
end;
class operator TValue.:=(AValue: TTime): TValue;
class operator TValue.:=(AValue: system.TTime): TValue;
begin
Make(@AValue, System.TypeInfo(TTime), Result);
Make(@AValue, System.TypeInfo(system.TTime), Result);
end;
class operator TValue.= (const ALeft, ARight: TValue): Boolean;