paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 14:29: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; pfileposinfo = ^tfileposinfo;
tfileposinfo = record tfileposinfo = record
{ if types of column or fileindex are changed, modify tcompilerppufile.putposinfo }
line : longint; line : longint;
column : word; column : word;
fileindex : word; fileindex : word;

6
compiler/symtype.pas
View File

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