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

volatile: allow for assignments

Browse Source
This commit is contained in:
Jonas Maebe 2023-08-12 12:04:18 +02:00
parent f5280abe54
commit 13346a42bc
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/htypechk.pas
View File

@ -1869,7 +1869,7 @@ implementation
begin
if ((valid_const in opts) and
(tinlinenode(hp).inlinenumber in [in_typeof_x])) or
(tinlinenode(hp).inlinenumber in [in_unaligned_x,in_aligned_x]) then
(tinlinenode(hp).inlinenumber in [in_unaligned_x,in_aligned_x,in_volatile_x]) then
result:=true
else
if report_errors then

7
tests/tbs/tb0706.pp Normal file
View File

@ -0,0 +1,7 @@
{ %norun }
var
l: longint;
begin
volatile(l) := 1;
end.