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

Merge branch 'fixes_3_2' into release_3_2_4-branch

Browse Source
This commit is contained in:
florian 2024-09-23 21:47:44 +02:00
commit cd84c2d5cd
3 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ncgflw.pas
View File

@ -131,7 +131,7 @@ implementation
fmodule,
cpubase,
tgobj,paramgr,
cgobj,hlcgobj,nutils
cgobj,hlcgobj,nutils,node
;
{*****************************************************************************
@ -512,8 +512,8 @@ implementation
procedure tcglabelnode.pass_generate_code;
begin
location_reset(location,LOC_VOID,OS_NO);
include(flowcontrol,fc_gotolabel);
if not (nf_internal in flags) then
include(flowcontrol,fc_gotolabel);
{$ifdef OLDREGVARS}
load_all_regvars(current_asmdata.CurrAsmList);
{$endif OLDREGVARS}

4
compiler/nflw.pas
View File

@ -2118,7 +2118,8 @@ implementation
result:=nil;
expectloc:=LOC_VOID;
include(current_procinfo.flags,pi_has_label);
if not (nf_internal in flags) then
include(current_procinfo.flags,pi_has_label);
if assigned(labsym) and labsym.nonlocal then
begin
@ -2223,6 +2224,7 @@ implementation
begin
third:=cinlinenode.create(in_get_frame,false,nil);
current_addr:=clabelnode.create(cnothingnode.create,clabelsym.create('$raiseaddr'));
current_addr.toggleflag(nf_internal);
addstatement(statements,current_addr);
right:=caddrnode.create(cloadnode.create(current_addr.labsym,current_addr.labsym.owner));
end;

6
rtl/linux/ostypes.inc
View File

@ -75,14 +75,18 @@ TYPE
{ include /include/asm-<cpu>/posix-types.h }
const
{$ifndef cpux86_64}
{$if not defined(cpux86_64) and not defined (cpuaarch64)}
_STAT_VER_LINUX_OLD = 1;
_STAT_VER_KERNEL = 1;
_STAT_VER_SVR4 = 2;
_STAT_VER_LINUX = 3;
{$else}
_STAT_VER_KERNEL = 0;
{$if defined(cpuaarch64)}
_STAT_VER_LINUX = 0;
{$else}
_STAT_VER_LINUX = 1;
{$endif}
{$endif}
_STAT_VER = _STAT_VER_LINUX;