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

* fixed compile issues

Browse Source
This commit is contained in:
peter 2004-01-23 15:20:42 +00:00
parent 8171ad2e10
commit 883bdeff12
5 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/webtbf/tw2242.pp
View File

@ -1,5 +1,5 @@
{ %fail } { %fail }
{ %target=go32v2,win32 } { %target=go32v2 }
{ %opt=-Sc } { %opt=-Sc }
VAR s : ansistring; VAR s : ansistring;
BEGIN BEGIN

2
tests/webtbs/tw2883.pp
View File

@ -3,6 +3,8 @@
{ e-mail: Den.Jean@pandora.be } { e-mail: Den.Jean@pandora.be }
unit tw2883; unit tw2883;
{$mode objfpc}
interface interface
type TRec = record type TRec = record
Field1 : smallint; Field1 : smallint;

2
tests/webtbs/tw2899.pp
View File

@ -22,7 +22,7 @@ begin
writeln('Before NestedProc: "',s,'"'); writeln('Before NestedProc: "',s,'"');
NestedProc(s); NestedProc(s);
writeln('After NestedProc: "',s,'"'); // s is now emtpy writeln('After NestedProc: "',s,'"'); // s is now emtpy
if s<>'WhatAStrangeBug' then if s<>'AStrangeBug' then
halt(1); halt(1);
end; end;

1
tests/webtbs/tw2904.pp
View File

@ -3,6 +3,7 @@
{ e-mail: clootie@ixbt.com } { e-mail: clootie@ixbt.com }
program Project2; program Project2;
{$mode objfpc} {$mode objfpc}
{$goto on}
{$APPTYPE CONSOLE} {$APPTYPE CONSOLE}
uses SysUtils; uses SysUtils;

8
tests/webtbs/tw2908.pp
View File

@ -1,10 +1,16 @@
{ %cpu=i386 }
{ Source provided for Free Pascal Bug Report 2908 } { Source provided for Free Pascal Bug Report 2908 }
{ Submitted by "marcov (gory bugs department)" on 2004-01-19 } { Submitted by "marcov (gory bugs department)" on 2004-01-19 }
{ e-mail: } { e-mail: }
{$mode delphi} {$mode delphi}
procedure p;
asm asm
//and [eax],$ff0000000 and [eax],$ff0000000
and [edx + ebx + 3], $0000ffff and [edx + ebx + 3], $0000ffff
and [edx + 3], $00ffffff and [edx + 3], $00ffffff
end;
begin
end. end.