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

* turn off IO checking when attempting to open a font file (to avoid RTE)

Browse Source
This commit is contained in:
Jonas Maebe 1999-12-23 16:48:13 +00:00
parent e6aef5dcce
commit c483ef813d
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/graph/gtext.inc
View File

@ -664,7 +664,9 @@
if (font>DefaultFont) and not assigned(fonts[font].instr) then if (font>DefaultFont) and not assigned(fonts[font].instr) then
begin begin
assign(f,bgipath+fonts[font].name+'.CHR'); assign(f,bgipath+fonts[font].name+'.CHR');
{$i-}
reset(f,1); reset(f,1);
{$i+}
if ioresult<>0 then if ioresult<>0 then
begin begin
_graphresult:=grFontNotFound; _graphresult:=grFontNotFound;
@ -731,7 +733,10 @@
{ {
$Log$ $Log$
Revision 1.9 1999-12-20 11:22:36 peter Revision 1.10 1999-12-23 16:48:13 jonas
* turn off IO checking when attempting to open a font file (to avoid RTE)
Revision 1.9 1999/12/20 11:22:36 peter
* integer -> smallint to overcome -S2 switch needed for ggi version * integer -> smallint to overcome -S2 switch needed for ggi version
Revision 1.8 1999/11/11 22:29:21 florian Revision 1.8 1999/11/11 22:29:21 florian