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

* Fix compilation

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-07-15 13:33:32 +02:00
parent 5abadd255f
commit a283c4dab7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/amunits/src/utilunits/tagsarray.pas
View File

@ -50,7 +50,7 @@ begin
vtboolean : TagList[ii].ti_data := PtrInt(byte(Args[i].vboolean)); vtboolean : TagList[ii].ti_data := PtrInt(byte(Args[i].vboolean));
vtpchar : TagList[ii].ti_data := PtrInt(Args[i].vpchar); vtpchar : TagList[ii].ti_data := PtrInt(Args[i].vpchar);
vtchar : TagList[ii].ti_data := PtrInt(Args[i].vchar); vtchar : TagList[ii].ti_data := PtrInt(Args[i].vchar);
vtstring : TagList[ii].ti_data := PtrInt(PAnsiChar(ShortString(Args[i].vstring^))); vtstring : TagList[ii].ti_data := PtrInt(PAnsiChar(AnsiString(Args[i].vstring^)));
vtpointer : TagList[ii].ti_data := PtrInt(Args[i].vpointer); vtpointer : TagList[ii].ti_data := PtrInt(Args[i].vpointer);
end; end;
inc(ii); inc(ii);