paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 13:10:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* range check error fix

Browse Source
This commit is contained in:
carl 2002-02-22 21:40:45 +00:00
parent 31e2cbaea7
commit ce5b7530fa
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
demo/graph/mandel.pp
View File

@ -271,7 +271,7 @@ const
gmdefault = m640x480; gmdefault = m640x480;
begin begin
gm:=$ffff; gm:=-1;
if paramcount>0 then if paramcount>0 then
begin begin
val(paramstr(1),gm,error); val(paramstr(1),gm,error);
@ -348,7 +348,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.2 2001-11-11 21:09:49 marco Revision 1.3 2002-02-22 21:40:45 carl
* range check error fix
Revision 1.2 2001/11/11 21:09:49 marco
* Gameunit, Fpctris and samegame fixed for win32 GUI * Gameunit, Fpctris and samegame fixed for win32 GUI
Revision 1.1 2001/05/03 21:39:33 peter Revision 1.1 2001/05/03 21:39:33 peter

7
demo/graph/samegame.pp
View File

@ -562,7 +562,7 @@ BEGIN
Writeln('No mouse found. A mouse is required!'); Writeln('No mouse found. A mouse is required!');
HALT; HALT;
END; END;
FOR I:=1 TO 10 DO FOR I:=0 TO 9 DO
HighScore[I].Score:=I*1500; HighScore[I].Score:=I*1500;
LoadHighScore(FileName); LoadHighScore(FileName);
InitMouse; InitMouse;
@ -594,7 +594,10 @@ BEGIN
END. END.
{ {
$Log$ $Log$
Revision 1.2 2001-11-11 21:09:50 marco Revision 1.3 2002-02-22 21:41:22 carl
* range check error fix
Revision 1.2 2001/11/11 21:09:50 marco
* Gameunit, Fpctris and samegame fixed for win32 GUI * Gameunit, Fpctris and samegame fixed for win32 GUI
Revision 1.1 2001/05/03 21:39:33 peter Revision 1.1 2001/05/03 21:39:33 peter