add $R- to avoid errors

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

View File

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

View File

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

View File

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

View File

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