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

add $R- to avoid errors

Browse Source
This commit is contained in:
pierre 2000-03-21 16:04:30 +00:00
parent 97c84ffed8
commit 47617fd323
4 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/tbs/tbs0084.pp
View File

@ -1,5 +1,7 @@
{$R-}
{ Basic Pascal principles gone done the drain... !!!! } { Basic Pascal principles gone done the drain... !!!! }
var var
v: word; v: word;
w: shortint; w: shortint;
@ -10,4 +12,4 @@ Begin
z:=32767; z:=32767;
w:=64000; w:=64000;
v:=-1; v:=-1;
end. end.

3
tests/tbs/tbs0106.pp
View File

@ -1,3 +1,4 @@
{$R-}
{ I think this now occurs with most type casting... } { I think this now occurs with most type casting... }
{ I think type casting is no longer considered?? } { I think type casting is no longer considered?? }
@ -8,4 +9,4 @@ Var
Begin Begin
Sel:=word($7fffffff); Sel:=word($7fffffff);
Sel2:=byte($7fff); Sel2:=byte($7fff);
end. end.

3
tests/tbs/tbs0258.pp
View File

@ -2,6 +2,7 @@ program test_set;
uses erroru; uses erroru;
{$R-}
procedure test; procedure test;
@ -58,4 +59,4 @@ procedure test;
begin begin
test; test;
end. end.

5
tests/tbs/tbs0290.pp
View File

@ -1,3 +1,6 @@
{ $R+ would give compile time errors }
{$R-}
Program bug0290; Program bug0290;
var i,j : integer; var i,j : integer;
@ -19,4 +22,4 @@ begin
Writeln('i and j are different !!!'); Writeln('i and j are different !!!');
Halt(1); Halt(1);
end; end;
end. end.