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

* support LOC_(C)SUBSETREG in tcgvecnode.pass_generate_code, can also occur

Browse Source 
for function results (patch by Do-wan Kim, mantis #29064)

git-svn-id: trunk@32516 -
This commit is contained in:
Jonas Maebe 2015-11-24 15:03:34 +00:00
parent f5eaf7ddde
commit 9dc5f1acb4
3 changed files with 49 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -14879,6 +14879,7 @@ tests/webtbs/tw2904.pp svneol=native#text/plain
tests/webtbs/tw29040.pp svneol=native#text/plain tests/webtbs/tw29040.pp svneol=native#text/plain
tests/webtbs/tw29053.pp svneol=native#text/pascal tests/webtbs/tw29053.pp svneol=native#text/pascal
tests/webtbs/tw29053b.pp svneol=native#text/pascal tests/webtbs/tw29053b.pp svneol=native#text/pascal
tests/webtbs/tw29064.pp svneol=native#text/plain
tests/webtbs/tw2908.pp svneol=native#text/plain tests/webtbs/tw2908.pp svneol=native#text/plain
tests/webtbs/tw2911.pp svneol=native#text/plain tests/webtbs/tw2911.pp svneol=native#text/plain
tests/webtbs/tw2912.pp svneol=native#text/plain tests/webtbs/tw2912.pp svneol=native#text/plain

2
compiler/ncgmem.pas
View File

@ -963,8 +963,10 @@ implementation
begin begin
{ may happen in case of function results } { may happen in case of function results }
case left.location.loc of case left.location.loc of
LOC_CSUBSETREG,
LOC_CREGISTER, LOC_CREGISTER,
LOC_CMMREGISTER, LOC_CMMREGISTER,
LOC_SUBSETREG,
LOC_REGISTER, LOC_REGISTER,
LOC_MMREGISTER: LOC_MMREGISTER:
hlcg.location_force_mem(current_asmdata.CurrAsmList,left.location,left.resultdef); hlcg.location_force_mem(current_asmdata.CurrAsmList,left.location,left.resultdef);

46
tests/webtbs/tw29064.pp Normal file
View File

@ -0,0 +1,46 @@
program ie200411013;
{$mode objfpc}{$H+}
uses
ctypes;
type
in_addr = record
s_bytes : array[1..4] of byte;
end;
sockaddr = record
sin_family: word;
sin_port: word;
sin_addr: in_addr;
end;
TSockAddr = sockaddr;
{ TSocketStream }
TSocketStream = class
private
function GetRemoteAddress: TSockAddr;
Public
property RemoteAddress: TSockAddr read GetRemoteAddress;
end;
function TSocketStream.GetRemoteAddress: TSockAddr;
var
sa: sockaddr;
begin
sa.sin_addr.s_bytes[2]:=4;
result:=sa;
end;
var
ss: TSocketStream;
b: byte;
begin
ss:=TSocketStream.create;
b := ss.RemoteAddress.sin_addr.s_bytes[2];
if b<>4 then
halt(1);
end.