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

* fixed <dword>/<dword>, <int64>/<int64> and <qword>/<qword>

Browse Source
This commit is contained in:
florian 2000-03-20 10:16:51 +00:00
parent 013656b007
commit 814bee0cc6
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/tcadd.pas
View File

@ -518,7 +518,9 @@ implementation
convdone:=true; convdone:=true;
end end
{ is there a 64 bit type ? } { is there a 64 bit type ? }
else if (porddef(rd)^.typ=s64bit) or (porddef(ld)^.typ=s64bit) then else if ((porddef(rd)^.typ=s64bit) or (porddef(ld)^.typ=s64bit)) and
{ the / operator is handled later }
(p^.treetype<>slashn) then
begin begin
if (porddef(ld)^.typ<>s64bit) then if (porddef(ld)^.typ<>s64bit) then
begin begin
@ -533,7 +535,9 @@ implementation
calcregisters(p,2,0,0); calcregisters(p,2,0,0);
convdone:=true; convdone:=true;
end end
else if (porddef(rd)^.typ=u64bit) or (porddef(ld)^.typ=u64bit) then else if ((porddef(rd)^.typ=u64bit) or (porddef(ld)^.typ=u64bit)) and
{ the / operator is handled later }
(p^.treetype<>slashn) then
begin begin
if (porddef(ld)^.typ<>u64bit) then if (porddef(ld)^.typ<>u64bit) then
begin begin
@ -550,7 +554,9 @@ implementation
end end
else else
{ is there a cardinal? } { is there a cardinal? }
if (porddef(rd)^.typ=u32bit) or (porddef(ld)^.typ=u32bit) then if ((porddef(rd)^.typ=u32bit) or (porddef(ld)^.typ=u32bit)) and
{ the / operator is handled later }
(p^.treetype<>slashn) then
begin begin
{ convert constants to u32bit } { convert constants to u32bit }
{$ifndef cardinalmulfix} {$ifndef cardinalmulfix}
@ -1260,7 +1266,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.71 2000-03-18 15:01:19 jonas Revision 1.72 2000-03-20 10:16:51 florian
* fixed <dword>/<dword>, <int64>/<int64> and <qword>/<qword>
Revision 1.71 2000/03/18 15:01:19 jonas
* moved a $maxfpuregisters directive a bit up because it was being * moved a $maxfpuregisters directive a bit up because it was being
ignored ignored