|
@@ -264,10 +264,6 @@ asm
|
|
popal
|
|
popal
|
|
end;
|
|
end;
|
|
|
|
|
|
-{$ifndef NEWATT}
|
|
|
|
- {$asmmode DIRECT}
|
|
|
|
-{$endif}
|
|
|
|
-
|
|
|
|
{$define FPC_SYSTEM_HAS_FPC_NEW_CLASS}
|
|
{$define FPC_SYSTEM_HAS_FPC_NEW_CLASS}
|
|
|
|
|
|
procedure int_new_class;assembler;[public,alias:'FPC_NEW_CLASS'];
|
|
procedure int_new_class;assembler;[public,alias:'FPC_NEW_CLASS'];
|
|
@@ -332,10 +328,6 @@ asm
|
|
popl %edi
|
|
popl %edi
|
|
end;
|
|
end;
|
|
|
|
|
|
-{$ifndef NEWATT}
|
|
|
|
- {$asmmode att}
|
|
|
|
-{$endif}
|
|
|
|
-
|
|
|
|
|
|
|
|
{ checks for a correct vmt pointer }
|
|
{ checks for a correct vmt pointer }
|
|
|
|
|
|
@@ -378,7 +370,6 @@ end;
|
|
end;
|
|
end;
|
|
{$endif not SYSTEMDEBUG}
|
|
{$endif not SYSTEMDEBUG}
|
|
|
|
|
|
-{$ifdef FPC_TESTOBJEXT}
|
|
|
|
{ checks for a correct vmt pointer }
|
|
{ checks for a correct vmt pointer }
|
|
{ deeper check to see if the current object is }
|
|
{ deeper check to see if the current object is }
|
|
{ really related to the true }
|
|
{ really related to the true }
|
|
@@ -421,7 +412,6 @@ asm
|
|
popl %ebp
|
|
popl %ebp
|
|
ret $8
|
|
ret $8
|
|
end;
|
|
end;
|
|
-{$endif FPC_TESTOBJEXT}
|
|
|
|
|
|
|
|
|
|
|
|
{****************************************************************************
|
|
{****************************************************************************
|
|
@@ -565,10 +555,6 @@ end;
|
|
|
|
|
|
function strpas(p:pchar):string;[public,alias:'FPC_PCHAR_TO_SHORTSTR'];
|
|
function strpas(p:pchar):string;[public,alias:'FPC_PCHAR_TO_SHORTSTR'];
|
|
begin
|
|
begin
|
|
-{$ifndef NEWATT}
|
|
|
|
- { remove warning }
|
|
|
|
- strpas:='';
|
|
|
|
-{$endif}
|
|
|
|
asm
|
|
asm
|
|
cld
|
|
cld
|
|
movl p,%edi
|
|
movl p,%edi
|
|
@@ -584,11 +570,7 @@ begin
|
|
scasb
|
|
scasb
|
|
.LStrPasNil:
|
|
.LStrPasNil:
|
|
movl %ecx,%eax
|
|
movl %ecx,%eax
|
|
-{$ifdef NEWATT}
|
|
|
|
movl __RESULT,%edi
|
|
movl __RESULT,%edi
|
|
-{$else}
|
|
|
|
- movl 8(%ebp),%edi
|
|
|
|
-{$endif}
|
|
|
|
notb %al
|
|
notb %al
|
|
decl %eax
|
|
decl %eax
|
|
stosb
|
|
stosb
|
|
@@ -840,7 +822,10 @@ end;
|
|
|
|
|
|
{
|
|
{
|
|
$Log$
|
|
$Log$
|
|
- Revision 1.48 1999-07-03 09:03:47 florian
|
|
|
|
|
|
+ Revision 1.49 1999-07-06 10:53:52 peter
|
|
|
|
+ * removed temp defines
|
|
|
|
+
|
|
|
|
+ Revision 1.48 1999/07/03 09:03:47 florian
|
|
* int_new_class returned with zero flag=1, if at the entrance eax was zero
|
|
* int_new_class returned with zero flag=1, if at the entrance eax was zero
|
|
and newinstance wasn't called, fixed
|
|
and newinstance wasn't called, fixed
|
|
|
|
|