Is there a known bug when using declarations such as Integer(32) with types? I ask because I was working on my MM Libs, and I got a (null) record error when GPC compiled my test program. What I'm doing is defining a type, then defining another type using that declaration, then using the 2nd declaration to define a parameter in a procedure. Confused? I attatched the necessary source files to reproduce the error. I don't see any reason why it would do that since what I'm doing is valid. I traced the error down to the Integer(32) declaration in EDDEF.PAS, when I use Integer alone it works fine. What could be causing the error? I'm using GPC v971001 (2.7.2.1) which leads me to another problem I'm having..
I sent an e-mail, but I didn't see it come back to me, so I think it may have been lost. I downloaded PGCC 2.9.0.something and installed the latest GPC (980511?), and the PGCC works properly, but GPC crashes despite my setting the stack up as high as 4MB with Stubedit. I'm running Windows '98 (legit Beta, not pirated), but had the same problem with Windows '95 (dunno about DOS 6.x/Win 3.x, I don't use them for compiling). Is there any reason why it might be crashing?
Thanks in advance!
See ya! Orlando Llanes
"Meine Damen und Herren, Elvis hat soeben das Gebaeude verlassen!"
"Look out fo' flyeeng feet" O__/ a010111t@bc.seflin.org /|____. O <__. /> / \ ____________|_________ http://ourworld.compuserve.com/homepages/Monkey414
UNIT EDDef; { } { Epic Delusions MM Libs: Definitions v0.5 } { Copyright 1998 Orlando Llanes aka WundrDawg } { } { Disclaimer: } { The author will not be held responsible for any } { damages that may occur despite great care taken to } { ensure that the EDMM Libs and Utilities are bug free. } { } { License: } { The Epic Delusions Multimedia Libraries and Utilities } { are released as Copyrighted Freeware. This means that } { you may use the libraries, in whole or in part, for use } { in free or commercial productions so long as the } { copyright notice is intact. However, the EDMM Libs and } { Utilities may NOT be used for pornographic productions. } { } { Contacting: } { WWW -> http://www.geocities.com/SiliconValley/Lab/4677 } { E-Mail -> a010111t@bc.seflin.org } { -- or -- } { ollanes@planetall.com } { } { Bug Reports: } { In the event that a bug shows up, check the FAQ and/or } { the known bugs list. If you do not find a solution in } { either, write a description of the error, and if } { possible, a snippet of the code that caused the error } { and send it using one of the methods listed in the } { "Contacting:" section. } { } { Known Bugs: } { } { History: } { 05/18/98 v0.5 Started Coding } { } { "Common" Interface }
INTERFACE
TYPE { Compiler specific definitions } EDBool = Boolean; EDChar8 = Char;
{$IFDEF __GPC__} EDInt8 = Integer(8); EDUInt8 = Cardinal(8);
EDInt16 = Integer(16); EDUInt16 = Cardinal(16);
EDInt32 = Integer(32); EDUInt32 = Cardinal(32); {$ENDIF}
{$IFDEF VER70} Borland Pascal 7 is not supported at this time {$ENDIF}
{$IFDEF MWERKS} CodeWarrior is not supported at this time {$ENDIF}
TPixel = EDUInt32; TWorldXY = Integer(32);
TClipRect = RECORD MinX, MinY, MaxX, MaxY : TWorldXY; END;
CONST { Currently, BIOS and VBE modes } m320x200x256 = $13; mOSDefault = $03;
IMPLEMENTATION
END.
UNIT EDGraph;
{ }
{ Epic Delusions MM Libs: Graphics "Drivers" v0.5 }
{ Copyright 1998 Orlando Llanes aka WundrDawg }
{ Defines a base object to define a "common" interface }
{ }
{ Disclaimer: }
{ The author will not be held responsible for any }
{ damages that may occur despite great care taken to }
{ ensure that the EDMM Libs and Utilities are bug free. }
{ }
{ License: }
{ The Epic Delusions Multimedia Libraries and Utilities }
{ are released as Copyrighted Freeware. This means that }
{ you may use the libraries, in whole or in part, for use }
{ in free or commercial productions so long as the }
{ copyright notice is intact. However, the EDMM Libs and }
{ Utilities may NOT be used for pornographic productions. }
{ }
{ Contacting: }
{ WWW -> http://www.geocities.com/SiliconValley/Lab/4677 }
{ E-Mail -> a010111t@bc.seflin.org }
{ -- or -- }
{ ollanes@planetall.com }
{ }
{ Bug Reports: }
{ In the event that a bug shows up, check the FAQ and/or }
{ the known bugs list. If you do not find a solution in }
{ either, write a description of the error, and if }
{ possible, a snippet of the code that caused the error }
{ and send it using one of the methods listed in the }
{ "Contacting:" section. }
{ }
{ Known Bugs: }
{ }
{ History: }
{ 05/18/98 v0.5 Started Coding }
{ }
{ GPC/DJGPP Interface }
INTERFACE
USES
EDDef;
TYPE
TGraphBase = OBJECT
FUNCTION SetMode( zMode : EDUInt16 ): EDBool;
PROCEDURE PutImg( zClipRect : TClipRect;
zX, zY : TWorldXY; VAR zImg );
END;
IMPLEMENTATION
FUNCTION TGraphBase.SetMode( zMode : EDUInt16 ) IsValidMode: EDBool;
BEGIN
IsValidMode := FALSE;
END;
PROCEDURE TGraphBase.PutImg( zClipRect : TClipRect;
zX, zY : TWorldXY; VAR zImg );
BEGIN
END;
END.
UNIT EDGr256;
{ }
{ Epic Delusions MM Libs: 256 Color Graphics v0.5 }
{ Copyright 1998 Orlando Llanes aka WundrDawg }
{ Routines for 256 color index video modes }
{ }
{ Disclaimer: }
{ The author will not be held responsible for any }
{ damages that may occur despite great care taken to }
{ ensure that the EDMM Libs and Utilities are bug free. }
{ }
{ License: }
{ The Epic Delusions Multimedia Libraries and Utilities }
{ are released as Copyrighted Freeware. This means that }
{ you may use the libraries, in whole or in part, for use }
{ in free or commercial productions so long as the }
{ copyright notice is intact. However, the EDMM Libs and }
{ Utilities may NOT be used for pornographic productions. }
{ }
{ Contacting: }
{ WWW -> http://www.geocities.com/SiliconValley/Lab/4677 }
{ E-Mail -> a010111t@bc.seflin.org }
{ ollanes@planetall.com }
{ }
{ Bug Reports: }
{ In the event that a bug shows up, check the FAQ and/or }
{ the known bugs list. If you do not find a solution in }
{ either, write a description of the error, and if }
{ possible, a snippet of the code that caused the error }
{ and send it using one of the methods listed in the }
{ "Contacting:" section. }
{ }
{ Known Bugs: }
{ }
{ History: }
{ 05/19/98 v0.5 Started Coding }
{ }
{ GPC/DJGPP Interface }
INTERFACE
USES
EDDef, EDGraph;
TYPE
TGraph256 = OBJECT( TGraphBase )
FUNCTION SetMode( zMode : EDUInt16 ): EDBool;
PROCEDURE PutImg( zClipRect : TClipRect;
zX, zY : TWorldXY; VAR zImg );
END;
IMPLEMENTATION
FUNCTION TGraph256.SetMode( zMode : EDUInt16 ) IsValidMode: EDBool;
BEGIN
IF (zMode = m320x200x256) OR (zMode = mOSDefault) THEN
BEGIN
asm
( "movw %0, %%ax
int $0x10"
: : "g" (zMode)
);
IsValidMode := TRUE;
END;
END;
PROCEDURE TGraph256.PutImg( zClipRect : TClipRect;
zX, zY : TWorldXY; VAR zImg );
VAR
Foo : TWorldXY;
BEGIN
Foo := zClipRect.MinX;
END;
END.