Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* PChar -> PAnsiChar

Michaël Van Canneyt 2 years ago
parent
88c52bc23e
commit
280aceea65
3 changed files with 7 additions and 7 deletions
Split View Show Diff Stats
  1. 5 5
      packages/libogcfpc/examples/devices/network/sockettest/sockettest.pp
  2. 1 1
      packages/libogcfpc/src/ogc/system.inc
  3. 1 1
      packages/libogcfpc/src/wiiuse/wiiuse.inc

+ 5 - 5
packages/libogcfpc/examples/devices/network/sockettest/sockettest.pp
View File 

@@ -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

+ 1 - 1
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;
 
 {$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}

+ 1 - 1
packages/libogcfpc/src/wiiuse/wiiuse.inc
View File 

@@ -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					 *)