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

* don't give an "abstract method called" error for g_rangecheck()

Browse Source 
if range checking is disabled

git-svn-id: branches/jvmbackend@18334 -
This commit is contained in:
Jonas Maebe 2011-08-20 07:47:44 +00:00
parent dd2862e25a
commit e1b6398b47
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/hlcgobj.pas
View File

@ -369,7 +369,7 @@ unit hlcgobj;
@param(p Node which contains the value to check)
@param(todef Type definition of node to range check)
}
procedure g_rangecheck(list: TAsmList; const l:tlocation; fromdef,todef: tdef); virtual; abstract;
procedure g_rangecheck(list: TAsmList; const l:tlocation; fromdef,todef: tdef); virtual;
{# Generates overflow checking code for a node }
procedure g_overflowcheck(list: TAsmList; const Loc:tlocation; def:tdef); virtual; abstract;
@ -1585,6 +1585,13 @@ implementation
g_concatcopy(list,size,source,dest);
end;
procedure thlcgobj.g_rangecheck(list: TAsmList; const l: tlocation; fromdef, todef: tdef);
begin
if not(cs_check_range in current_settings.localswitches) then
exit;
internalerror(2011010610);
end;
procedure thlcgobj.g_profilecode(list: TAsmList);
begin
end;