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

tfileposinfo: separate types for the fields

Browse Source 
Allows other units to declare variables of the appropriate type when storing
those values separately
This commit is contained in:
Jonas Maebe 2022-04-18 13:30:32 +02:00
parent b7b495a679
commit 5075198a8b
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/globtype.pas
View File

@ -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}