mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 04:09:33 +02:00
* PChar -> PAnsiChar
This commit is contained in:
parent
88c52bc23e
commit
280aceea65
@ -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 = '<html> \' +
|
||||
http_200: PAnsiChar = 'HTTP/1.1 200 OK\r\n';
|
||||
indexdata: PAnsiChar = '<html> \' +
|
||||
' <head><title>A test page</title></head> \' +
|
||||
' <body> \' +
|
||||
' This small test page has had %d hits. \' +
|
||||
' </body> \' +
|
||||
'</html>';
|
||||
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
|
||||
|
@ -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}
|
||||
|
||||
|
@ -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 *)
|
||||
|
Loading…
Reference in New Issue
Block a user