paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 17:59:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix range check error

Browse Source 
git-svn-id: trunk@6649 -
This commit is contained in:
peter 2007-02-25 17:51:04 +00:00
parent b225a70853
commit e4605f9b52
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/globals.pas
View File

@ -344,10 +344,10 @@ interface
{# Routine to get the required alignment for size of data, which will
be placed in bss segment, according to the current alignment requirements }
function var_align(siz: shortint): shortint;
function var_align(siz: longint): shortint;
{# Routine to get the required alignment for size of data, which will
be placed in data/const segment, according to the current alignment requirements }
function const_align(siz: shortint): shortint;
function const_align(siz: longint): shortint;
implementation
@ -1000,14 +1000,14 @@ implementation
end;
function var_align(siz: shortint): shortint;
function var_align(siz: longint): shortint;
begin
siz := size_2_align(siz);
var_align := used_align(siz,current_settings.alignment.varalignmin,current_settings.alignment.varalignmax);
end;
function const_align(siz: shortint): shortint;
function const_align(siz: longint): shortint;
begin
siz := size_2_align(siz);
const_align := used_align(siz,current_settings.alignment.constalignmin,current_settings.alignment.constalignmax);