[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Gm2] Internal error with -fmakeinit
From: |
Martin Kalbfuß |
Subject: |
[Gm2] Internal error with -fmakeinit |
Date: |
Mon, 23 Nov 2009 03:41:19 +0100 |
address@hidden:~/Desktop/sdl4m/examples$ gm2 -fiso -fmakeinit -c
test.mod -I../src -I../def
this file (test.lst) was not successfully opened
gm2: Internal error: Aborted (program gm2lgen)
Please submit a full bug report.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.
I compiled the module succesfully, so this looks like a compiler
problem.
test.mod
######################################################
MODULE test;
IMPORT SKVideo;
IMPORT VideoBase;
IMPORT SKTime;
IMPORT SYSTEM;
IMPORT STextIO;
IMPORT SWholeIO;
VAR screen : VideoBase.SurfacePtr;
testSurface : VideoBase.SurfacePtr;
convertedSurface : VideoBase.SurfacePtr;
colorKey : SYSTEM.CARDINAL32;
BEGIN
SKTime.InitTime();
screen := VideoBase.SetVideoMode(320, 200, 15, TRUE);
testSurface := VideoBase.LoadBMP("test.bmp");
convertedSurface := VideoBase.DisplayFormat(testSurface);
VideoBase.FreeSurface(testSurface);
colorKey := VideoBase.MapRGB(convertedSurface^.format, 255, 0,
255);
VideoBase.SetColorKey(convertedSurface, colorKey, FALSE);
VideoBase.BlitSurface(convertedSurface,
VideoBase.GetClipRect(convertedSurface), screen, VideoBase.Rect{10, 10,
0, 0});
VideoBase.Flip(screen);
SKTime.Delay(4000);
VideoBase.FreeSurface(convertedSurface);
END test.
- [Gm2] Internal error with -fmakeinit,
Martin Kalbfuß <=