+ typedconst.getsize

compiler/symsym.inc

@@ -1255,12 +1255,22 @@
          tsym.done;
       end;
 
-    function ttypedconstsym.mangledname : string;
 
+    function ttypedconstsym.mangledname : string;
       begin
          mangledname:='TC_'+prefix^+'_'+name;
       end;
 
+
+    function ttypedconstsym.getsize : longint;
+      begin
+        if assigned(definition) then
+         getsize:=definition^.size
+        else
+         getsize:=0;
+      end;
+
+
     procedure ttypedconstsym.deref;
 
       begin
@@ -1718,7 +1728,10 @@
 
 {
   $Log$
-  Revision 1.56  1998-10-28 18:26:18  pierre
+  Revision 1.57  1998-11-05 23:39:31  peter
+    + typedconst.getsize
+
+  Revision 1.56  1998/10/28 18:26:18  pierre
    * removed some erros after other errors (introduced by useexcept)
    * stabs works again correctly (for how long !)
 

compiler/symsymh.inc

@@ -260,6 +260,7 @@
           function  mangledname : string;virtual;
           procedure write;virtual;
           procedure deref;virtual;
+          function  getsize:longint;
           procedure insert_in_data;virtual;
           procedure really_insert_in_data;
 {$ifdef GDB}
@@ -318,7 +319,10 @@
 
 {
   $Log$
-  Revision 1.4  1998-10-20 08:07:02  pierre
+  Revision 1.5  1998-11-05 23:39:32  peter
+    + typedconst.getsize
+
+  Revision 1.4  1998/10/20 08:07:02  pierre
     * several memory corruptions due to double freemem solved
       => never use p^.loc.location:=p^.left^.loc.location;
     + finally I added now by default