Browse Source

* added missing then, Carl did you really a make fullcycle :) ?

florian 23 years ago
parent
commit
fbbaf36800
1 changed files with 8 additions and 5 deletions
  1. 8 5
      compiler/ncgutil.pas

+ 8 - 5
compiler/ncgutil.pas

@@ -1248,8 +1248,8 @@ function returns in a register and the caller receives it in an other one}
           therefore if the context must be saved, do it before
           therefore if the context must be saved, do it before
           the actual call to the profile code
           the actual call to the profile code
         }
         }
-        if (cs_profile in aktmoduleswitches) 
-         and not(po_assembler in aktprocdef.procoptions) 
+        if (cs_profile in aktmoduleswitches)
+         and not(po_assembler in aktprocdef.procoptions)
          and not(inlined) then
          and not(inlined) then
           begin
           begin
             { non-win32 can call mcout even in main }
             { non-win32 can call mcout even in main }
@@ -1480,7 +1480,7 @@ function returns in a register and the caller receives it in an other one}
 {$ifndef m68k}
 {$ifndef m68k}
           { give a warning if the limit of local variables is reached }
           { give a warning if the limit of local variables is reached }
           if stackframe > maxlocalsize then
           if stackframe > maxlocalsize then
-            Message(cg_w_localsize_too_big); 
+            Message(cg_w_localsize_too_big);
 {$endif}
 {$endif}
 {$ifndef powerpc}
 {$ifndef powerpc}
            { at least for the ppc this applies always, so this code isn't usable (FK) }
            { at least for the ppc this applies always, so this code isn't usable (FK) }
@@ -1754,7 +1754,7 @@ function returns in a register and the caller receives it in an other one}
                { give a warning if the limit of parameters allowed for
                { give a warning if the limit of parameters allowed for
                  certain processors is reached.
                  certain processors is reached.
                }
                }
-               if (parasize > maxparasize) 
+               if (parasize > maxparasize) then
                  Message(cg_w_parasize_too_big);
                  Message(cg_w_parasize_too_big);
 {$endif}
 {$endif}
                cg.g_return_from_proc(list,parasize);
                cg.g_return_from_proc(list,parasize);
@@ -1902,7 +1902,10 @@ function returns in a register and the caller receives it in an other one}
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.69  2002-12-03 22:13:39  carl
+  Revision 1.70  2002-12-05 14:39:21  florian
+    * added missing then, Carl did you really a make fullcycle :) ?
+
+  Revision 1.69  2002/12/03 22:13:39  carl
      * bugfix of problems with profile code which clobbers some registers
      * bugfix of problems with profile code which clobbers some registers
 
 
   Revision 1.68  2002/12/01 22:06:59  carl
   Revision 1.68  2002/12/01 22:06:59  carl