* properties fixed

git-svn-id: trunk@7084 -

.gitattributes

@@ -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

tests/tbs/tb0488b.pp

@@ -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.

tests/tbs/tb0526.pp

@@ -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.