paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 09:06:02 +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} {$packrecords c}
tifr_ifrn = record tifr_ifrn = record
case integer of case integer of
0 : (ifrn_name: array [0..IF_NAMESIZE-1] of char); 0 : (ifrn_name: array [0..IF_NAMESIZE-1] of AnsiChar);
end; end;
tifmap = record tifmap = record
mem_start : culong; mem_start : culong;
@ -49,8 +49,8 @@ Type
6 : (ifru_ivalue : cint); 6 : (ifru_ivalue : cint);
7 : (ifru_mtu : cint); 7 : (ifru_mtu : cint);
8 : (ifru_map : tifmap); 8 : (ifru_map : tifmap);
9 : (ifru_slave : 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 char); 10 : (ifru_newname : Array[0..IF_NAMESIZE-1] of AnsiChar);
11 : (ifru_data : pointer); 11 : (ifru_data : pointer);
end; end;
TIFConf = record TIFConf = record
@ -96,7 +96,7 @@ var
ifc : TIfConf; ifc : TIfConf;
ifr : TIFRec; ifr : TIFRec;
ifp : PIFRec; ifp : PIFRec;
p : PChar; p : PAnsiChar;
begin begin
Result:=MacAddrTried>0; Result:=MacAddrTried>0;
If Result then If Result then
@ -120,7 +120,7 @@ begin
move(ifp^.ifr_ifrn.ifrn_name,ifr.ifr_ifrn.ifrn_name,IF_NAMESIZE); move(ifp^.ifr_ifrn.ifrn_name,ifr.ifr_ifrn.ifrn_name,IF_NAMESIZE);
if (fpioctl(sd, SIOCGIFHWADDR, @ifr) >= 0) then if (fpioctl(sd, SIOCGIFHWADDR, @ifr) >= 0) then
begin 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) Result:=(p[0]<>#0) or (p[1]<>#0) or (p[2]<>#0)
or (p[3]<>#0) or (p[4]<>#0) or (p[5]<>#0); or (p[3]<>#0) or (p[4]<>#0) or (p[5]<>#0);
If Result Then If Result Then