paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 18:39:19 +02: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/tb0486.pp svneol=native#text/plain
tests/tbs/tb0487.pp svneol=native#text/plain tests/tbs/tb0487.pp svneol=native#text/plain
tests/tbs/tb0488a.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/tb0489.pp svneol=native#text/plain
tests/tbs/tb0490.pp svneol=native#text/plain tests/tbs/tb0490.pp svneol=native#text/plain
tests/tbs/tb0491.pp svneol=native#text/plain tests/tbs/tb0491.pp svneol=native#text/plain
tests/tbs/tb0492.pp svneol=native#text/plain tests/tbs/tb0492.pp svneol=native#text/plain
tests/tbs/tb0493.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/tb0495.pp svneol=native#text/plain
tests/tbs/tb0496.pp svneol=native#text/plain tests/tbs/tb0496.pp svneol=native#text/plain
tests/tbs/tb0497a.pp -text tests/tbs/tb0497a.pp svneol=native#text/plain
tests/tbs/tb0497b.pp -text tests/tbs/tb0497b.pp svneol=native#text/plain
tests/tbs/tb0497c.pp -text tests/tbs/tb0497c.pp svneol=native#text/plain
tests/tbs/tb0498.pp svneol=native#text/plain tests/tbs/tb0498.pp svneol=native#text/plain
tests/tbs/tb0499.pp svneol=native#text/plain tests/tbs/tb0499.pp svneol=native#text/plain
tests/tbs/tb0500.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/tb0523.pp svneol=native#text/plain
tests/tbs/tb0524.pp svneol=native#text/x-pascal tests/tbs/tb0524.pp svneol=native#text/x-pascal
tests/tbs/tb0525.pp svneol=native#text/plain 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/tb0527.pp svneol=native#text/plain
tests/tbs/tb0528.pp svneol=native#text/x-pascal 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/tb0530.pp svneol=native#text/plain
tests/tbs/tb0531.pp svneol=native#text/plain tests/tbs/tb0531.pp svneol=native#text/plain
tests/tbs/tb0532.pp svneol=native#text/x-pascal 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. { Checks whether the %x format string supports qwords.
This is a variation of tb0488a This is a variation of tb0488a
} }
uses {$ifdef unix}cwstring, {$endif}SysUtils,erroru; uses {$ifdef unix}cwstring, {$endif}SysUtils,erroru;
procedure Check(a,b:ansistring); procedure Check(a,b:ansistring);
begin begin
if a<>b then if a<>b then
begin begin
writeln(a,' should be equal to ',b); writeln(a,' should be equal to ',b);
error; error;
end; end;
end; end;
begin begin
check(WideFormat('%x', [$FFFFFFF]),'FFFFFFF'); check(WideFormat('%x', [$FFFFFFF]),'FFFFFFF');
end. end.

32
tests/tbs/tb0526.pp
View File

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