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

* fix m68k build failure

Browse Source
This commit is contained in:
pierre 2003-07-03 10:20:15 +00:00
parent b7d99ec934
commit 821c5f0f27
2 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
fcl/image/fpimage.pp
View File

@ -32,7 +32,15 @@ type
Data : TColorData;
end;
{$ifdef CPU68K}
{ 1.0 m68k cpu compiler does not allow
types larger than 32k....
if we remove range checking all should be fine PM }
TFPColorArray = array [0..0] of TFPColor;
{$R-}
{$else not CPU68K}
TFPColorArray = array [0..maxint] of TFPColor;
{$endif CPU68K}
PFPColorArray = ^TFPColorArray;
TFPImgProgressStage = (psStarting, psRunning, psEnding);
@ -122,7 +130,15 @@ type
end;
TFPCustomImageClass = class of TFPCustomImage;
{$ifdef CPU68K}
{ 1.0 m68k cpu compiler does not allow
types larger than 32k....
if we remove range checking all should be fine PM }
TFPIntegerArray = array [0..0] of integer;
{$R-}
{$else not CPU68K}
TFPIntegerArray = array [0..maxint] of integer;
{$endif CPU68K}
PFPIntegerArray = ^TFPIntegerArray;
TFPMemoryImage = class (TFPCustomImage)

8
fcl/image/fpimgcmn.pp
View File

@ -4,7 +4,15 @@ unit FPImgCmn;
interface
type
{$ifdef CPU68K}
{ 1.0 m68k cpu compiler does not allow
types larger than 32k....
if we remove range checking all should be fine PM }
TByteArray = array[0..0] of byte;
{$R-}
{$else not CPU68K}
TByteArray = array[0..maxint] of byte;
{$endif CPU68K}
PByteArray = ^TByteArray;
function Swap(This : Longword): longword;