Updated structs

Author: Lev Zenin

Source/Demos/psvPHP/console/phpcon.dpr

@@ -55,7 +55,7 @@ begin
  php := TpsvPHP.Create(nil);
  if ParamCount = 1 then
  begin
-  php.FileName := ParamStr(1);
+  php.FileName := zend_ustr(ParamStr(1));
   write(php.Execute);
  end
  else

Source/Demos/psvPHP/console/phpcon.dproj

@@ -8,7 +8,7 @@
         <AppType>Console</AppType>
         <FrameworkType>None</FrameworkType>
         <ProjectVersion>18.2</ProjectVersion>
-        <Platform Condition="'$(Platform)'==''">Win64</Platform>
+        <Platform Condition="'$(Platform)'==''">Win32</Platform>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
         <Base>true</Base>

Source/ZendTypes.pas

@@ -1233,9 +1233,13 @@   Tzend_module_entry = record
     {$IFDEF PHP5}
      {$IFDEF PHP520}
       globals_size : size_t;
+      {$IFDEF PHP540}
+      globals_ptr : pointer;
+      {$ELSE}
       globals_id_ptr : pointer;
-      globals_ctor : pointer;
-      globals_dtor : pointer;
+      {$ENDIF}
+      globals_ctor : procedure (global:pointer);cdecl;
+      globals_dtor : procedure (global:pointer);cdecl;
      {$ENDIF}
     {$ENDIF}
 
@@ -1250,7 +1254,7 @@   Tzend_module_entry = record
     global_id: integer;
     {$ENDIF}
 
-    module_started: integer;
+    module_started: longint;
     _type: byte;
     handle: pointer;
     module_number: longint;