diff --git a/compiler/i386/n386set.pas b/compiler/i386/n386set.pas index 22b52fd5a0..8be12ee5b6 100644 --- a/compiler/i386/n386set.pas +++ b/compiler/i386/n386set.pas @@ -950,7 +950,7 @@ implementation { we need the min_label always to choose between } { cmps and subs/decs } min_label:=case_get_min(nodes); - + load_all_regvars(exprasmlist); { now generate the jumps } if opsize=S_Q then @@ -1021,7 +1021,7 @@ implementation genlinearlist(nodes) else begin - if (dist>4*labels) then + if (dist>4*cardinal(labels)) then begin if labels>16 then gentreejmp(nodes) @@ -1071,7 +1071,10 @@ begin end. { $Log$ - Revision 1.7 2000-12-05 11:44:34 jonas + Revision 1.8 2000-12-16 15:58:18 jonas + * removed warnings about possible range check errors + + Revision 1.7 2000/12/05 11:44:34 jonas + new integer regvar handling, should be much more efficient Revision 1.6 2000/11/29 00:30:49 florian diff --git a/compiler/i386/popt386.pas b/compiler/i386/popt386.pas index 3956701267..f340991614 100644 --- a/compiler/i386/popt386.pas +++ b/compiler/i386/popt386.pas @@ -361,7 +361,7 @@ Begin Paicpu(p)^.opcode := A_AND; l := (1 shl (Paicpu(p)^.oper[0].val))-1; Case Paicpu(p)^.opsize Of - S_L: Paicpu(p)^.LoadConst(0,l Xor $ffffffff); + S_L: Paicpu(p)^.LoadConst(0,l Xor longint($ffffffff)); S_B: Paicpu(p)^.LoadConst(0,l Xor $ff); S_W: Paicpu(p)^.LoadConst(0,l Xor $ffff); End; @@ -377,7 +377,7 @@ Begin Case Paicpu(p)^.opsize Of S_B: Paicpu(p)^.LoadConst(0,l Xor $ff); S_W: Paicpu(p)^.LoadConst(0,l Xor $ffff); - S_L: Paicpu(p)^.LoadConst(0,l Xor $ffffffff); + S_L: Paicpu(p)^.LoadConst(0,l Xor longint($ffffffff)); End; AsmL^.remove(hp1); dispose(hp1, done); @@ -2000,7 +2000,10 @@ End. { $Log$ - Revision 1.4 2000-11-29 00:30:49 florian + Revision 1.5 2000-12-16 16:00:12 jonas + * removed warnings about possible range check errors + + Revision 1.4 2000/11/29 00:30:49 florian * unused units removed from uses clause * some changes for widestrings diff --git a/rtl/i386/mmx.pp b/rtl/i386/mmx.pp index 52f05085e8..d975a307fc 100644 --- a/rtl/i386/mmx.pp +++ b/rtl/i386/mmx.pp @@ -92,7 +92,7 @@ unit mmx; cpuid movl %edx,_edx end; - amd_3d_support:=(_edx and $80000000)<>0; + amd_3d_support:=(_edx and longint($80000000))<>0; end else { a cpu with without cpuid instruction supports never mmx } @@ -127,7 +127,10 @@ begin end. { $Log$ - Revision 1.2 2000-07-13 11:33:41 michael + Revision 1.3 2000-12-16 15:58:18 jonas + * removed warnings about possible range check errors + + Revision 1.2 2000/07/13 11:33:41 michael + removed logs - + } diff --git a/rtl/objpas/objpas.pp b/rtl/objpas/objpas.pp index f58bd5712e..608b05c636 100644 --- a/rtl/objpas/objpas.pp +++ b/rtl/objpas/objpas.pp @@ -210,7 +210,7 @@ begin begin thehash:=thehash shl 4; inc(theHash,Ord(S[i])); - g:=thehash and ($f shl 28); + g:=thehash and longint($f shl 28); if g<>0 then begin thehash:=thehash xor (g shr 24); @@ -349,7 +349,10 @@ end. { $Log$ - Revision 1.4 2000-11-13 14:41:20 marco + Revision 1.5 2000-12-16 15:58:18 jonas + * removed warnings about possible range check errors + + Revision 1.4 2000/11/13 14:41:20 marco * Unix renamefest for defines Revision 1.3 2000/07/14 10:33:10 michael @@ -357,5 +360,5 @@ end. Revision 1.2 2000/07/13 11:33:51 michael + removed logs - + } diff --git a/rtl/objpas/sysstr.inc b/rtl/objpas/sysstr.inc index 43bfe9d1c7..0307affadf 100644 --- a/rtl/objpas/sysstr.inc +++ b/rtl/objpas/sysstr.inc @@ -118,7 +118,7 @@ end ; P1 = P2 = 0 } function CompareMemRange(P1, P2: Pointer; Length: cardinal): integer; -var i: integer; +var i: cardinal; begin i := 0; result := 0; @@ -132,7 +132,7 @@ end ; function CompareMem(P1, P2: Pointer; Length: cardinal): Boolean; var - i: Integer; + i: cardinal; begin for i := 0 to Length - 1 do begin @@ -280,7 +280,7 @@ end; function AnsiStrLComp(S1, S2: PChar; MaxLen: cardinal): integer; -Var I : longint; +Var I : cardinal; begin Result:=0; @@ -306,7 +306,7 @@ end ; function AnsiStrLIComp(S1, S2: PChar; MaxLen: cardinal): integer; -Var I : longint; +Var I : cardinal; begin Result:=0; @@ -538,7 +538,7 @@ function IntToHex(Value: integer; Digits: integer): string; var i: integer; begin SetLength(result, digits); - for i := 0 to digits - 1 do + for i := 0 to digits - 1 do begin result[digits - i] := HexDigits[value and 15]; value := value shr 4; @@ -550,7 +550,7 @@ function IntToHex(Value: int64; Digits: integer): string; var i: integer; begin SetLength(result, digits); - for i := 0 to digits - 1 do + for i := 0 to digits - 1 do begin result[digits - i] := HexDigits[value and 15]; value := value shr 4; @@ -846,7 +846,7 @@ begin ToAdd:=StringOfChar('0',Index)+ToAdd else // + 1 to accomodate for - sign in length !! - Insert(StringOfChar('0',Index+1),toadd,2); + Insert(StringOfChar('0',Index+1),toadd,2); end; 'E' : begin CheckArg(vtExtended,true); @@ -932,7 +932,7 @@ begin if fmtlen > 0 then Move(fmt,F[1],fmtlen); S:=Format (F,Args); - If Length(S)>Buflen then + If Cardinal(Length(S))>Buflen then Result:=Length(S) else Result:=Buflen; @@ -1134,24 +1134,24 @@ begin If (ValueMaxDateTime) then Raise EConvertError.CreateFmt (SInvalidDateTime,[Value]); Result:=Value; -end; +end; Function FloatToCurr (Const Value : Extended) : Currency; begin - -end; + +end; Function CurrToStr(Value: Currency): string; begin -end; +end; function StrToCurr(const S: string): Currency; begin -end; +end; function StrToBool(const S: string): Boolean; -Var +Var Temp : String; D : Double; Code : word; @@ -1167,14 +1167,14 @@ begin result:=false else Raise EConvertError.CreateFmt(SInvalidBoolean,[S]); -end; +end; function BoolToStr(B: Boolean): string; begin If B then Result:='TRUE' else - Result:='FALSE'; + Result:='FALSE'; end; {==============================================================================} @@ -1215,7 +1215,7 @@ Function LastDelimiter(const Delimiters, S: string): Integer; begin Result:=Length(S); - While (Result>0) and (Pos(S[Result],Delimiters)=0) do + While (Result>0) and (Pos(S[Result],Delimiters)=0) do Dec(Result); end; @@ -1277,7 +1277,10 @@ const { $Log$ - Revision 1.9 2000-12-07 21:58:30 michael + Revision 1.10 2000-12-16 15:58:18 jonas + * removed warnings about possible range check errors + + Revision 1.9 2000/12/07 21:58:30 michael + Merged lastdelimiter from fixbranch Revision 1.8 2000/12/06 22:55:29 michael