paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 18:50:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed unreachable code warnings.

Browse Source 
git-svn-id: trunk@11445 -
This commit is contained in:
yury 2008-07-23 11:31:07 +00:00
parent 451a290caf
commit 2f5d8b0381
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/globtype.pas
View File

@ -416,6 +416,7 @@ interface
pfileposinfo = ^tfileposinfo;
tfileposinfo = record
{ if types of column or fileindex are changed, modify tcompilerppufile.putposinfo }
line : longint;
column : word;
fileindex : word;

6
compiler/symtype.pas
View File

@ -890,6 +890,8 @@ implementation
{ calculate info byte }
if (p.fileindex>$ff) then
begin
info:=info or $1;
{ uncomment this code if tfileposinfo.fileindex type was changed
if (p.fileindex<=$ffff) then
info:=info or $1
else
@ -897,6 +899,7 @@ implementation
info:=info or $2
else
info:=info or $3;
}
end;
if (p.line>$ff) then
begin
@ -910,6 +913,8 @@ implementation
end;
if (p.column>$ff) then
begin
info:=info or $10;
{ uncomment this code if tfileposinfo.column type was changed
if (p.column<=$ffff) then
info:=info or $10
else
@ -917,6 +922,7 @@ implementation
info:=info or $20
else
info:=info or $30;
}
end;
{ write data }
putbyte(info);