paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 22:09:32 +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); asmsearchsym(s,sym,srsymtable);
if sym = nil then if sym = nil then
exit; 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 case sym.typ of
varsym : varsym :
begin begin
@ -1553,7 +1560,10 @@ end;
end. end.
{ {
$Log$ $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 * more sparc cleanup
* accumulator removed, splitted in function_return_reg (called) and * accumulator removed, splitted in function_return_reg (called) and
function_result_reg (caller) function_result_reg (caller)