mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-15 12:29:32 +02:00
add $R- to avoid errors
This commit is contained in:
parent
97c84ffed8
commit
47617fd323
@ -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.
|
@ -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.
|
@ -2,6 +2,7 @@ program test_set;
|
||||
|
||||
uses erroru;
|
||||
|
||||
{$R-}
|
||||
|
||||
procedure test;
|
||||
|
||||
@ -58,4 +59,4 @@ procedure test;
|
||||
|
||||
begin
|
||||
test;
|
||||
end.
|
||||
end.
|
@ -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.
|
Loading…
Reference in New Issue
Block a user