fixed bug with procedures without parameters (they must have brackets…

… in the declaration)
ev1313 · Sep 29, 2013 · 5a139d1 · 5a139d1
1 parent a0befac
commit 5a139d1
Show file tree

Hide file tree

Showing 6 changed files with 16 additions and 7 deletions.
diff --git a/.gitignore b/.gitignore
@@ -28,4 +28,5 @@ Win64/*
 *.a
 compile/*
 *.~inc
-backup/*
+backup/*
+*.res
diff --git a/SDL2_image.pas b/SDL2_image.pas
@@ -27,8 +27,10 @@
   ChangeLog (Header-Translation):
   -------------------------------
 
-  v.1.33-Alpha; 31.07.2013: Initial Commit
+  v.1.71-stable; 29.09.2013: fixed bug with procedure without parameters 
+                             (they must have brackets)
   v.1.70-stable; 11.09.2013: MacOS compatibility (with Delphi)
+  v.1.33-Alpha; 31.07.2013: Initial Commit
 
 *}
 
@@ -98,7 +100,7 @@ function IMG_Linked_Version: TSDL_Version cdecl; external IMG_LibName {$IFDEF DE
 function IMG_Init(flags: SInt32): SInt32 cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_Init' {$ENDIF} {$ENDIF};
 
   {* Unloads libraries loaded with IMG_Init *}
-procedure IMG_Quit cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_Quit' {$ENDIF} {$ENDIF};
+procedure IMG_Quit() cdecl; external IMG_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_IMG_Quit' {$ENDIF} {$ENDIF};
 
   {* Load an image from an SDL data source.
      The 'type' may be one of: "BMP", "GIF", "PNG", etc.

diff --git a/SDL2_mixer.pas b/SDL2_mixer.pas
@@ -24,6 +24,8 @@
 {* ChangeLog: (Header Translation)
    ----------
 
+   v.1.71-stable; 29.09.2013: fixed bug with procedures without parameters
+                              (they must have brackets)  
    v.1.70-stable; 16.09.2013: Initial Commit
 
 *}
@@ -101,7 +103,7 @@ function Mix_Linked_Version: PSDL_Version cdecl; external MIX_LibName {$IFDEF DE
 function Mix_Init(flags: Integer): Integer cdecl; external MIX_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_MIX_Init' {$ENDIF} {$ENDIF};
 
   {* Unloads libraries loaded with Mix_Init *}
-procedure Mix_Quit cdecl; external MIX_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_MIX_Quit' {$ENDIF} {$ENDIF};
+procedure Mix_Quit() cdecl; external MIX_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_MIX_Quit' {$ENDIF} {$ENDIF};
 
 
   {* The default mixer has 8 simultaneous mixing channels *}

diff --git a/SDL2_ttf.pas b/SDL2_ttf.pas
@@ -29,6 +29,8 @@
 {* ChangeLog: (Header Translation)
    ----------
 
+   v.1.71-stable; 29.09.2013: fixed bug with procedures without parameters
+                              (they must have brackets)
    v.1.70-stable; 11.09.2013: Initial Commit
 
 *}
@@ -102,7 +104,7 @@ procedure TTF_ByteSwappedUNICODE(swapped: Integer) cdecl; external TTF_LibName {
   TTTF_Font = record  end; //todo?
 
 {* Initialize the TTF engine - returns 0 if successful, -1 on error *}
-function TTF_Init: Integer cdecl; external TTF_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_TTF_Init' {$ENDIF} {$ENDIF};
+function TTF_Init(): Integer cdecl; external TTF_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_TTF_Init' {$ENDIF} {$ENDIF};
 
 {* Open a font file and create a font of the specified point size.
  * Some .fon fonts will have several sizes embedded in the file, so the
@@ -252,7 +254,7 @@ function TTF_RenderUNICODE(font: PTTF_Font; text: PUInt16; fg, bg: TSDL_Color):
 procedure TTF_CloseFont(font: PTTF_Font) cdecl; external TTF_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_TTF_CloseFont' {$ENDIF} {$ENDIF};
 
 {* De-initialize the TTF engine *}
-procedure TTF_Quit cdecl; external TTF_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_TTF_Quit' {$ENDIF} {$ENDIF};
+procedure TTF_Quit() cdecl; external TTF_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_TTF_Quit' {$ENDIF} {$ENDIF};
 
 {* Check if the TTF engine is initialized *}
 function TTF_WasInit: Boolean cdecl; external TTF_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_TTF_WasInit' {$ENDIF} {$ENDIF};

diff --git a/sdl.inc b/sdl.inc
@@ -58,5 +58,5 @@ function SDL_WasInit(flags: UInt32): UInt32 cdecl; external SDL_LibName {$IFDEF
  *  call it upon all exit conditions.
  *}
 
-procedure SDL_Quit cdecl; external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_Quit' {$ENDIF} {$ENDIF};
+procedure SDL_Quit() cdecl; external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_Quit' {$ENDIF} {$ENDIF};
 
diff --git a/sdl2.pas b/sdl2.pas
@@ -80,6 +80,8 @@
 {
   Changelog:
   ----------
+  v.1.71-stable; 23.09.2013: fixed bug with procedures without parameters
+                             (they must have brakets)
   v.1.70-stable; 17.09.2013: added "sdl_messagebox.h" and "sdl_haptic.h"
   v.1.63-stable; 16.09.2013: added libs sdl2_image and sdl2_ttf and added sdl_audio.h
   v.1.62-stable; 03.09.2013: fixed.