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

* fixed pchar to string location

Browse Source
This commit is contained in:
peter 1999-04-22 10:49:07 +00:00
parent fb8299c685
commit f7398a409b
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/cg386cnv.pas
View File

@ -1041,8 +1041,9 @@ implementation
case pstringdef(pto^.resulttype)^.string_typ of case pstringdef(pto^.resulttype)^.string_typ of
st_shortstring: st_shortstring:
begin begin
pushusedregisters(pushed,$ff); pto^.location.loc:=LOC_REFERENCE;
gettempofsizereference(pto^.resulttype^.size,pto^.location.reference); gettempofsizereference(pto^.resulttype^.size,pto^.location.reference);
pushusedregisters(pushed,$ff);
case pfrom^.location.loc of case pfrom^.location.loc of
LOC_REGISTER,LOC_CREGISTER: LOC_REGISTER,LOC_CREGISTER:
begin begin
@ -1062,6 +1063,7 @@ implementation
end; end;
st_ansistring: st_ansistring:
begin begin
pto^.location.loc:=LOC_REFERENCE;
gettempansistringreference(pto^.location.reference); gettempansistringreference(pto^.location.reference);
ltemptoremove^.concat(new(ptemptodestroy,init(pto^.location.reference,pto^.resulttype))); ltemptoremove^.concat(new(ptemptodestroy,init(pto^.location.reference,pto^.resulttype)));
exprasmlist^.concat(new(pai386,op_const_ref(A_MOV,S_L,0,newreference(pto^.location.reference)))); exprasmlist^.concat(new(pai386,op_const_ref(A_MOV,S_L,0,newreference(pto^.location.reference))));
@ -1100,8 +1102,6 @@ implementation
end; end;
else else
begin begin
clear_location(pto^.location);
pto^.location.loc:=LOC_REGISTER;
internalerror(12121); internalerror(12121);
end; end;
end; end;
@ -1288,7 +1288,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.66 1999-04-20 10:35:58 peter Revision 1.67 1999-04-22 10:49:07 peter
* fixed pchar to string location
Revision 1.66 1999/04/20 10:35:58 peter
* fixed bool2bool * fixed bool2bool
Revision 1.65 1999/04/19 09:45:47 pierre Revision 1.65 1999/04/19 09:45:47 pierre

7
compiler/tccnv.pas
View File

@ -516,7 +516,7 @@ implementation
procedure first_pchar_to_string(var p : ptree); procedure first_pchar_to_string(var p : ptree);
begin begin
p^.location.loc:=LOC_MEM; p^.location.loc:=LOC_REFERENCE;
end; end;
@ -940,7 +940,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.24 1999-04-21 09:44:01 peter Revision 1.25 1999-04-22 10:49:09 peter
* fixed pchar to string location
Revision 1.24 1999/04/21 09:44:01 peter
* storenumber works * storenumber works
* fixed some typos in double_checksum * fixed some typos in double_checksum
+ incompatible types type1 and type2 message (with storenumber) + incompatible types type1 and type2 message (with storenumber)