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

* small compilation fixes for win64 system unit

Browse Source 
git-svn-id: trunk@373 -
This commit is contained in:
florian 2005-06-10 17:04:02 +00:00
parent 92c36fefc7
commit 6a279f8569
2 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/win64/system.pp
View File

@ -36,7 +36,7 @@ const
{ FileNameCaseSensitive is defined separately below!!! }
maxExitCode = 65535;
MaxPathLen = 260;
type
PEXCEPTION_FRAME = ^TEXCEPTION_FRAME;
TEXCEPTION_FRAME = record
@ -382,6 +382,7 @@ procedure Exe_entry;[public, alias : '_FPC_EXE_Entry'];
{ This strange construction is needed to solve the _SS problem
with a smartlinked syswin32 (PFV) }
asm
{!!!!!!!
{ allocate space for an exception frame }
pushl $0
pushl %fs:(0)
@ -401,6 +402,7 @@ procedure Exe_entry;[public, alias : '_FPC_EXE_Entry'];
xorl %ebp,%ebp
call PASCALMAIN
popl %ebp
}
end;
{ if we pass here there was no error ! }
system_exit;

12
rtl/x86_64/math.inc
View File

@ -23,16 +23,12 @@ procedure dummyproc;assembler;
.balign 16
.globl FPC_ABSMASK_SINGLE
FPC_ABSMASK_SINGLE:
.long 0x7FFFFFFF
.long 0x7FFFFFFF
.long 0x7FFFFFFF
.long 0x7FFFFFFF
.quad 0x7FFFFFFF7FFFFFFF
.quad 0x7FFFFFFF7FFFFFFF
.globl FPC_ABSMASK_DOUBLE
FPC_ABSMASK_DOUBLE:
.long 0xFFFFFFFF
.long 0x7FFFFFFF
.long 0xFFFFFFFF
.long 0x7FFFFFFF
.quad 0x7FFFFFFFFFFFFFFF
.quad 0x7FFFFFFFFFFFFFFF
.text
end;