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

* several i8086 fixes for 'data element too large' errors

Browse Source 
git-svn-id: trunk@25532 -
This commit is contained in:
nickysn 2013-09-21 20:36:18 +00:00
parent a04cbc09b0
commit 4d86d44e38
2 changed files with 23 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/graph/src/inc/graph.inc
View File

@ -47,7 +47,7 @@ const
StdBufferSize = 4096; { Buffer size for FloodFill } StdBufferSize = 4096; { Buffer size for FloodFill }
type type
tinttable = array[0..16383] of smallint; tinttable = array[0..16382] of smallint;
pinttable = ^tinttable; pinttable = ^tinttable;
WordArray = Array [0..StdbufferSize] Of word; WordArray = Array [0..StdbufferSize] Of word;
@ -1110,7 +1110,7 @@ end;
Procedure DefaultPutImage(X,Y: smallint; var Bitmap; BitBlt: Word); {$ifndef fpc}far;{$endif fpc} Procedure DefaultPutImage(X,Y: smallint; var Bitmap; BitBlt: Word); {$ifndef fpc}far;{$endif fpc}
type type
pt = array[0..$fffffff] of word; pt = array[0..{$ifdef cpu16}16382{$else}$fffffff{$endif}] of word;
ptw = array[0..2] of longint; ptw = array[0..2] of longint;
var var
k: longint; k: longint;
@ -1176,7 +1176,7 @@ end;
Procedure DefaultGetImage(X1,Y1,X2,Y2: smallint; Var Bitmap); {$ifndef fpc}far;{$endif fpc} Procedure DefaultGetImage(X1,Y1,X2,Y2: smallint; Var Bitmap); {$ifndef fpc}far;{$endif fpc}
type type
pt = array[0..$fffffff] of word; pt = array[0..{$ifdef cpu16}16382{$else}$fffffff{$endif}] of word;
ptw = array[0..2] of longint; ptw = array[0..2] of longint;
var var
i,j: smallint; i,j: smallint;
@ -1906,7 +1906,7 @@ end;
procedure DrawPoly(numpoints : word;var polypoints); procedure DrawPoly(numpoints : word;var polypoints);
type type
ppointtype = ^pointtype; ppointtype = ^pointtype;
pt = array[0..16000] of pointtype; pt = array[0..8190] of pointtype;
var var
i, j, LastPolygonStart: longint; i, j, LastPolygonStart: longint;
Closing: boolean; Closing: boolean;

38
packages/graph/src/inc/graphh.inc
View File

@ -191,7 +191,7 @@ type
{$endif} {$endif}
TResolutionRec = record TResolutionRec = record
x,y: longint; x,y: {$ifdef cpu16}smallint{$else}longint{$endif};
end; end;
const const
@ -388,25 +388,25 @@ type
{ consecutive mode number for that, so they are generated on-the-fly } { consecutive mode number for that, so they are generated on-the-fly }
{ starting from 1) } { starting from 1) }
detectMode = 30000; detectMode = {$ifdef cpu16}3000{$else}30000{$endif};
m320x200 = 30001; m320x200 = detectMode + 1;
m320x256 = 30002; { amiga resolution (PAL) } m320x256 = detectMode + 2; { amiga resolution (PAL) }
m320x400 = 30003; { amiga/atari resolution } m320x400 = detectMode + 3; { amiga/atari resolution }
m512x384 = 30004; { mac resolution } m512x384 = detectMode + 4; { mac resolution }
m640x200 = 30005; { vga resolution } m640x200 = detectMode + 5; { vga resolution }
m640x256 = 30006; { amiga resolution (PAL) } m640x256 = detectMode + 6; { amiga resolution (PAL) }
m640x350 = 30007; { vga resolution } m640x350 = detectMode + 7; { vga resolution }
m640x400 = 30008; m640x400 = detectMode + 8;
m640x480 = 30009; m640x480 = detectMode + 9;
m800x600 = 30010; m800x600 = detectMode + 10;
m832x624 = 30011; { mac resolution } m832x624 = detectMode + 11; { mac resolution }
m1024x768 = 30012; m1024x768 = detectMode + 12;
m1280x1024 = 30013; m1280x1024 = detectMode + 13;
m1600x1200 = 30014; m1600x1200 = detectMode + 14;
m2048x1536 = 30015; m2048x1536 = detectMode + 15;
lowNewMode = 30001; lowNewMode = m320x200;
highNewMode = 30015; highNewMode = m2048x1536;
resolutions: array[lowNewMode..highNewMode] of TResolutionRec = resolutions: array[lowNewMode..highNewMode] of TResolutionRec =
((x:320;y:200), ((x:320;y:200),