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

--amend

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-11-01 15:27:32 +01:00
parent c7426a37ef
commit d0fe59feda
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2117,18 +2117,18 @@ end;
Procedure TValue.CastIntegerToInteger(out aRes : Boolean; out ADest: TValue; aDestType: PTypeInfo);
var
value: Integer;
Tmp : Integer;
begin
with FData do
case GetTypeData(FTypeInfo)^.OrdType of
otSByte: Value:=FAsSByte;
otSWord: Value:=FAsSWord;
otSLong: Value:=FAsSLong;
otSByte: Tmp:=FAsSByte;
otSWord: Tmp:=FAsSWord;
otSLong: Tmp:=FAsSLong;
else
value:=Integer(FAsULong);
Tmp:=Integer(FAsULong);
end;
TValue.Make(@value,aDestType,aDest);
TValue.Make(@Tmp,aDestType,aDest);
aRes:=True;
end;
@ -2215,17 +2215,17 @@ begin
tkString:
begin
SS:=Tmp;
aDest:=TValue.Specialize From<ShortString>(SS);
TValue.Make(@SS,System.TypeInfo(ShortString),aDest);
end;
tkWString:
begin
WS:=Tmp;
aDest:=TValue.Specialize From<WideString>(WS);
TValue.Make(@WS,System.TypeInfo(WideString),aDest);
end;
tkUString:
begin
US:=Tmp;
aDest:=TValue.Specialize From<UnicodeString>(US);
TValue.Make(@US,System.TypeInfo(UnicodeString),aDest);
end;
tkLString:
begin