Fixes

Author: Lev Zenin

Source/ZENDAPI.pas

@@ -3437,6 +3437,7 @@ function Z_DVAL(z : pzval) : double;
 end;
 
 function Z_VARREC(z: pzval): TVarRec;
+var P: zend_ustr;
 begin
   if z = nil then
   begin
@@ -3460,8 +3461,16 @@ function Z_VARREC(z: pzval): TVarRec;
             Result.VExtended^ := z.value.dval;
         end;
         IS_STRING: begin
-            Result.VType   := vtWideString;
-            Result.VWideString := PWideChar(Z_STRVAL(z));
+            Result.VType := {$IFDEF PHP_UNICODE}vtString{$ELSE}vtAnsiString{$ENDIF};
+
+            SetLength(P, z.value.str.len);
+            Move(z.value.str.val^, P[1], z.value.str.len);
+
+            {$IFDEF PHP_UNICODE}
+              Result.VUnicodeString := Pointer(P);
+            {$ELSE}
+              Result.VAnsiString := Pointer(P);
+            {$ENDIF}
         end;
         else
         begin

Source/ZendTypes.pas

@@ -964,7 +964,7 @@   zvalue_value = record
       0: (lval: zend_long);
       1: (dval: double);
       2: (str: record
-          val: PUTF8Char;// zend_pchar;
+          val: zend_pchar;
           len: integer;
         end);
       3: (ht: PHashTable);

Source/phpClass.pas

@@ -885,7 +885,7 @@ procedure TPHPClassMethod.SetDisplayName(const Value: string);
           ({$IFDEF PHP_UNICODE}CompareText{$ELSE}AnsiCompareText{$ENDIF}(Value, F.Name) = 0) then
           raise Exception.Create('Duplicate method name');
       end;
-    FName :=  {$IFDEF PHP_UNICODE}LowerCase(Value){$ELSE}AnsiLowerCase(Value){$ENDIF};
+    FName :=  {$IFDEF PHP_UNICODE}UTF8LowerCase(Value){$ELSE}AnsiLowerCase(Value){$ENDIF};
     Changed(False);
   end;
 end;