paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 17:19:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

* warn when doing not(uninitialised_variable)

Browse Source 
git-svn-id: trunk@6000 -
This commit is contained in:
Jonas Maebe 2007-01-16 16:34:44 +00:00
parent baf13df198
commit 7f24462fcb
3 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -5664,6 +5664,7 @@ tests/tbf/tb0191.pp svneol=native#text/plain
tests/tbf/tb0192.pp svneol=native#text/plain
tests/tbf/tb0193.pp svneol=native#text/plain
tests/tbf/tb0194.pp svneol=native#text/plain
tests/tbf/tb0195.pp svneol=native#text/plain
tests/tbf/ub0115.pp svneol=native#text/plain
tests/tbf/ub0149.pp svneol=native#text/plain
tests/tbf/ub0158a.pp svneol=native#text/plain

2
compiler/nmat.pas
View File

@ -859,7 +859,7 @@ implementation
begin
result:=nil;
typecheckpass(left);
set_varstate(left,vs_read,[]);
set_varstate(left,vs_read,[vsf_must_be_valid]);
if codegenerror then
exit;

8
tests/tbf/tb0195.pp Normal file
View File

@ -0,0 +1,8 @@
{ %fail }
{ %opt=-Sew }
var
a: longint;
begin
a := not a;
end.