diff options
Diffstat (limited to '')
-rw-r--r-- | Game/Code/lib/JEDI-SDL/OpenGL-Set8087CW.patch | 54 | ||||
-rw-r--r-- | Game/Code/lib/JEDI-SDL/SDL/Pas/moduleloader.pas | 9 | ||||
-rw-r--r-- | Game/Code/lib/JEDI-SDL/moduleloader-libc.patch | 25 |
3 files changed, 30 insertions, 58 deletions
diff --git a/Game/Code/lib/JEDI-SDL/OpenGL-Set8087CW.patch b/Game/Code/lib/JEDI-SDL/OpenGL-Set8087CW.patch index aeebeee5..e08ca63e 100644 --- a/Game/Code/lib/JEDI-SDL/OpenGL-Set8087CW.patch +++ b/Game/Code/lib/JEDI-SDL/OpenGL-Set8087CW.patch @@ -14,57 +14,3 @@ Index: OpenGL/Pas/gl.pas LoadOpenGL( GLLibName );
-Index: OpenGL/Pas/opengl12.pas
-===================================================================
---- OpenGL/Pas/opengl12.pas (revision 961)
-+++ OpenGL/Pas/opengl12.pas (working copy)
-@@ -7125,16 +7125,15 @@
-
- //----------------------------------------------------------------------------------------------------------------------
-
--{$ifndef VER140}
-+// RaiseLastOSError did not exist in Delphi 5
-+{$ifdef VER130}
-
- procedure RaiseLastOSError;
- begin
-- {$ifndef FPC}
- RaiseLastWin32Error;
-- {$endif}
- end;
-
--{$endif VER140}
-+{$endif}
-
- //----------------------------------------------------------------------------------------------------------------------
-
-@@ -9948,21 +9947,16 @@
- end;
-
- //----------------------------------------------------------------------------------------------------------------------
--{$ifdef FPC}
--const Default8087CW: Word = $1332;
-
--{$ASMMODE INTEL}
--procedure Set8087CW(NewCW: Word); Assembler;
--asm
-- MOV Default8087CW, AX
--end;
--{$endif}
--
--//----------------------------------------------------------------------------------------------------------------------
--
- initialization
-- ContextList := TThreadList.Create;
-- Set8087CW($133F);
-+ ContextList := TThreadList.Create;
-+ {$IF Defined(CPU386) or Defined(CPUI386) or Defined(CPUX86_64)}
-+ // FPC has its own implementation of Set8087CW now. The wrongly
-+ // coded (the important asm-directives were missing so it was not of any use!!!)
-+ // implementation was removed from this unit so it does not hide the correct FPC version anymore.
-+ // This should fix some EDivByZero exceptions in floating-point expressions.
-+ Set8087CW($133F);
-+ {$IFEND}
- finalization
- CloseOpenGL;
- ContextList.Free;
diff --git a/Game/Code/lib/JEDI-SDL/SDL/Pas/moduleloader.pas b/Game/Code/lib/JEDI-SDL/SDL/Pas/moduleloader.pas index 56863ea5..ea4f220c 100644 --- a/Game/Code/lib/JEDI-SDL/SDL/Pas/moduleloader.pas +++ b/Game/Code/lib/JEDI-SDL/SDL/Pas/moduleloader.pas @@ -185,15 +185,16 @@ end; {$IFDEF Unix} uses -{$ifdef Linux} - Types, - Libc; -{$else} +{$ifdef FPC} dl, Types, Baseunix, Unix; +{$else} + Types, + Libc; {$endif} + type // Handle to a loaded .so TModuleHandle = Pointer; diff --git a/Game/Code/lib/JEDI-SDL/moduleloader-libc.patch b/Game/Code/lib/JEDI-SDL/moduleloader-libc.patch new file mode 100644 index 00000000..02255db0 --- /dev/null +++ b/Game/Code/lib/JEDI-SDL/moduleloader-libc.patch @@ -0,0 +1,25 @@ +Index: SDL/Pas/moduleloader.pas
+===================================================================
+--- SDL/Pas/moduleloader.pas (revision 1144)
++++ SDL/Pas/moduleloader.pas (working copy)
+@@ -185,15 +185,16 @@
+ + {$IFDEF Unix} + uses +-{$ifdef Linux} +- Types, +- Libc; +-{$else} ++{$ifdef FPC} + dl, + Types, + Baseunix, + Unix; ++{$else} ++ Types, ++ Libc; + {$endif} ++ + type + // Handle to a loaded .so + TModuleHandle = Pointer; |