diff options
| author | daniel <daniel@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2007-07-21 19:16:24 +0000 |
|---|---|---|
| committer | daniel <daniel@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2007-07-21 19:16:24 +0000 |
| commit | a81ae26437952c318cfae49b3f01d3da936d3ea1 (patch) | |
| tree | 27a7b5bca7b2ac356fa7f7c089b41607e660c688 /compiler/constexp.pas | |
| parent | 4914b9488d75bb5057f27584d03ad8ed26656641 (diff) | |
| download | fpc-a81ae26437952c318cfae49b3f01d3da936d3ea1.tar.gz | |
+ Add common type integer promotion.
- {$intpromotion common_type} or -CIcommon_type switches to common type promotion.
- {$intpromotion native_integer} or -CIcommon_type switches to current behaviour.
- Default in tp mode is common_type, native_integer in other modes
- Compiler can cycle with -CIcommon_type
- Still needs checking on other architectures than i386
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@8118 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/constexp.pas')
| -rw-r--r-- | compiler/constexp.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/constexp.pas b/compiler/constexp.pas index eec3e45e5a..492d134390 100644 --- a/compiler/constexp.pas +++ b/compiler/constexp.pas @@ -165,7 +165,7 @@ begin else if not a.signed and (a.uvalue>qword(high(int64))) then goto try_qword else - sspace:=qword(high(int64))-a.svalue; + sspace:=qword(high(int64))-qword(a.svalue); if sspace>=b then begin |