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

* fixed passing of int64 constants as parameters

Browse Source 
git-svn-id: branches/i8086@23811 -
This commit is contained in:
nickysn 2013-03-12 18:04:38 +00:00
parent 4e640511fb
commit 79f43c22e9
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/i8086/cgcpu.pas
View File

@ -327,14 +327,20 @@ unit cgcpu;
begin
if tcgsize2size[cgpara.Size] <> 4 then
internalerror(2013031101);
if tcgsize2size[cgpara.location^.size] <> 2 then
internalerror(2013031101);
if cgpara.location^.Next = nil then
internalerror(2013031101);
if tcgsize2size[cgpara.location^.Next^.size] <> 2 then
internalerror(2013031101);
if cgpara.location^.Next^.Next <> nil then
internalerror(2013031101);
begin
if tcgsize2size[cgpara.location^.size] <> 4 then
internalerror(2013031101);
end
else
begin
if tcgsize2size[cgpara.location^.size] <> 2 then
internalerror(2013031101);
if tcgsize2size[cgpara.location^.Next^.size] <> 2 then
internalerror(2013031101);
if cgpara.location^.Next^.Next <> nil then
internalerror(2013031101);
end;
if cgpara.alignment <> 4 then
internalerror(2013031101);