paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 20:39:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ constant unicodestrings

Browse Source 
git-svn-id: trunk@9385 -
This commit is contained in:
florian 2007-12-02 20:43:08 +00:00
parent 6ed3d91989
commit 57acf67659
3 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/ncon.pas
View File

@ -766,7 +766,7 @@ implementation
destructor tstringconstnode.destroy;
begin
if cst_type=cst_widestring then
if cst_type in [cst_widestring,cst_unicodestring] then
donewidestring(pcompilerwidestring(value_str))
else
ansistringdispose(value_str,len);
@ -781,7 +781,7 @@ implementation
inherited ppuload(t,ppufile);
cst_type:=tconststringtype(ppufile.getbyte);
len:=ppufile.getlongint;
if cst_type=cst_widestring then
if cst_type in [cst_widestring,cst_unicodestring] then
begin
initwidestring(pw);
setlengthwidestring(pw,len);
@ -803,7 +803,7 @@ implementation
inherited ppuwrite(ppufile);
ppufile.putbyte(byte(cst_type));
ppufile.putlongint(len);
if cst_type=cst_widestring then
if cst_type in [cst_widestring,cst_unicodestring] then
ppufile.putdata(pcompilerwidestring(value_str)^.data,len*sizeof(tcompilerwidechar))
else
ppufile.putdata(value_str^,len);
@ -833,7 +833,7 @@ implementation
n.cst_type:=cst_type;
n.len:=len;
n.lab_str:=lab_str;
if cst_type=cst_widestring then
if cst_type in [cst_widestring,cst_unicodestring] then
begin
initwidestring(pcompilerwidestring(n.value_str));
copywidestring(pcompilerwidestring(value_str),pcompilerwidestring(n.value_str));
@ -864,6 +864,7 @@ implementation
resultdef:=cshortstringtype;
cst_ansistring :
resultdef:=cansistringtype;
cst_unicodestring,
cst_widestring :
resultdef:=cwidestringtype;
cst_longstring :
@ -874,7 +875,7 @@ implementation
function tstringconstnode.pass_1 : tnode;
begin
result:=nil;
if (cst_type in [cst_ansistring,cst_widestring]) and
if (cst_type in [cst_ansistring,cst_widestring,cst_unicodestring]) and
(len=0) then
expectloc:=LOC_CONSTANT
else
@ -909,8 +910,7 @@ implementation
procedure tstringconstnode.changestringtype(def:tdef);
const
st2cst : array[tstringtype] of tconststringtype = (
cst_shortstring,cst_longstring,cst_ansistring,cst_widestring,cst_unicodestring
);
cst_shortstring,cst_longstring,cst_ansistring,cst_widestring,cst_unicodestring);
var
pw : pcompilerwidestring;
pc : pchar;

1
compiler/nmem.pas
View File

@ -781,6 +781,7 @@ implementation
stringdef :
begin
case tstringdef(left.resultdef).stringtype of
st_unicodestring,
st_widestring :
elementdef:=cwidechartype;
st_ansistring :

3
compiler/ptconst.pas
View File

@ -718,6 +718,7 @@ implementation
current_asmdata.asmlists[al_const].concat(Tai_string.Create_pchar(ca,strlength+1));
end;
end;
st_unicodestring,
st_widestring:
begin
{ an empty ansi string is nil! }
@ -730,7 +731,7 @@ implementation
current_asmdata.getdatalabel(ll2);
current_asmdata.asmlists[al_const].concat(tai_align.create(const_align(sizeof(aint))));
current_asmdata.asmlists[al_const].concat(Tai_label.Create(ll2));
if tf_winlikewidestring in target_info.flags then
if (def.stringtype=st_widestring) and (tf_winlikewidestring in target_info.flags) then
current_asmdata.asmlists[al_const].concat(Tai_const.Create_32bit(strlength*cwidechartype.size))
else
begin