From 280aceea65036e74485e42164d641b41305382c9 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= Date: Sat, 14 Jan 2023 14:14:44 +0100 Subject: [PATCH] * PChar -> PAnsiChar --- .../examples/devices/network/sockettest/sockettest.pp | 10 +++++----- packages/libogcfpc/src/ogc/system.inc | 2 +- packages/libogcfpc/src/wiiuse/wiiuse.inc | 2 +- 3 files changed, 7 insertions(+), 7 deletions(-) diff --git a/packages/libogcfpc/examples/devices/network/sockettest/sockettest.pp b/packages/libogcfpc/examples/devices/network/sockettest/sockettest.pp index f853c95863..b661ef5b7c 100644 --- a/packages/libogcfpc/examples/devices/network/sockettest/sockettest.pp +++ b/packages/libogcfpc/examples/devices/network/sockettest/sockettest.pp @@ -7,7 +7,7 @@ program sockettest; uses 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 @@ -17,15 +17,15 @@ var hits: cint = 0; var - http_200: pchar = 'HTTP/1.1 200 OK\r\n'; - indexdata: pchar = ' \' + + http_200: PAnsiChar = 'HTTP/1.1 200 OK\r\n'; + indexdata: PAnsiChar = ' \' + ' A test page \' + ' \' + ' This small test page has had %d hits. \' + ' \' + ''; - http_html_hdr: pchar = 'Content-type: text/html\r\n\r\n'; - http_get_index: pchar = 'GET / HTTP/1.1\r\n'; + http_html_hdr: PAnsiChar = 'Content-type: text/html\r\n\r\n'; + http_get_index: PAnsiChar = 'GET / HTTP/1.1\r\n'; function httpd(arg: pointer): pointer; cdecl; var diff --git a/packages/libogcfpc/src/ogc/system.inc b/packages/libogcfpc/src/ogc/system.inc index dfd39aa81b..3a5bb1264a 100644 --- a/packages/libogcfpc/src/ogc/system.inc +++ b/packages/libogcfpc/src/ogc/system.inc @@ -188,7 +188,7 @@ function SYS_GetArena2Size(): cuint32; cdecl; external; function SYS_SetPowerCallback(cb: powercallback): powercallback; cdecl; external; {$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} diff --git a/packages/libogcfpc/src/wiiuse/wiiuse.inc b/packages/libogcfpc/src/wiiuse/wiiuse.inc index c87322ac56..96306fabd1 100644 --- a/packages/libogcfpc/src/wiiuse/wiiuse.inc +++ b/packages/libogcfpc/src/wiiuse/wiiuse.inc @@ -379,7 +379,7 @@ type unid : cint; (**< user specified id *) cmdq : lwp_queue; 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 *) event_cb : wii_event_cb; (**< event callback *) state : cint; (**< various state flags *)