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

* fixed type of size parameter passed to fpc_getmem() when translating

Browse Source 
new(pointer) (mantis #38054)

git-svn-id: trunk@47355 -
This commit is contained in:
Jonas Maebe 2020-11-08 22:42:38 +00:00
parent 359ff64afd
commit 091b0fde0c
3 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -18523,6 +18523,7 @@ tests/webtbs/tw38012.pp svneol=native#text/pascal
tests/webtbs/tw38022.pp svneol=native#text/pascal
tests/webtbs/tw3805.pp svneol=native#text/plain
tests/webtbs/tw38051.pp svneol=native#text/pascal
tests/webtbs/tw38054.pp svneol=native#text/plain
tests/webtbs/tw3814.pp svneol=native#text/plain
tests/webtbs/tw3827.pp svneol=native#text/plain
tests/webtbs/tw3829.pp svneol=native#text/plain

2
compiler/pinline.pas
View File

@ -382,7 +382,7 @@ implementation
{ create call to fpc_getmem }
para := ccallparanode.create(cordconstnode.create
(tpointerdef(p.resultdef).pointeddef.size,s32inttype,true),nil);
(tpointerdef(p.resultdef).pointeddef.size,ptruinttype,true),nil);
addstatement(newstatement,cassignmentnode.create(
ctemprefnode.create(temp),
ccallnode.createintern('fpc_getmem',para)));

12
tests/webtbs/tw38054.pp Normal file
View File

@ -0,0 +1,12 @@
{ %norun }
const
l = high(ptrint); // 2000 <--> 2100
type
t = array[ 1..l ]of int8; // 1.95 <--> 2.05 GiBy
var
p: ^t;
begin
new(p);
writeln( sizeof(p^) );
p^[l]:=0; writeln(p^[l])
end .