* linux updates

This commit is contained in:
peter 1999-01-25 20:23:04 +00:00
parent ad379bc2dd
commit 91070d3da1
11 changed files with 100 additions and 50 deletions

View File

@ -20,9 +20,9 @@ else
EXEEXT=
getreturncode :
getret $(COMMAND) !> $(FILE).log !2>$(FILE).log
getret $(COMMAND) > $(FILE).log 2>$(FILE).log
cp retcode $(FILE).$(RESEXT)
@echo Return code of $(FILE) is $(cat retcode)
@echo "Return code of $(FILE) is $(cat retcode)"
endif
@ -43,12 +43,12 @@ endif
ifeq ($(RETVAL),0)
testsuccess:
@echo Test for $(FILE) success (compiles)
@echo Test for $(FILE) success (compiles) >>log
@echo "Test for $(FILE) success (compiles)"
@echo "Test for $(FILE) success (compiles)" >>log
else
testsuccess:
@echo Test for $(FILE) fails (does not compile) error $(RETVAL)
@echo Test for $(FILE) fails (does not compile) error $(RETVAL)>>log
@echo "Test for $(FILE) fails (does not compile) error $(RETVAL)"
@echo "Test for $(FILE) fails (does not compile) error $(RETVAL)" >>log
@echo $(FILE) >> ts_fail
@echo $(FILE) >> faillist
endif
@ -65,17 +65,17 @@ endif
ifeq ($(EXERETVAL),0)
testexecsuccess:
@echo Test for exec $(FILE) success (runs without error)
@echo Test for $(FILE) success (runs without error) >>log
@echo "Test for exec $(FILE) success (runs without error)"
@echo "Test for $(FILE) success (runs without error)" >>log
else
testexecsuccess:
@echo Test for exec $(FILE) fails exec error $(EXERETVAL)
@echo Test for exec $(FILE) fails exec error $(EXERETVAL)>>log
@echo "Test for exec $(FILE) fails exec error $(EXERETVAL)"
@echo "Test for exec $(FILE) fails exec error $(EXERETVAL)" >>log
endif
ifeq ($(wildcard $(FILE)$(EXEEXT)*),$(FILE)$(EXEEXT))
testexec:
@echo Testing $(FILE)$(EXEEXT)
@echo "Testing $(FILE)$(EXEEXT)"
ifdef NOREDIR
getret $(FILE)$(EXEEXT)
else
@ -85,7 +85,7 @@ endif
$(MAKE) testexecsuccess 'FILE=$(FILE)' 'EXCFILE=$(FILE).exc'
else
testexec:
@echo No exefile $(FILE)$(EXEEXT)
@echo "No exefile $(FILE)$(EXEEXT)"
@echo $(FILE) >> faillist
endif
@ -96,12 +96,12 @@ test_exc :
ifneq ($(RETVAL),0)
testfail:
@echo Test for $(FILE) success (does not compile) error $(RETVAL)
@echo Test for $(FILE) success (does not compile) error $(RETVAL)>> log
@echo "Test for $(FILE) success (does not compile) error $(RETVAL)"
@echo "Test for $(FILE) success (does not compile) error $(RETVAL)" >> log
else
testfail:
@echo Test for $(FILE) fails (does compile and should not)
@echo Test for $(FILE) fails (does compile and should not) >> log
@echo "Test for $(FILE) fails (does compile and should not)"
@echo "Test for $(FILE) fails (does compile and should not)" >> log
@echo $(FILE) >> tf_fail
@echo $(FILE) >> faillist
endif
@ -219,8 +219,13 @@ info :
@echo created behave like the should
@echo run \'make tesiexec\' to test executables
@echo that require interactive mode
#
# $Log$
# Revision 1.12 1999-01-19 18:01:43 pierre
# Revision 1.1 1999-01-25 20:23:04 peter
# * linux updates
#
# Revision 1.12 1999/01/19 18:01:43 pierre
# local change removed
#
# Revision 1.11 1999/01/19 17:34:01 pierre
@ -254,4 +259,3 @@ info :
# Revision 1.3 1998/10/21 12:12:09 pierre
# Log inserted
#

View File

@ -1,4 +1,4 @@
{$OPT= -Tamiga}
{ $OPT= -Tamiga }
unit tbs0102;
interface

View File

@ -1,5 +1,8 @@
{$ifdef go32v2}
uses
dpmiexcp;
{$endif}
{ Two cardinal type bugs }
var
c : cardinal;

View File

@ -10,10 +10,11 @@
uses linux;
{$endif linux}
function our_sig(l : longint) : longint;
function our_sig(l : longint) : longint;{$ifdef linux}cdecl;{$endif}
begin
{ If we land here the program works correctly !! }
Writeln('Bound check error signal recieved');
our_sig:=0;
Halt(0);
end;
@ -21,7 +22,7 @@ Var
Sel: Word;
v: longint;
Begin
Signal(SIGSEGV,our_sig);
Signal(SIGSEGV,signalhandler(our_sig));
v:=$00ffffff;
Sel:=word(v);
writeln(sel);

View File

@ -3,8 +3,11 @@
Program Test1;
{$ifdef go32v2}
uses
dpmiexcp;
{$endif}
type
myObject = object
constructor init;

View File

@ -1,5 +1,5 @@
{$I386_INTEL}
begin
{$asmmode intel}
asm
SHRD [ESI-8], EAX, CL
end;

View File

@ -1,8 +1,7 @@
{$I386_INTEL}
{ Compile with -Rintel switch }
var
l : longint;
begin
{$asmmode intel}
{ problem here is that l is replaced by BP-offset }
{ relative to stack, and the parser thinks all wrong }
{ because of this. }

View File

@ -1,4 +1,4 @@
{ $OPT=-Cr }
{ $OPT=-St -Cr }
program test;
{$ifdef go32v2}

View File

@ -1,3 +1,4 @@
{$mode objfpc}
type
to1 = class
function GetCaps1 : Longint;virtual;abstract;

View File

@ -36,7 +36,7 @@ var x : array[0..max-1] of longint;
begin
{$ifdef FPC}
{$ifdef go32v2}
gm:=G640x400x256;
gd:=$ff;
{$else }
@ -130,7 +130,10 @@ end.
{
$Log$
Revision 1.2 1998-11-23 23:44:52 pierre
Revision 1.3 1999-01-25 20:23:13 peter
* linux updates
Revision 1.2 1998/11/23 23:44:52 pierre
+ several bugs converted
}

View File

@ -4,7 +4,44 @@
Program to test string functions and speed of the functions
}
program TestStr;
{$ifdef timer}
uses Timer;
{$else}
type
TTimer = Object
TotalMSec,
StartMSec : longint;
constructor init;
procedure reset;
procedure start;
procedure stop;
Function MSec:longint;
end;
procedure TTimer.Reset;
begin
end;
procedure TTimer.Start;
begin
end;
procedure TTimer.Stop;
begin
end;
Function TTimer.MSec:longint;
begin
MSec:=0;
end;
Constructor TTimer.Init;
begin
end;
{$endif}
const
TestSize=10; {Use at least 10 for reasonable results}
@ -22,7 +59,6 @@ var
MixBen : BenType;
t : TTimer;
function TestOK:boolean;
Const
TestStr: string[22]='HELLO, THIS IS A TEST ';
@ -87,7 +123,7 @@ procedure TestSpeed(Row,Len:byte);
var
l : longint;
hstr,
OrgStr : string;
OrgStr : string[10];
begin
HeadBen[Row]:=Len;
OrgStr:='';