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

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