paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 09:19:39 +01: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 }
{ %target=go32v2,win32 }
{ %target=go32v2 }
{ %opt=-Sc }
VAR s : ansistring;
BEGIN

2
tests/webtbs/tw2883.pp
View File

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

2
tests/webtbs/tw2899.pp
View File

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

1
tests/webtbs/tw2904.pp
View File

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

12
tests/webtbs/tw2908.pp
View File

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