/compiler/aasmsym.pas
https://github.com/slibre/freepascal · Pascal · 71 lines · 31 code · 11 blank · 29 comment · 0 complexity · 5bd3c089bb0de974e8904353a128aad8 MD5 · raw file
- {
- Copyright (c) 1998-2007 by Florian Klaempfl and Peter Vreman
- Contains abstract assembler instructions for all processor
- types, including routines which depend on the symbol table.
- These cannot be in aasmtai, because the symbol table units
- depend on that one.
- * Portions of this code was inspired by the NASM sources
- The Netwide Assembler is Copyright (c) 1996 Simon Tatham and
- Julian Hall. All rights reserved.
- This program is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 2 of the License, or
- (at your option) any later version.
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License for more details.
- You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software
- Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
- ****************************************************************************
- }
- unit aasmsym;
- {$i fpcdefs.inc}
- interface
- uses
- aasmtai;
- type
- tai_cpu_abstract_sym = class(tai_cpu_abstract)
- protected
- procedure ppubuildderefimploper(var o:toper);override;
- procedure ppuderefoper(var o:toper);override;
- end;
- implementation
- uses
- symsym;
- procedure tai_cpu_abstract_sym.ppubuildderefimploper(var o:toper);
- begin
- case o.typ of
- top_local :
- o.localoper^.localsymderef.build(tlocalvarsym(o.localoper^.localsym));
- end;
- end;
- procedure tai_cpu_abstract_sym.ppuderefoper(var o:toper);
- begin
- case o.typ of
- top_ref :
- begin
- end;
- top_local :
- o.localoper^.localsym:=tlocalvarsym(o.localoper^.localsymderef.resolve);
- end;
- end;
- end.