Ver código fonte

tfileposinfo: separate types for the fields

Allows other units to declare variables of the appropriate type when storing
those values separately
Jonas Maebe 3 anos atrás
pai
commit
5075198a8b
1 arquivos alterados com 8 adições e 4 exclusões
  1. 8 4
      compiler/globtype.pas

+ 8 - 4
compiler/globtype.pas

@@ -837,13 +837,17 @@ interface
       plongint   = ^longint;
       plongintarray = plongint;
 
+      tfileposline = longint;
+      tfileposcolumn = word;
+      tfileposfileindex = word;
+      tfileposmoduleindex = word;
       pfileposinfo = ^tfileposinfo;
       tfileposinfo = record
         { if types of column or fileindex are changed, modify tcompilerppufile.putposinfo }
-        line      : longint;
-        column    : word;
-        fileindex : word;
-        moduleindex : word;
+        line      : tfileposline;
+        column    : tfileposcolumn;
+        fileindex : tfileposfileindex;
+        moduleindex : tfileposmoduleindex;
       end;
 
   {$ifndef xFPC}