From 5fc91adca4a99890ca339d11e8926d2a153c6ead Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Thu, 23 Oct 2003 17:19:11 +0000
Subject: [PATCH]   * SearchType returns also the size

---
 compiler/rautils.pas | 19 ++++++++++++++-----
 1 file changed, 14 insertions(+), 5 deletions(-)

diff --git a/compiler/rautils.pas b/compiler/rautils.pas
index 7745c6315c..a9f39fcc2c 100644
--- a/compiler/rautils.pas
+++ b/compiler/rautils.pas
@@ -184,7 +184,7 @@ Function EscapeToPascal(const s:string): string;
 
 procedure AsmSearchSym(const s:string;var srsym:tsym;var srsymtable:tsymtable);
 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 SearchIConstant(const s:string; var l:longint): boolean;
 
@@ -1135,14 +1135,20 @@ begin
 end;
 
 
-Function SearchType(const hs:string): Boolean;
+Function SearchType(const hs:string;var size:longint): Boolean;
 var
   srsym : tsym;
   srsymtable : tsymtable;
 begin
+  result:=false;
+  size:=0;
   asmsearchsym(hs,srsym,srsymtable);
-  SearchType:=assigned(srsym) and
-             (srsym.typ=typesym);
+  if assigned(srsym) and
+     (srsym.typ=typesym) then
+    begin
+      size:=ttypesym(srsym).restype.def.size;
+      result:=true;
+    end;
 end;
 
 
@@ -1521,7 +1527,10 @@ end;
 end.
 {
   $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
       varsyms