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

--- Merging r40202 into '.':

Browse Source 
U    compiler/ncal.pas
U    compiler/optdfa.pas
A    tests/webtbs/tw34438.pp
--- Recording mergeinfo for merge of r40202 into '.':
 U   .

git-svn-id: branches/fixes_3_2@40740 -
This commit is contained in:
florian 2019-01-01 21:59:57 +00:00
parent f7782641ad
commit 0ad0cefeb3
4 changed files with 52 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -16270,6 +16270,7 @@ tests/webtbs/tw3435.pp svneol=native#text/plain
tests/webtbs/tw34380.pp svneol=native#text/plain
tests/webtbs/tw3441.pp svneol=native#text/plain
tests/webtbs/tw3443.pp svneol=native#text/plain
tests/webtbs/tw34438.pp svneol=native#text/pascal
tests/webtbs/tw3444.pp svneol=native#text/plain
tests/webtbs/tw3456.pp svneol=native#text/plain
tests/webtbs/tw3457.pp svneol=native#text/plain

9
compiler/ncal.pas
View File

@ -4849,11 +4849,16 @@ implementation
ptrtype: tdef;
tempnode: ttempcreatenode;
paraaddr: taddrnode;
isfuncretnode : boolean;
begin
ptrtype:=cpointerdef.getreusable(para.left.resultdef);
tempnode:=ctempcreatenode.create(ptrtype,ptrtype.size,tt_persistent,true);
addstatement(inlineinitstatement,tempnode);
addstatement(inlinecleanupstatement,ctempdeletenode.create(tempnode));
isfuncretnode:=nf_is_funcret in para.left.flags;
if isfuncretnode then
addstatement(inlinecleanupstatement,ctempdeletenode.create_normal_temp(tempnode))
else
addstatement(inlinecleanupstatement,ctempdeletenode.create(tempnode));
{ inherit addr_taken flag }
if (tabstractvarsym(para.parasym).addr_taken) then
tempnode.includetempflag(ti_addr_taken);
@ -4865,6 +4870,8 @@ implementation
addstatement(inlineinitstatement,cassignmentnode.create(ctemprefnode.create(tempnode),
paraaddr));
para.left:=cderefnode.create(ctemprefnode.create(tempnode));
if isfuncretnode then
Include(para.left.flags,nf_is_funcret);
end;

1
compiler/optdfa.pas
View File

@ -383,6 +383,7 @@ unit optdfa;
temprefn,
loadn,
typeconvn,
derefn,
assignn:
begin
if not(assigned(node.optinfo^.def)) and

42
tests/webtbs/tw34438.pp Normal file
View File

@ -0,0 +1,42 @@
{%norun}
{$mode objfpc}
uses
types,math;
type
PGtkWidget = pointer;
PGtkNotebook = pointer;
function MyRect(Left,Top,Right,Bottom : Integer) : TRect; inline;
begin
MyRect.Left:=Left;
MyRect.Top:=Top;
MyRect.Right:=Right;
MyRect.Bottom:=Bottom;
end;
function GetWidgetClientRect(TheWidget: PGtkWidget): TRect;
var
Widget, ClientWidget: PGtkWidget;
AChild: PGtkWidget;
procedure GetNoteBookClientRect(NBWidget: PGtkNotebook);
var
PageIndex: LongInt;
PageWidget: PGtkWidget;
FrameBorders: TRect;
aWidth: LongInt;
aHeight: LongInt;
begin
Result:=MyRect(0,0,
Max(0,AWidth-FrameBorders.Left-FrameBorders.Right),
Max(0,aHeight-FrameBorders.Top-FrameBorders.Bottom));
end;
begin
end;
begin
end.