gm2
[Top][All Lists]
Advanced

[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.






reply via email to

[Prev in Thread] Current Thread [Next in Thread]