Advertisement
Guest User

Untitled

a guest
Mar 28th, 2017
61
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.89 KB | None | 0 0
  1. Index: compiler/nmat.pas
  2. ===================================================================
  3. --- compiler/nmat.pas   (revision 35669)
  4. +++ compiler/nmat.pas   (working copy)
  5. @@ -345,9 +345,9 @@
  6.           else
  7.             begin
  8.                { Make everything always default singed int }
  9. -              if not(rd.ordtype in [torddef(sinttype).ordtype,torddef(uinttype).ordtype]) then
  10. +              if not(rd.ordtype in [torddef(sinttype).ordtype,torddef(uinttype).ordtype{$ifdef X86_64},u32bit,s32bit{$endif}]) then
  11.                  inserttypeconv(right,sinttype);
  12. -              if not(ld.ordtype in [torddef(sinttype).ordtype,torddef(uinttype).ordtype]) then
  13. +              if not(ld.ordtype in [torddef(sinttype).ordtype,torddef(uinttype).ordtype{$ifdef X86_64},u32bit,s32bit{$endif}]) then
  14.                  inserttypeconv(left,sinttype);
  15.                resultdef:=right.resultdef;
  16.             end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement