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

* bug with static vars in assembler readers

Browse Source
This commit is contained in:
pierre 1999-01-27 13:04:11 +00:00
parent 04b19b1d77
commit b285b17fed
2 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ra386dir.pas
View File

@ -144,7 +144,8 @@ unit Ra386dir;
(s[length(s)]<>'$') and
((s[length(s)]<>'0') or (hs[1]<>'x')) then
begin
if assigned(aktprocsym^.definition^.localst) then
if assigned(aktprocsym^.definition^.localst) and
(lexlevel >= normal_function_level) then
sym:=aktprocsym^.definition^.localst^.search(upper(hs))
else
sym:=nil;
@ -288,7 +289,10 @@ unit Ra386dir;
end.
{
$Log$
Revision 1.12 1999-01-10 15:37:57 peter
Revision 1.13 1999-01-27 13:04:12 pierre
* bug with static vars in assembler readers
Revision 1.12 1999/01/10 15:37:57 peter
* moved some tables from ra386*.pas -> i386.pas
+ start of coff writer
* renamed asmutils unit to rautils

8
compiler/rautils.pas
View File

@ -1003,7 +1003,8 @@ end;
if assigned(aktprocsym^.definition) then
Begin
{ Check the local constants }
if assigned(aktprocsym^.definition^.localst) then
if assigned(aktprocsym^.definition^.localst) and
(lexlevel >= normal_function_level) then
sym := aktprocsym^.definition^.localst^.search(s)
else
sym := nil;
@ -1803,7 +1804,10 @@ end;
end.
{
$Log$
Revision 1.1 1999-01-10 15:38:00 peter
Revision 1.2 1999-01-27 13:04:11 pierre
* bug with static vars in assembler readers
Revision 1.1 1999/01/10 15:38:00 peter
* moved some tables from ra386*.pas -> i386.pas
+ start of coff writer
* renamed asmutils unit to rautils