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

* fixed empty const ansistring 2 pchar

Browse Source
This commit is contained in:
peter 1999-10-06 08:32:00 +00:00
parent c61bb81b5e
commit 755fc18c07
1 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/cg386cnv.pas
View File

@ -457,6 +457,8 @@ implementation
procedure second_cstring_to_pchar(pto,pfrom : ptree;convtyp : tconverttype);
var
hr : preference;
begin
clear_location(pto^.location);
pto^.location.loc:=LOC_REGISTER;
@ -470,8 +472,18 @@ implementation
end;
st_ansistring :
begin
emit_ref_reg(A_MOV,S_L,newreference(pfrom^.location.reference),
pto^.location.register);
if (pfrom^.treetype=stringconstn) and
(str_length(pfrom)=0) then
begin
new(hr);
reset_reference(hr^);
hr^.symbol:=newasmsymbol('FPC_EMPTYCHAR');
emit_ref_reg(A_LEA,S_L,hr,pto^.location.register);
end
else
emit_ref_reg(A_MOV,S_L,newreference(pfrom^.location.reference),
pto^.location.register);
end;
st_longstring:
begin
@ -1464,7 +1476,10 @@ implementation
end.
{
$Log$
Revision 1.89 1999-09-26 21:30:15 peter
Revision 1.90 1999-10-06 08:32:00 peter
* fixed empty const ansistring 2 pchar
Revision 1.89 1999/09/26 21:30:15 peter
+ constant pointer support which can happend with typecasting like
const p=pointer(1)
* better procvar parsing in typed consts