* PChar -> PAnsiChar

packages/libsee/examples/mod_stream.pp

@@ -16,22 +16,22 @@ implementation
   General auxiliary functions
   ---------------------------------------------------------------------}
 
-Function ValueToString(V : TSee_Value) : string;
+Function ValueToString(V : TSee_Value) : AnsiString;
 
 Var
   PS : Ptcuint;
-  PD : PChar;
+  PD : PAnsiChar;
   I : Integer;
 
 begin
   SetLength(Result,v.u._string^.length);
   If Length(Result)<>0 then
     begin
-    PD:=PChar(Result);
+    PD:=PAnsiChar(Result);
     PS:=v.u._string^.data;
     For I:=0 to length(Result)-1 do
       begin
-      PD^:=Char(PS^ and $ff);
+      PD^:=AnsiChar(PS^ and $ff);
       Inc(PD);
       Inc(PS);
       end;
@@ -149,7 +149,7 @@ procedure StreamWrite (i:PTSEE_interpreter; obj:PTSEE_object; thisobj:PTSEE_obje
 Var
   S : PStreamObject;
   v : TSEE_Value;
-  t : string;
+  t : AnsiString;
 
 begin
   S:=AsFile(I,ThisObj);
@@ -169,7 +169,7 @@ procedure StreamPosition (i:PTSEE_interpreter; obj:PTSEE_object; thisobj:PTSEE_o
 Var
   S : PStreamObject;
   v : TSEE_Value;
-  t : string;
+  t : AnsiString;
 
 begin
   S:=AsFile(I,ThisObj);
@@ -203,7 +203,7 @@ Var
   S : PStreamObject;
   r : PSEE_String;
   j,maxlen : integer;
-  c : char;
+  c : AnsiChar;
 
 begin
   S:=AsFile(I,ThisObj);
@@ -228,7 +228,7 @@ procedure StreamFree (i:PTSEE_interpreter; obj:PTSEE_object; thisobj:PTSEE_objec
 Var
   S : PStreamObject;
   v : TSEE_Value;
-  t : string;
+  t : AnsiString;
 
 begin
   S:=AsFile(I,ThisObj);
@@ -248,10 +248,10 @@ procedure StreamConstruct (i:PTSEE_interpreter; obj:PTSEE_object; thisobj:PTSEE_
              res:PTSEE_value);cdecl;
 
 Var
-  P : PChar;
+  P : PAnsiChar;
   fm : Integer;
   S : TStream;
-  Err : String;
+  Err : AnsiString;
   R : PTSEE_Object;
 
 begin
@@ -266,7 +266,7 @@ begin
       Err:=E.Message;
   end;
   If (Err<>'') then
-    SEE_error__throw0(i,PrivateData(I)^.Error,PChar(Err));
+    SEE_error__throw0(i,PrivateData(I)^.Error,PAnsiChar(Err));
   R:=PTSEE_Object(SEE_malloc_finalize(I,SizeOf(TStreamObject),@StreamFinalize,Nil));
   SEE_Native_init(PSEE_Native(R),I,StreamPrototypeDef,PrivateData(I)^.Prototype);
   PStreamObject(r)^.Stream:=S;
@@ -397,7 +397,7 @@ procedure WriteWrite (i:PTSEE_interpreter; obj:PTSEE_object; thisobj:PTSEE_objec
 
 Var
   a,C : Integer;
-  t : string;
+  t : AnsiString;
   v : TSEE_Value;
 
 begin

packages/libsee/examples/teststream.pp

@@ -21,7 +21,7 @@ begin
   see_init;
   RegisterStreamModule;
   SEE_interpreter_init(@interp);
-  ainput :=SEE_input_utf8(@interp, pchar(program_text));
+  ainput :=SEE_input_utf8(@interp, PAnsiChar(program_text));
   See_global_eval(@interp,ainput,@res);
   see_input_close(ainput);
 end.

packages/libsee/examples/testwrite.pp

@@ -18,7 +18,7 @@ begin
   see_init;
   RegisterWriteModule;
   SEE_interpreter_init(@interp);
-  ainput :=SEE_input_utf8(@interp, pchar(program_text));
+  ainput :=SEE_input_utf8(@interp, PAnsiChar(program_text));
   See_global_eval(@interp,ainput,@res);
   see_input_close(ainput);
 end.

packages/libsee/examples/tlibsee.pp

@@ -13,7 +13,7 @@ Const
 begin
   see_init;
   SEE_interpreter_init(@Interp);
-  ainput :=SEE_input_utf8(@Interp, pchar(program_text));
+  ainput :=SEE_input_utf8(@Interp, PAnsiChar(program_text));
   See_global_eval(@interp,ainput,@res);
   if (res._type=SEE_NUMBER) then
     Writeln('Result is : ',res.u.number)

packages/libsee/src/libsee.pas

@@ -33,7 +33,7 @@ uses
 
 Type
   Tsize_t = csize_t;
-  tcuchar = char;
+  tcuchar = AnsiChar;
   Tuint16_t = word;
   Tuint32_t = cardinal;
   Tuint64_t = qword;
@@ -43,11 +43,11 @@ Type
   TDouble = double;  
   tcuint = word;
   tcint = integer;
-  PTcchar = pchar;
+  PTcchar = PAnsiChar;
   PPTcchar = ^PTcchar;
   Ptcint = ^tcint;
   PTcuint = ^tcuint;
-  tcchar = char;
+  tcchar = AnsiChar;
 
 var
   SEE_literal_NaN : array[0..7] of Tcuchar;cvar;external;
@@ -729,7 +729,7 @@ procedure SEE_SET_BOOLEAN(v : PSEE_value; b : Boolean);
 
 begin
   SEE_SET_TYPE(V,SEE_BOOLEAN);
-  V^.u.boolean:=char(ord(B));
+  V^.u.boolean:=AnsiChar(ord(B));
 end;
 
 procedure SEE_SET_NUMBER(v : PSEE_value; n : TSEE_number_t);
@@ -938,7 +938,7 @@ procedure Loadlibsee(Const Alib : string);
 
 begin
   Freelibsee;
-  hlib:=LoadLibrary(pchar(Alib));
+  hlib:=LoadLibrary(PAnsiChar(Alib));
   if hlib=0 then
     raise Exception.Create(format('Could not load library: %s',[Alib]));
   pointer(_SEE_isnan):=GetProcAddress(hlib,'_SEE_isnan');