123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122 |
- {
- $Id$
- Copyright (c) 1998-2002 by Florian Klaempfl
- This unit provides some help routines for symbol handling
- 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 symutil;
- {$i fpcdefs.inc}
- interface
- uses
- symbase,symtype,symsym;
- function is_funcret_sym(p:tsymentry):boolean;
- { returns true, if sym needs an entry in the proplist of a class rtti }
- function needs_prop_entry(sym : tsym) : boolean;
- function equal_constsym(sym1,sym2:tconstsym):boolean;
- implementation
- uses
- globtype,
- cpuinfo,
- symconst;
- function is_funcret_sym(p:tsymentry):boolean;
- begin
- is_funcret_sym:=(p.typ in [absolutesym,varsym]) and
- (vo_is_funcret in tvarsym(p).varoptions);
- end;
- function needs_prop_entry(sym : tsym) : boolean;
- begin
- needs_prop_entry:=(sp_published in tsym(sym).symoptions) and
- (sym.typ in [propertysym,varsym]);
- end;
- function equal_constsym(sym1,sym2:tconstsym):boolean;
- var
- p1,p2,pend : pchar;
- begin
- equal_constsym:=false;
- if sym1.consttyp<>sym2.consttyp then
- exit;
- case sym1.consttyp of
- constint,
- constbool,
- constchar,
- constord :
- equal_constsym:=(sym1.value.valueord=sym2.value.valueord);
- constpointer :
- equal_constsym:=(sym1.value.valueordptr=sym2.value.valueordptr);
- conststring,constresourcestring :
- begin
- if sym1.value.len=sym2.value.len then
- begin
- p1:=pchar(sym1.value.valueptr);
- p2:=pchar(sym2.value.valueptr);
- pend:=p1+sym1.value.len;
- while (p1<pend) do
- begin
- if p1^<>p2^ then
- break;
- inc(p1);
- inc(p2);
- end;
- if (p1=pend) then
- equal_constsym:=true;
- end;
- end;
- constreal :
- equal_constsym:=(pbestreal(sym1.value.valueptr)^=pbestreal(sym2.value.valueptr)^);
- constset :
- equal_constsym:=(pnormalset(sym1.value.valueptr)^=pnormalset(sym2.value.valueptr)^);
- constnil :
- equal_constsym:=true;
- end;
- end;
- end.
- {
- $Log$
- Revision 1.2 2003-04-25 20:59:35 peter
- * removed funcretn,funcretsym, function result is now in varsym
- and aliases for result and function name are added using absolutesym
- * vs_hidden parameter for funcret passed in parameter
- * vs_hidden fixes
- * writenode changed to printnode and released from extdebug
- * -vp option added to generate a tree.log with the nodetree
- * nicer printnode for statements, callnode
- Revision 1.1 2002/11/25 17:43:26 peter
- * splitted defbase in defutil,symutil,defcmp
- * merged isconvertable and is_equal into compare_defs(_ext)
- * made operator search faster by walking the list only once
- }
|