paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 10:19:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* resource functions for win64, fixes #8304

Browse Source 
git-svn-id: trunk@6540 -
This commit is contained in:
florian 2007-02-18 10:07:12 +00:00
parent 97446556ff
commit c6f8f550f9
5 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.gitattributes vendored
View File

@ -5359,6 +5359,7 @@ rtl/win/wininc/struct.inc svneol=native#text/plain
rtl/win/wininc/unidef.inc svneol=native#text/plain
rtl/win/wininc/unidef.sed -text
rtl/win/wininc/unifun.inc svneol=native#text/plain
rtl/win/winres.inc svneol=native#text/plain
rtl/win/winsock.pp svneol=native#text/plain
rtl/win/winsock2.pp svneol=native#text/plain
rtl/win32/Makefile svneol=native#text/plain
@ -5375,7 +5376,6 @@ rtl/win32/sysinitpas.pp svneol=native#text/plain
rtl/win32/system.pp svneol=native#text/plain
rtl/win32/wcygprt0.as -text
rtl/win32/wdllprt0.as -text
rtl/win32/win32res.inc svneol=native#text/plain
rtl/win32/windows.pp svneol=native#text/plain
rtl/win32/winsysut.pp svneol=native#text/plain
rtl/win32/wprt0.as -text
@ -8042,6 +8042,7 @@ tests/webtbs/tw8232.pp svneol=native#text/plain
tests/webtbs/tw8258.pp svneol=native#text/plain
tests/webtbs/tw8258a.pp svneol=native#text/plain
tests/webtbs/tw8264.pp svneol=native#text/plain
tests/webtbs/tw8304.pp svneol=native#text/plain
tests/webtbs/tw8312.pp svneol=native#text/plain
tests/webtbs/ub1873.pp svneol=native#text/plain
tests/webtbs/ub1883.pp svneol=native#text/plain

0
rtl/win32/win32res.inc → rtl/win/winres.inc
View File

4
rtl/win32/system.pp
View File

@ -110,9 +110,9 @@ implementation
var
SysInstance : Longint;public name '_FPC_SysInstance';
{$ifdef i386}
{$ifdef CPUI386}
{$define HAS_RESOURCES}
{$i win32res.inc}
{$i winres.inc}
{$endif}
{ used by wstrings.inc because wstrings.inc is included before sysos.inc

4
rtl/win64/system.pp
View File

@ -106,10 +106,8 @@ implementation
var
SysInstance : Longint;public;
{$ifdef i386}
{$define HAS_RESOURCES}
{$i win32res.inc}
{$endif}
{$i winres.inc}
{ used by wstrings.inc because wstrings.inc is included before sysos.inc
this is put here (FK) }

8
tests/webtbs/tw8304.pp Normal file
View File

@ -0,0 +1,8 @@
{ %target=win32,win64 }
program Win64HINSTANCE;
{$C+}
begin
Assert(HINSTANCE <> 0, 'HINSTANCE is zero.');
end.