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

* PChar -> PAnsiChar

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-01-14 14:14:44 +01:00
parent 88c52bc23e
commit 280aceea65
3 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/libogcfpc/examples/devices/network/sockettest/sockettest.pp
View File

@ -7,7 +7,7 @@ program sockettest;
uses uses
cmem, ctypes, network, gccore; cmem, ctypes, network, gccore;
function strncmp(__s1:Pchar; __s2:Pchar; __n:cardinal):longint;cdecl;external; function strncmp(__s1:PAnsiChar; __s2:PAnsiChar; __n:cardinal):longint;cdecl;external;
var var
@ -17,15 +17,15 @@ var
hits: cint = 0; hits: cint = 0;
var var
http_200: pchar = 'HTTP/1.1 200 OK\r\n'; http_200: PAnsiChar = 'HTTP/1.1 200 OK\r\n';
indexdata: pchar = '<html> \' + indexdata: PAnsiChar = '<html> \' +
' <head><title>A test page</title></head> \' + ' <head><title>A test page</title></head> \' +
' <body> \' + ' <body> \' +
' This small test page has had %d hits. \' + ' This small test page has had %d hits. \' +
' </body> \' + ' </body> \' +
'</html>'; '</html>';
http_html_hdr: pchar = 'Content-type: text/html\r\n\r\n'; http_html_hdr: PAnsiChar = 'Content-type: text/html\r\n\r\n';
http_get_index: pchar = 'GET / HTTP/1.1\r\n'; http_get_index: PAnsiChar = 'GET / HTTP/1.1\r\n';
function httpd(arg: pointer): pointer; cdecl; function httpd(arg: pointer): pointer; cdecl;
var var

2
packages/libogcfpc/src/ogc/system.inc
View File

@ -188,7 +188,7 @@ function SYS_GetArena2Size(): cuint32; cdecl; external;
function SYS_SetPowerCallback(cb: powercallback): powercallback; cdecl; external; function SYS_SetPowerCallback(cb: powercallback): powercallback; cdecl; external;
{$endif HW_RVL} {$endif HW_RVL}
procedure kprintf(const str: Pchar; args: array of const); cdecl; external; procedure kprintf(const str: PAnsiChar; args: array of const); cdecl; external;
{$endif OGC_INTERFACE} {$endif OGC_INTERFACE}

2
packages/libogcfpc/src/wiiuse/wiiuse.inc
View File

@ -379,7 +379,7 @@ type
unid : cint; (**< user specified id *) unid : cint; (**< user specified id *)
cmdq : lwp_queue; cmdq : lwp_queue;
bdaddr : _bd_addr; (**< bt address *) bdaddr : _bd_addr; (**< bt address *)
bdaddr_str : array [0..17] of char; (**< readable bt address *) bdaddr_str : array [0..17] of AnsiChar; (**< readable bt address *)
sock : Pbte_pcb; (**< output socket *) sock : Pbte_pcb; (**< output socket *)
event_cb : wii_event_cb; (**< event callback *) event_cb : wii_event_cb; (**< event callback *)
state : cint; (**< various state flags *) state : cint; (**< various state flags *)