type
  // For System.pas internal use only.
  // Note, this type is duplicated in getmem.inc for diagnostic purposes. Keep in sync.
  PStrRec = ^StrRec;

  StrRec = packed record
{$IF defined(CPU64BITS)}
    _Padding: Integer; // Make 16 byte align for payload..
{$ENDIF}
    CodePage: Word;
    elemSize: Word;
    refCnt: Integer;
    Length: Integer;
  end;

function _NewUnicodeString(CharLength: Integer): Pointer;
var
  P: PStrRec;
begin
  Result := nil;
  if CharLength > 0 then
  begin
    // Allocate a memory with record and extra wide-null terminator.
    if CharLength >= (MaxInt - SizeOf(StrRec)) div SizeOf(WideChar) then
    begin
      asm
        MOV     AL,reIntOverflow
        JMP     Error
      end;
    end;
    GetMem(P, SizeOf(StrRec) + (CharLength + 1) * SizeOf(WideChar));
    Result := Pointer(PByte(P) + SizeOf(StrRec));
    P.Length := CharLength;
    P.refCnt := 1;
    P.elemSize := SizeOf(WideChar);
    P.CodePage := Word(DefaultUnicodeCodePage);
    PWideChar(Result)[CharLength] := #0;
  end;
end;

function _UStrClr(var S): Pointer;
var
  P: PStrRec;
begin
  if Pointer(S) <> nil then
  begin
    P := Pointer(PByte(S) - SizeOf(StrRec));
    Pointer(S) := nil;
    if P.refCnt > 0 then
    begin
      if AtomicDecrement(P.refCnt) = 0 then
        FreeMem(P);
    end;
  end;
  Result := @S;
end;

procedure _UStrAsg(var Dest: UnicodeString; const Source: UnicodeString);
var
  S, D: Pointer;
  P: PStrRec;
  Len: Integer;
begin
  S := Pointer(Source);
  if S <> nil then
  begin
    if PInteger(PByte(Source) - 8)^ < 0 then // make copy of string literal
    begin
      Len := PInteger(PByte(Source) - 4)^;
      S := _NewUnicodeString(Len);
      MyMove(Pointer(Source)^, S^, Len * SizeOf(WideChar));
    end
    else
    begin
      P := PStrRec(PByte(S) - SizeOf(StrRec));
      AtomicIncrement(P.refCnt);
    end;
  end;
  D := Pointer(Dest);
  Pointer(Dest) := S;
  _UStrClr(D);
end;

function _NewAnsiString(CharLength: Integer; CodePage: Word): Pointer;
var
  P: PStrRec;
begin
  Result := nil;
  if CharLength > 0 then
  begin
    if CharLength >= MaxInt - SizeOf(StrRec) then
      asm
        MOV     AL,reIntOverflow
        JMP     Error
      end;
    GetMem(P, CharLength + SizeOf(StrRec) + 1 + ((CharLength + 1) and 1));
    Result := Pointer(PByte(P) + SizeOf(StrRec));
    P.Length := CharLength;
    P.refCnt := 1;
    if CodePage = 0 then
      CodePage := Word(DefaultSystemCodePage);
    P.CodePage := CodePage;
    P.elemSize := 1;
    PWideChar(Result)[CharLength div 2] := #0; // length guaranteed >= 2
  end;
end;

function _LStrClr(var S): Pointer;
var
  P: PStrRec;
begin
  if Pointer(S) <> nil then
  begin
    P := Pointer(PByte(S) - SizeOf(StrRec));
    Pointer(S) := nil;
    if P.refCnt > 0 then
    begin
      if AtomicDecrement(P.refCnt) = 0 then
        FreeMem(P);
    end;
  end;
  Result := @S;
end;

procedure _LStrAsg(var Dest: AnsiString; const Source: AnsiString);
var
  S, D: Pointer;
  P: PStrRec;
  Len: Integer;
begin
  S := Pointer(Source);
  if S <> nil then
  begin
    if PInteger(PByte(S) - 8)^ < 0 then // make copy of string literal
    begin
      Len := PInteger(PByte(S) - 4)^;
      S := _NewAnsiString(Len, PWord(PByte(S) - 12)^);
      Move(PAnsiChar(Source)^, S^, Len);
    end
    else
    begin
      P := PStrRec(PByte(S) - SizeOf(StrRec));
      AtomicIncrement(P.refCnt);
    end;
  end;
  D := Pointer(Dest);
  Pointer(Dest) := S;
  _LStrClr(D);
end;

constructor TSPHPValue.Create(_Type: TEngineVarTypes; var Value);
var
  S, D: Pointer;
  Len: Integer;
begin
  FData._Type := _Type;
  case _Type of
    SUInt8:
      FData.TByte := UInt8(Value);
    SUInt16:
      FData.TWord := UInt16(Value);
    SUInt32:
      FData.TCardinal := UInt32(Value);
    SUInt64:
      FData.TUInt64 := UInt64(Value);
    SInt8:
      FData.TShortInt := Int8(Value);
    SInt16:
      FData.TSmallInt := Int16(Value);
    SInt32:
      FData.TInteger := Int32(Value);
    SInt64:
      FData.TInt64 := Int64(Value);
    SSingle:
      FData.TSingle := Single(Value);
    SDouble:
      FData.TDouble := Double(Value);
    SExtended:
      FData.TExtended := Extended(Value);
    SCurrency:
      FData.TCurrency := Currency(Value);
    SPointer:
      FData.TPointer := Pointer(Value);
    SString:
      begin
        SetLength(string(FData.TPointer), SizeOf(string));
        _UStrAsg(UnicodeString(FData.TPointer), UnicodeString(Value));

      end;
    SWideChar:
      begin
        SetLength(UnicodeString(FData.TPointer), SizeOf(WideString));
        _UStrAsg(UnicodeString(FData.TPointer), UnicodeString(Value));

        pre(UnicodeString(FData.TPointer));
      end;
    SAnsiChar:
      begin
        SetLength(AnsiString(FData.TPointer), SizeOf(AnsiString));
        _LStrAsg(PAnsiString(FData.TPointer)^, PAnsiChar(Value));
      end;
  end;
end;