paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-06 11:18:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed (actual and potential) range errors

Browse Source
This commit is contained in:
Jonas Maebe 2002-07-26 11:16:35 +00:00
parent 61a2a3ae37
commit 185fa10345
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/cutils.pas
View File

@ -62,7 +62,7 @@ interface
function PadSpace(const s:string;len:longint):string; function PadSpace(const s:string;len:longint):string;
function GetToken(var s:string;endchar:char):string; function GetToken(var s:string;endchar:char):string;
procedure uppervar(var s : string); procedure uppervar(var s : string);
function hexstr(val : cardinal;cnt : longint) : string; function hexstr(val : cardinal;cnt : cardinal) : string;
function tostru(i:cardinal) : string; function tostru(i:cardinal) : string;
function tostr(i : longint) : string; function tostr(i : longint) : string;
function int64tostr(i : int64) : string; function int64tostr(i : int64) : string;
@ -329,7 +329,7 @@ uses
end; end;
function hexstr(val : cardinal;cnt : longint) : string; function hexstr(val : cardinal;cnt : cardinal) : string;
const const
HexTbl : array[0..15] of char='0123456789ABCDEF'; HexTbl : array[0..15] of char='0123456789ABCDEF';
var var
@ -803,7 +803,10 @@ initialization
end. end.
{ {
$Log$ $Log$
Revision 1.20 2002-07-07 11:13:34 carl Revision 1.21 2002-07-26 11:16:35 jonas
* fixed (actual and potential) range errors
Revision 1.20 2002/07/07 11:13:34 carl
* range check error fix (patch from Sergey) * range check error fix (patch from Sergey)
Revision 1.19 2002/07/07 09:52:32 florian Revision 1.19 2002/07/07 09:52:32 florian

9
compiler/i386/n386inl.pas
View File

@ -275,7 +275,7 @@ implementation
scratch_reg : boolean; scratch_reg : boolean;
hregister : tregister; hregister : tregister;
asmop : tasmop; asmop : tasmop;
L : longint; L : cardinal;
pushedregs : TMaybesave; pushedregs : TMaybesave;
cgop : topcg; cgop : topcg;
begin begin
@ -284,7 +284,7 @@ implementation
if tcallparanode(tcallparanode(left).right).left.nodetype=ordconstn then if tcallparanode(tcallparanode(left).right).left.nodetype=ordconstn then
begin begin
{ calculate bit position } { calculate bit position }
l:=1 shl (tordconstnode(tcallparanode(tcallparanode(left).right).left).value mod 32); l:=cardinal(1 shl (tordconstnode(tcallparanode(tcallparanode(left).right).left).value mod 32));
{ determine operator } { determine operator }
if inlinenumber=in_include_x_y then if inlinenumber=in_include_x_y then
@ -354,7 +354,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.50 2002-07-25 18:02:33 carl Revision 1.51 2002-07-26 11:16:35 jonas
* fixed (actual and potential) range errors
Revision 1.50 2002/07/25 18:02:33 carl
+ added generic inline nodes + added generic inline nodes
Revision 1.49 2002/07/20 11:58:02 florian Revision 1.49 2002/07/20 11:58:02 florian