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

* absolutesym support

Browse Source
This commit is contained in:
peter 2003-06-06 14:43:29 +00:00
parent 2df40538b9
commit 4de6550853
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/rautils.pas
View File

@ -781,6 +781,13 @@ Begin
asmsearchsym(s,sym,srsymtable);
if sym = nil then
exit;
if sym.typ=absolutesym then
begin
if (tabsolutesym(sym).abstyp=tovar) then
sym:=tabsolutesym(sym).ref
else
Message(asmr_e_unsupported_symbol_type);
end;
case sym.typ of
varsym :
begin
@ -1553,7 +1560,10 @@ end;
end.
{
$Log$
Revision 1.62 2003-05-30 23:57:08 peter
Revision 1.63 2003-06-06 14:43:29 peter
* absolutesym support
Revision 1.62 2003/05/30 23:57:08 peter
* more sparc cleanup
* accumulator removed, splitted in function_return_reg (called) and
function_result_reg (caller)