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

* Fix typo

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-03-11 09:56:43 +01:00
parent b50d6ff99c
commit b5bccf7a77
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/defutil.pas
View File

@ -1068,7 +1068,7 @@ implementation
is_chararray(tpointerdef(p).pointeddef))); is_chararray(tpointerdef(p).pointeddef)));
end; end;
{ true if p is a pchar def } { true if p is a pwidechar def }
function is_pwidechar(p : tdef) : boolean; function is_pwidechar(p : tdef) : boolean;
begin begin
is_pwidechar:=(p.typ=pointerdef) and is_pwidechar:=(p.typ=pointerdef) and