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

* PChar -> PAnsichar

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-01-13 22:45:58 +01:00
parent a6f41f9f1c
commit 7e6f9a1806
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/uuid/src/macuuid.pp
View File

@ -26,7 +26,7 @@ Type
{$packrecords c}
tifr_ifrn = record
case integer of
0 : (ifrn_name: array [0..IF_NAMESIZE-1] of char);
0 : (ifrn_name: array [0..IF_NAMESIZE-1] of AnsiChar);
end;
tifmap = record
mem_start : culong;
@ -49,8 +49,8 @@ Type
6 : (ifru_ivalue : cint);
7 : (ifru_mtu : cint);
8 : (ifru_map : tifmap);
9 : (ifru_slave : Array[0..IF_NAMESIZE-1] of char);
10 : (ifru_newname : Array[0..IF_NAMESIZE-1] of char);
9 : (ifru_slave : Array[0..IF_NAMESIZE-1] of AnsiChar);
10 : (ifru_newname : Array[0..IF_NAMESIZE-1] of AnsiChar);
11 : (ifru_data : pointer);
end;
TIFConf = record
@ -96,7 +96,7 @@ var
ifc : TIfConf;
ifr : TIFRec;
ifp : PIFRec;
p : PChar;
p : PAnsiChar;
begin
Result:=MacAddrTried>0;
If Result then
@ -120,7 +120,7 @@ begin
move(ifp^.ifr_ifrn.ifrn_name,ifr.ifr_ifrn.ifrn_name,IF_NAMESIZE);
if (fpioctl(sd, SIOCGIFHWADDR, @ifr) >= 0) then
begin
P:=Pchar(@ifr.ifru_hwaddr.sa_data);
P:=PAnsiChar(@ifr.ifru_hwaddr.sa_data);
Result:=(p[0]<>#0) or (p[1]<>#0) or (p[2]<>#0)
or (p[3]<>#0) or (p[4]<>#0) or (p[5]<>#0);
If Result Then