paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 15:31:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

* properties fixed

Browse Source 
git-svn-id: trunk@7084 -
This commit is contained in:
florian 2007-04-09 19:04:51 +00:00
parent 6721e0d61c
commit 011993a5f1
3 changed files with 41 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
.gitattributes vendored
View File

@ -6227,18 +6227,18 @@ tests/tbs/tb0485.pp svneol=native#text/plain
tests/tbs/tb0486.pp svneol=native#text/plain
tests/tbs/tb0487.pp svneol=native#text/plain
tests/tbs/tb0488a.pp svneol=native#text/plain
tests/tbs/tb0488b.pp -text
tests/tbs/tb0488b.pp svneol=native#text/plain
tests/tbs/tb0489.pp svneol=native#text/plain
tests/tbs/tb0490.pp svneol=native#text/plain
tests/tbs/tb0491.pp svneol=native#text/plain
tests/tbs/tb0492.pp svneol=native#text/plain
tests/tbs/tb0493.pp svneol=native#text/plain
tests/tbs/tb0494.pp -text
tests/tbs/tb0494.pp svneol=native#text/plain
tests/tbs/tb0495.pp svneol=native#text/plain
tests/tbs/tb0496.pp svneol=native#text/plain
tests/tbs/tb0497a.pp -text
tests/tbs/tb0497b.pp -text
tests/tbs/tb0497c.pp -text
tests/tbs/tb0497a.pp svneol=native#text/plain
tests/tbs/tb0497b.pp svneol=native#text/plain
tests/tbs/tb0497c.pp svneol=native#text/plain
tests/tbs/tb0498.pp svneol=native#text/plain
tests/tbs/tb0499.pp svneol=native#text/plain
tests/tbs/tb0500.pp svneol=native#text/plain
@ -6267,9 +6267,10 @@ tests/tbs/tb0522.pp svneol=native#text/plain
tests/tbs/tb0523.pp svneol=native#text/plain
tests/tbs/tb0524.pp svneol=native#text/x-pascal
tests/tbs/tb0525.pp svneol=native#text/plain
tests/tbs/tb0526.pp -text
tests/tbs/tb0526.pp svneol=native#text/plain
tests/tbs/tb0527.pp svneol=native#text/plain
tests/tbs/tb0528.pp svneol=native#text/x-pascal
tests/tbs/tb0529.pp svneol=native#text/plain
tests/tbs/tb0530.pp svneol=native#text/plain
tests/tbs/tb0531.pp svneol=native#text/plain
tests/tbs/tb0532.pp svneol=native#text/x-pascal

36
tests/tbs/tb0488b.pp
View File

@ -1,18 +1,18 @@
{ Checks whether the %x format string supports qwords.
This is a variation of tb0488a
}
uses {$ifdef unix}cwstring, {$endif}SysUtils,erroru;
procedure Check(a,b:ansistring);
begin
if a<>b then
begin
writeln(a,' should be equal to ',b);
error;
end;
end;
begin
check(WideFormat('%x', [$FFFFFFF]),'FFFFFFF');
end.
{ Checks whether the %x format string supports qwords.
This is a variation of tb0488a
}
uses {$ifdef unix}cwstring, {$endif}SysUtils,erroru;
procedure Check(a,b:ansistring);
begin
if a<>b then
begin
writeln(a,' should be equal to ',b);
error;
end;
end;
begin
check(WideFormat('%x', [$FFFFFFF]),'FFFFFFF');
end.

32
tests/tbs/tb0526.pp
View File

@ -1,16 +1,16 @@
{%norun}
{$mode objfpc}
type
TMyClass = class
protected
Field1 {$IFDEF DUMMY}, Field2 {$ENDIF} : Boolean;
procedure Proc;
end;
procedure TMyClass.Proc;
begin
Field1:=True;
end;
begin
end.
{%norun}
{$mode objfpc}
type
TMyClass = class
protected
Field1 {$IFDEF DUMMY}, Field2 {$ENDIF} : Boolean;
procedure Proc;
end;
procedure TMyClass.Proc;
begin
Field1:=True;
end;
begin
end.