Browse Source

* fixed some tabs

peter 20 years ago
parent
commit
9ba429a6e2
1 changed files with 14 additions and 11 deletions
  1. 14 11
      compiler/nadd.pas

+ 14 - 11
compiler/nadd.pas

@@ -898,9 +898,9 @@ implementation
 
 
                  { When there is a signed type we convert to signed int.
                  { When there is a signed type we convert to signed int.
                    Otherwise (both are unsigned) we keep the result also unsigned.
                    Otherwise (both are unsigned) we keep the result also unsigned.
-		   Exception is substraction, that also gives an signed result }
+                   Exception is substraction, that also gives an signed result }
                  if (nodetype=subn) or
                  if (nodetype=subn) or
-		    (is_signed(ld) or is_signed(rd)) then
+                    (is_signed(ld) or is_signed(rd)) then
                    begin
                    begin
                      inserttypeconv(right,sinttype);
                      inserttypeconv(right,sinttype);
                      inserttypeconv(left,sinttype);
                      inserttypeconv(left,sinttype);
@@ -1065,7 +1065,7 @@ implementation
            Note: Must be done after pointerdef+pointerdef has been checked, else
            Note: Must be done after pointerdef+pointerdef has been checked, else
            pchar is converted to string }
            pchar is converted to string }
          else if (rd.deftype=stringdef) or
          else if (rd.deftype=stringdef) or
-	         (ld.deftype=stringdef) or
+                 (ld.deftype=stringdef) or
                  ((is_pchar(rd) or is_chararray(rd) or is_char(rd) or is_open_chararray(rd) or
                  ((is_pchar(rd) or is_chararray(rd) or is_char(rd) or is_open_chararray(rd) or
                    is_pwidechar(rd) or is_widechararray(rd) or is_widechar(rd) or is_open_widechararray(rd)) and
                    is_pwidechar(rd) or is_widechararray(rd) or is_widechar(rd) or is_open_widechararray(rd)) and
                   (is_pchar(ld) or is_chararray(ld) or is_char(ld) or is_open_chararray(ld) or
                   (is_pchar(ld) or is_chararray(ld) or is_char(ld) or is_open_chararray(ld) or
@@ -1079,31 +1079,31 @@ implementation
                    is_pwidechar(ld) or is_widechararray(ld) or is_widechar(ld) or is_open_widechararray(ld) then
                    is_pwidechar(ld) or is_widechararray(ld) or is_widechar(ld) or is_open_widechararray(ld) then
                   strtype:= st_widestring
                   strtype:= st_widestring
                 else
                 else
-		  if is_ansistring(rd) or is_ansistring(ld) or
+                  if is_ansistring(rd) or is_ansistring(ld) or
                      ((cs_ansistrings in aktlocalswitches) and
                      ((cs_ansistrings in aktlocalswitches) and
                      //todo: Move some of this to longstring's then they are implemented?
                      //todo: Move some of this to longstring's then they are implemented?
                       (
                       (
-		       is_pchar(rd) or (is_chararray(rd) and (rd.size > 255)) or is_open_chararray(rd) or
+                       is_pchar(rd) or (is_chararray(rd) and (rd.size > 255)) or is_open_chararray(rd) or
                        is_pchar(ld) or (is_chararray(ld) and (ld.size > 255)) or is_open_chararray(ld)
                        is_pchar(ld) or (is_chararray(ld) and (ld.size > 255)) or is_open_chararray(ld)
                       )
                       )
                      ) then
                      ) then
                     strtype:= st_ansistring
                     strtype:= st_ansistring
                 else
                 else
-		  if is_longstring(rd) or is_longstring(ld) then
+                  if is_longstring(rd) or is_longstring(ld) then
                     strtype:= st_longstring
                     strtype:= st_longstring
                 else
                 else
-		  begin
+                  begin
                     {$warning todo: add a warning/hint here if one converting a too large array}
                     {$warning todo: add a warning/hint here if one converting a too large array}
                     { nodes is PChar, array [with size > 255] or OpenArrayOfChar.
                     { nodes is PChar, array [with size > 255] or OpenArrayOfChar.
                       Note: Delphi halts with error if "array [0..xx] of char"
                       Note: Delphi halts with error if "array [0..xx] of char"
                            is assigned to ShortString and string length is less
                            is assigned to ShortString and string length is less
                            then array size }
                            then array size }
                     strtype:= st_shortstring;
                     strtype:= st_shortstring;
-		  end;
+                  end;
 
 
                 // Now convert nodes to common string type
                 // Now convert nodes to common string type
-		case strtype of
-		  st_widestring :
+                case strtype of
+                  st_widestring :
                     begin
                     begin
                       if not(is_widestring(rd)) then
                       if not(is_widestring(rd)) then
                         inserttypeconv(right,cwidestringtype);
                         inserttypeconv(right,cwidestringtype);
@@ -2071,7 +2071,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.135  2005-01-16 11:13:40  peter
+  Revision 1.136  2005-01-16 11:56:37  peter
+    * fixed some tabs
+
+  Revision 1.135  2005/01/16 11:13:40  peter
     * ord-ord always gives a signed result
     * ord-ord always gives a signed result
 
 
   Revision 1.134  2005/01/10 22:10:26  peter
   Revision 1.134  2005/01/10 22:10:26  peter