paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-26 06:58:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ allow absolute to absolute symbols, resolves issue #32474

Browse Source 
git-svn-id: trunk@37379 -
This commit is contained in:
florian 2017-10-01 19:54:44 +00:00
parent 5b755661d8
commit c0feaf1f1e
3 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -15801,6 +15801,7 @@ tests/webtbs/tw3227a.pp svneol=native#text/plain
tests/webtbs/tw3235.pp svneol=native#text/plain tests/webtbs/tw3235.pp svneol=native#text/plain
tests/webtbs/tw3235a.pp svneol=native#text/plain tests/webtbs/tw3235a.pp svneol=native#text/plain
tests/webtbs/tw3241a.pp svneol=native#text/plain tests/webtbs/tw3241a.pp svneol=native#text/plain
tests/webtbs/tw32474.pp svneol=native#text/pascal
tests/webtbs/tw3252.pp svneol=native#text/plain tests/webtbs/tw3252.pp svneol=native#text/plain
tests/webtbs/tw3255.pp svneol=native#text/plain tests/webtbs/tw3255.pp svneol=native#text/plain
tests/webtbs/tw3257.pp svneol=native#text/plain tests/webtbs/tw3257.pp svneol=native#text/plain

2
compiler/pdecvar.pas
View File

@ -1240,7 +1240,7 @@ implementation
if (hp.nodetype=loadn) then if (hp.nodetype=loadn) then
begin begin
{ we should check the result type of loadn } { we should check the result type of loadn }
if not (tloadnode(hp).symtableentry.typ in [fieldvarsym,staticvarsym,localvarsym,paravarsym]) then if not (tloadnode(hp).symtableentry.typ in [fieldvarsym,staticvarsym,localvarsym,paravarsym,absolutevarsym]) then
Message(parser_e_absolute_only_to_var_or_const); Message(parser_e_absolute_only_to_var_or_const);
abssym:=cabsolutevarsym.create(vs.realname,vs.vardef); abssym:=cabsolutevarsym.create(vs.realname,vs.vardef);
abssym.fileinfo:=vs.fileinfo; abssym.fileinfo:=vs.fileinfo;

7
tests/webtbs/tw32474.pp Normal file
View File

@ -0,0 +1,7 @@
{ %norun }
var
b1: byte absolute $50;
b2: byte absolute b1;
begin
b1 := 3;
end.