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

+ some code for PIC support added

Browse Source
This commit is contained in:
florian 2003-10-14 00:57:48 +00:00
parent 57a2fe6ddb
commit a8374188bc
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/i386/i386.inc
View File

@ -21,6 +21,12 @@
Primitives Primitives
****************************************************************************} ****************************************************************************}
function geteipasebx : pointer;assembler;[public,alias:'FPC_GETEIPINEBX'];
asm
movl (%esp),%ebx
ret
end;
{$define FPC_SYSTEM_HAS_MOVE} {$define FPC_SYSTEM_HAS_MOVE}
procedure Move(const source;var dest;count:longint);assembler; procedure Move(const source;var dest;count:longint);assembler;
var var
@ -1313,7 +1319,10 @@ end;
{ {
$Log$ $Log$
Revision 1.47 2003-09-14 11:34:13 peter Revision 1.48 2003-10-14 00:57:48 florian
+ some code for PIC support added
Revision 1.47 2003/09/14 11:34:13 peter
* moved int64 asm code to int64p.inc * moved int64 asm code to int64p.inc
* save ebx,esi * save ebx,esi