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

* parameters declared as out must be initialized

Browse Source 
git-svn-id: trunk@43429 -
This commit is contained in:
florian 2019-11-09 18:29:14 +00:00
parent 40bbb28fd2
commit 137f392c66
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ogbase.pas
View File

@ -1208,10 +1208,10 @@ implementation
{user} [oso_Data,oso_load,oso_write], {user} [oso_Data,oso_load,oso_write],
{code} [oso_Data,oso_load,oso_executable], {code} [oso_Data,oso_load,oso_executable],
{Data} [oso_Data,oso_load,oso_write], {Data} [oso_Data,oso_load,oso_write],
{ Readonly data with relocations must be initially writable for some targets. { 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 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 dynamically. Here we declare it writable, target-specific descendants must provide
further handling. } further handling. }
{roData} [oso_Data,oso_load,oso_write], {roData} [oso_Data,oso_load,oso_write],
{roData_norel} [oso_Data,oso_load], {roData_norel} [oso_Data,oso_load],
{bss} [oso_load,oso_write], {bss} [oso_load,oso_write],
@ -1317,6 +1317,7 @@ implementation
both progbits and flags as parameters } both progbits and flags as parameters }
options:=sectiontype2options(atype); options:=sectiontype2options(atype);
flags:=[]; flags:=[];
progbits:=SPB_PROGBITS;
if oso_load in options then if oso_load in options then
include(flags,SF_A); include(flags,SF_A);
if oso_write in options then if oso_write in options then