paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 03:10:34 +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:16 +02:00
parent 42a52aa7d7
commit 5abadd255f
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/arosunits/src/tagsarray.pas
View File

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