+ target_info.size_of_pointer -> pointer_size

+ some cleanup of unused types/variables

compiler/symsym.pas

@@ -1424,12 +1424,12 @@ implementation
               case varspez of
                 vs_out,
                 vs_var :
-                  getpushsize:=target_info.size_of_pointer;
+                  getpushsize:=pointer_size;
                 vs_value,
                 vs_const :
                   begin
                       if push_addr_param(vartype.def) then
-                        getpushsize:=target_info.size_of_pointer
+                        getpushsize:=pointer_size
                       else
                         getpushsize:=vartype.def.size;
                   end;
@@ -1471,7 +1471,7 @@ implementation
              storefilepos:=aktfilepos;
              aktfilepos:=akttokenpos;
              if (vo_is_thread_var in varoptions) then
-               l:=target_info.size_of_pointer
+               l:=pointer_size
              else
                l:=getvaluesize;
              case owner.symtabletype of
@@ -2514,7 +2514,11 @@ implementation
 end.
 {
   $Log$
-  Revision 1.32  2002-04-07 13:37:29  carl
+  Revision 1.33  2002-04-15 19:08:22  carl
+  + target_info.size_of_pointer -> pointer_size
+  + some cleanup of unused types/variables
+
+  Revision 1.32  2002/04/07 13:37:29  carl
   + change unit use
 
   Revision 1.31  2002/02/03 09:30:04  peter

compiler/systems.pas

@@ -240,7 +240,6 @@ interface
           script       : tscripttype;
           endian       : tendian;
           alignment    : talignmentinfo;
-          size_of_pointer : byte;
           size_of_longint : byte;
           heapsize,
           maxheapsize,
@@ -680,7 +679,11 @@ finalization
 end.
 {
   $Log$
-  Revision 1.38  2002-04-14 16:56:30  carl
+  Revision 1.39  2002-04-15 19:08:22  carl
+  + target_info.size_of_pointer -> pointer_size
+  + some cleanup of unused types/variables
+
+  Revision 1.38  2002/04/14 16:56:30  carl
   - remove duplicate comment
 
   Revision 1.37  2002/04/07 10:20:15  carl

compiler/tgobj.pas

@@ -420,13 +420,13 @@ unit tgobj;
           end
          else
           begin
-            ref.offset:=newtempofsize(target_info.size_of_pointer);
+            ref.offset:=newtempofsize(pointer_size);
 {$ifdef EXTDEBUG}
             templist^.posinfo:=aktfilepos;
 {$endif}
             templist^.temptype:=usedtype;
           end;
-         list.concat(Taitempalloc.alloc(ref.offset,target_info.size_of_pointer));
+         list.concat(Taitempalloc.alloc(ref.offset,pointer_size));
       end;
 
     function ttgobj.ungettemppointeriftype(list: taasmoutput; const ref : treference; const usedtype, freetype: ttemptype) : boolean;
@@ -677,7 +677,11 @@ finalization
 end.
 {
   $Log$
-  Revision 1.5  2002-04-07 13:38:48  carl
+  Revision 1.6  2002-04-15 19:08:22  carl
+  + target_info.size_of_pointer -> pointer_size
+  + some cleanup of unused types/variables
+
+  Revision 1.5  2002/04/07 13:38:48  carl
   + update documentation
 
   Revision 1.4  2002/04/07 09:17:17  carl

compiler/types.pas

@@ -271,7 +271,7 @@ interface
 implementation
 
     uses
-       globtype,systems,tokens,verbose,
+       globtype,cpubase,tokens,verbose,
        symtable;
 
 
@@ -879,9 +879,9 @@ implementation
              formaldef :
                push_addr_param:=true;
              recorddef :
-               push_addr_param:=(def.size>target_info.size_of_pointer);
+               push_addr_param:=(def.size>pointer_size);
              arraydef :
-               push_addr_param:=((tarraydef(def).highrange>=tarraydef(def).lowrange) and (def.size>target_info.size_of_pointer)) or
+               push_addr_param:=((tarraydef(def).highrange>=tarraydef(def).lowrange) and (def.size>pointer_size)) or
                                 is_open_array(def) or
                                 is_array_of_const(def) or
                                 is_array_constructor(def);
@@ -1970,7 +1970,11 @@ implementation
 end.
 {
   $Log$
-  Revision 1.67  2002-04-07 13:40:29  carl
+  Revision 1.68  2002-04-15 19:08:22  carl
+  + target_info.size_of_pointer -> pointer_size
+  + some cleanup of unused types/variables
+
+  Revision 1.67  2002/04/07 13:40:29  carl
   + update documentation
 
   Revision 1.66  2002/04/02 17:11:32  peter