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

* fixed offset support intel reader, the gotoffset variable was not

Browse Source 
always reset
  * moved check for local/para to be only used for varsym
This commit is contained in:
peter 2000-04-29 12:51:33 +00:00
parent ad5c964217
commit f40500579d
2 changed files with 23 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/ra386att.pas
View File

@ -930,11 +930,13 @@ Begin
sym:=srsym;
if assigned(sym) then
begin
if sym^.owner^.symtabletype in [localsymtable,parasymtable] then
Message(asmr_e_no_local_or_para_allowed);
case srsym^.typ of
varsym :
hs:=pvarsym(srsym)^.mangledname;
begin
if sym^.owner^.symtabletype in [localsymtable,parasymtable] then
Message(asmr_e_no_local_or_para_allowed);
hs:=pvarsym(srsym)^.mangledname;
end;
typedconstsym :
hs:=ptypedconstsym(srsym)^.mangledname;
procsym :
@ -1992,7 +1994,12 @@ begin
end.
{
$Log$
Revision 1.73 2000-04-04 13:48:44 pierre
Revision 1.74 2000-04-29 12:51:33 peter
* fixed offset support intel reader, the gotoffset variable was not
always reset
* moved check for local/para to be only used for varsym
Revision 1.73 2000/04/04 13:48:44 pierre
+ TOperand.SetCorrectSize virtual method added
to be able to change the suffix according to the instruction
(FIADD word ptr w need a s as ATT suffix

17
compiler/ra386int.pas
View File

@ -865,11 +865,13 @@ Begin
sym:=srsym;
if assigned(sym) then
begin
if sym^.owner^.symtabletype in [localsymtable,parasymtable] then
Message(asmr_e_no_local_or_para_allowed);
case srsym^.typ of
varsym :
hs:=pvarsym(srsym)^.mangledname;
begin
if sym^.owner^.symtabletype in [localsymtable,parasymtable] then
Message(asmr_e_no_local_or_para_allowed);
hs:=pvarsym(srsym)^.mangledname;
end;
typedconstsym :
hs:=ptypedconstsym(srsym)^.mangledname;
procsym :
@ -1066,8 +1068,8 @@ Begin
inc(opr.ref.offset,opr.val);
end;
Consume(AS_ID);
GotOffset:=false;
end;
GotOffset:=false;
end;
AS_PLUS :
@ -1814,7 +1816,12 @@ begin
end.
{
$Log$
Revision 1.63 2000-03-28 22:11:48 pierre
Revision 1.64 2000-04-29 12:51:34 peter
* fixed offset support intel reader, the gotoffset variable was not
always reset
* moved check for local/para to be only used for varsym
Revision 1.63 2000/03/28 22:11:48 pierre
+ add a warning if esi is base and index in object assembler code
Revision 1.62 2000/03/27 21:18:55 pierre