|
@@ -31,6 +31,8 @@
|
|
|
NULL
|
|
|
}
|
|
|
|
|
|
+{$L abitag.o}
|
|
|
+
|
|
|
procedure PASCALMAIN; external name 'PASCALMAIN';
|
|
|
|
|
|
{******************************************************************************
|
|
@@ -85,22 +87,5 @@ procedure _FPC_proc_haltproc(e: longint); assembler; public name '_haltproc';
|
|
|
movl code,%edi
|
|
|
syscall
|
|
|
jmp .Lhaltproc
|
|
|
-
|
|
|
- { We need this stuff to make gdb behave itself, otherwise
|
|
|
- gdb will chokes with SIGILL when trying to debug apps.
|
|
|
- }
|
|
|
-(*
|
|
|
- .section ".note.ABI-tag", "a"
|
|
|
- .align 4
|
|
|
- .long 1f - 0f
|
|
|
- .long 3f - 2f
|
|
|
- .long 1
|
|
|
-0: .asciz "GNU"
|
|
|
-1: .align 4
|
|
|
-2: .long 0
|
|
|
- .long 2,4,0
|
|
|
-3: .align 4
|
|
|
-
|
|
|
- .section .note.GNU-stack,"",@progbits *)
|
|
|
end;
|
|
|
|