paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 16:49:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* SearchType returns also the size

Browse Source
This commit is contained in:
peter 2003-10-23 17:19:11 +00:00
parent 3f2d99d04f
commit 5fc91adca4
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/rautils.pas
View File

@ -184,7 +184,7 @@ Function EscapeToPascal(const s:string): string;
procedure AsmSearchSym(const s:string;var srsym:tsym;var srsymtable:tsymtable); procedure AsmSearchSym(const s:string;var srsym:tsym;var srsymtable:tsymtable);
Function GetRecordOffsetSize(s:string;Var Offset: longint;var Size:longint):boolean; Function GetRecordOffsetSize(s:string;Var Offset: longint;var Size:longint):boolean;
Function SearchType(const hs:string): Boolean; Function SearchType(const hs:string;var size:longint): Boolean;
Function SearchRecordType(const s:string): boolean; Function SearchRecordType(const s:string): boolean;
Function SearchIConstant(const s:string; var l:longint): boolean; Function SearchIConstant(const s:string; var l:longint): boolean;
@ -1135,14 +1135,20 @@ begin
end; end;
Function SearchType(const hs:string): Boolean; Function SearchType(const hs:string;var size:longint): Boolean;
var var
srsym : tsym; srsym : tsym;
srsymtable : tsymtable; srsymtable : tsymtable;
begin begin
result:=false;
size:=0;
asmsearchsym(hs,srsym,srsymtable); asmsearchsym(hs,srsym,srsymtable);
SearchType:=assigned(srsym) and if assigned(srsym) and
(srsym.typ=typesym); (srsym.typ=typesym) then
begin
size:=ttypesym(srsym).restype.def.size;
result:=true;
end;
end; end;
@ -1521,7 +1527,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.70 2003-10-08 19:39:58 peter Revision 1.71 2003-10-23 17:19:11 peter
* SearchType returns also the size
Revision 1.70 2003/10/08 19:39:58 peter
* allow access to parent locals when the currnet localst has no * allow access to parent locals when the currnet localst has no
varsyms varsyms