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

* allow overriding first_IncludeExclude

Browse Source 
git-svn-id: branches/jvmbackend@18660 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:22:10 +00:00
parent 67a142c56e
commit c387bc0c27
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/ninl.pas
View File

@ -65,6 +65,7 @@ interface
function first_trunc_real: tnode; virtual;
function first_int_real: tnode; virtual;
function first_abs_long: tnode; virtual;
function first_IncludeExclude: tnode; virtual;
function first_setlength: tnode; virtual;
function first_copy: tnode; virtual;
{ This one by default generates an internal error, because such
@ -3144,7 +3145,7 @@ implementation
in_include_x_y,
in_exclude_x_y:
begin
expectloc:=LOC_VOID;
result:=first_IncludeExclude;
end;
in_pack_x_y_z,
@ -3431,6 +3432,14 @@ implementation
result:=nil;
end;
function tinlinenode.first_IncludeExclude: tnode;
begin
result:=nil;
expectloc:=LOC_VOID;
end;
function tinlinenode.first_setlength: tnode;
var
paras : tnode;