From 137f392c66a298d58a03c3ca336470e5a5274efa Mon Sep 17 00:00:00 2001 From: florian Date: Sat, 9 Nov 2019 18:29:14 +0000 Subject: [PATCH] * parameters declared as out must be initialized git-svn-id: trunk@43429 - --- compiler/ogbase.pas | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/compiler/ogbase.pas b/compiler/ogbase.pas index 663f34b397..d118b9cf4f 100644 --- a/compiler/ogbase.pas +++ b/compiler/ogbase.pas @@ -1208,10 +1208,10 @@ implementation {user} [oso_Data,oso_load,oso_write], {code} [oso_Data,oso_load,oso_executable], {Data} [oso_Data,oso_load,oso_write], -{ Readonly data with relocations must be initially writable for some targets. - Moreover, e.g. for ELF it depends on whether the executable is linked statically or - dynamically. Here we declare it writable, target-specific descendants must provide - further handling. } + { Readonly data with relocations must be initially writable for some targets. + Moreover, e.g. for ELF it depends on whether the executable is linked statically or + dynamically. Here we declare it writable, target-specific descendants must provide + further handling. } {roData} [oso_Data,oso_load,oso_write], {roData_norel} [oso_Data,oso_load], {bss} [oso_load,oso_write], @@ -1317,6 +1317,7 @@ implementation both progbits and flags as parameters } options:=sectiontype2options(atype); flags:=[]; + progbits:=SPB_PROGBITS; if oso_load in options then include(flags,SF_A); if oso_write in options then