|
@@ -935,11 +935,6 @@ implementation
|
|
{$endif}
|
|
{$endif}
|
|
end;
|
|
end;
|
|
|
|
|
|
-{$if defined(MORPHOS) or defined(AMIGA)}
|
|
|
|
- {$define AMIGASHELL}
|
|
|
|
-{$endif}
|
|
|
|
-
|
|
|
|
-{$UNDEF AMIGASHELL}
|
|
|
|
function is_number_float(d : double) : boolean;
|
|
function is_number_float(d : double) : boolean;
|
|
var
|
|
var
|
|
bytearray : array[0..7] of byte;
|
|
bytearray : array[0..7] of byte;
|