paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 07:28:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

Avoid warnings by adding noreturn modifiers to dummy dynamic library manager

Browse Source 
git-svn-id: trunk@29711 -
This commit is contained in:
pierre 2015-02-15 18:03:11 +00:00
parent af883cdcb7
commit 42cc1d504f
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/inc/dynlib.inc
View File

@ -170,32 +170,32 @@ begin
RunError(235)
end;
Function NoLoadLibraryU(const Name: UnicodeString): TLibHandle;
Function NoLoadLibraryU(const Name: UnicodeString): TLibHandle; {$ifndef ver2_6}noreturn;{$endif}
begin
NoDynLibsError;
end;
Function NoLoadLibraryA(const Name: RawByteString): TLibHandle;
Function NoLoadLibraryA(const Name: RawByteString): TLibHandle; {$ifndef ver2_6}noreturn;{$endif}
begin
NoDynLibsError;
end;
function NoGetProcAddress(Lib: TLibHandle; const Proc: AnsiString): Pointer;
function NoGetProcAddress(Lib: TLibHandle; const Proc: AnsiString): Pointer; {$ifndef ver2_6}noreturn;{$endif}
begin
NoDynLibsError;
end;
function NoGetProcAddressOrdinal(Lib: TLibHandle; Ordinal: TOrdinalEntry): Pointer;
function NoGetProcAddressOrdinal(Lib: TLibHandle; Ordinal: TOrdinalEntry): Pointer; {$ifndef ver2_6}noreturn;{$endif}
begin
NoDynLibsError;
end;
function NoGetLoadErrorStr: String;
function NoGetLoadErrorStr: String; {$ifndef ver2_6}noreturn;{$endif}
begin
NoDynLibsError;
end;
function NoUnloadLibrary(Lib: TLibHandle): Boolean;
function NoUnloadLibrary(Lib: TLibHandle): Boolean; {$ifndef ver2_6}noreturn;{$endif}
begin
NoDynLibsError;
end;