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

Fix test to succeed for big endian mips

Browse Source
This commit is contained in:
Pierre Muller 2022-11-08 20:57:44 +00:00 committed by FPK
parent d3abd339b7
commit 0f30af07e5
1 changed files with 27 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
tests/test/tcustomvar1.pp
View File

@ -78,15 +78,22 @@ begin
TVarData(v).VType := varUString;
UnicodeString(TVarData(v).VUString) := StrPas(PPWideChar(arg)^);
end;
varSingle,
varSmallint,
varInteger,
varLongWord,
varBoolean,
varShortInt,
varByte,
varSingle:
TVarData(v).VSingle := PLongint(arg)^;
varSmallint:
TVarData(v).VSmallInt := PLongint(arg)^;
varInteger:
TVarData(v).VInteger := PLongint(arg)^;
varLongWord:
TVarData(v).VLongWord := PLongint(arg)^;
varBoolean:
TVarData(v).VBoolean := Boolean(PLongint(arg)^);
varShortInt:
TVarData(v).VShortInt := PLongint(arg)^;
varByte:
TVarData(v).VByte := PLongint(arg)^;
varWord:
TVarData(v).VInteger := PInteger(arg)^;
TVarData(v).VWord := PLongint(arg)^;
else
TVarData(v).VAny := PPointer(arg)^;
end;
@ -161,6 +168,18 @@ begin
argtypes[0] := ConvertArgType(TVarData(argvalues[0]).VType);
v.&Begin(Date:=42,Foobar:='Hello');
argvalues[1] := 3542;
argvalues[0] := UnicodeString('Hello');
argtypes[1] := ConvertArgType(TVarData(argvalues[1]).VType);
argtypes[0] := ConvertArgType(TVarData(argvalues[0]).VType);
v.&Begin(Date:=3542,Foobar:='Hello');
argvalues[1] := 1233542;
argvalues[0] := UnicodeString('Hello');
argtypes[1] := ConvertArgType(TVarData(argvalues[1]).VType);
argtypes[0] := ConvertArgType(TVarData(argvalues[0]).VType);
v.&Begin(Date:=1233542,Foobar:='Hello');
funcname := '_';
SetLength(argnames, 0);
v._;