diff -r 9654205a9424 -r 43945842da0c hedgewars/uMisc.pas --- a/hedgewars/uMisc.pas Thu Nov 18 11:50:02 2010 +0300 +++ b/hedgewars/uMisc.pas Thu Nov 18 12:12:51 2010 +0300 @@ -26,16 +26,13 @@ procedure movecursor(dx, dy: LongInt); function doSurfaceConversion(tmpsurf: PSDL_Surface): PSDL_Surface; -procedure OutError(Msg: shortstring; isFatalError: boolean); -procedure TryDo(Assert: boolean; Msg: shortstring; isFatal: boolean); inline; -procedure SDLTry(Assert: boolean; isFatal: boolean); procedure MakeScreenshot(filename: shortstring); procedure initModule; procedure freeModule; implementation -uses uConsole, uIO, typinfo, sysutils, uVariables; +uses typinfo, sysutils, uVariables; procedure movecursor(dx, dy: LongInt); var x, y: LongInt; @@ -49,29 +46,6 @@ end; -procedure OutError(Msg: shortstring; isFatalError: boolean); -begin -// obsolete? written in WriteLnToConsole() anyway -// {$IFDEF DEBUGFILE}AddFileLog(Msg);{$ENDIF} -WriteLnToConsole(Msg); -if isFatalError then - begin - SendIPC('E' + GetLastConsoleLine); - SDL_Quit; - halt(1) - end -end; - -procedure TryDo(Assert: boolean; Msg: shortstring; isFatal: boolean); -begin -if not Assert then OutError(Msg, isFatal) -end; - -procedure SDLTry(Assert: boolean; isFatal: boolean); -begin -if not Assert then OutError(SDL_GetError, isFatal) -end; - procedure MakeScreenshot(filename: shortstring); var p: Pointer; size: Longword;