* some cleanup, comments added

rtl/morphos/prt0.as

@@ -3,7 +3,7 @@
 */
 /*
    This file is part of the Free Pascal run time library.
-   Copyright (c) 2004 by Karoly Balogh for Genesi Sarl. 
+   Copyright (c) 2004 by Karoly Balogh for Genesi Sarl
 
    Thanks for Martin 'MarK' Kuchinka <kuchinka@volny.cz>
    for his help.
@@ -38,8 +38,10 @@ _start:
         stw 3,56(2)
         lwz 3,100(2)
         mtlr 3
-   li  3,-684
+        li 3,-684              /* AllocVec */
         blrl
+        /* FIXME: check for successful allocation! */
+
         lis 4,stackArea@ha
         stw 3,stackArea@l(4)
 
@@ -62,7 +64,7 @@ _start:
         stw 3,40(2)
         lwz 4,100(2)
         mtlr 4
-   li 3,-804
+        li 3,-804              /* NewPPCStackSwap */
         blrl
 
         /* Freeing up stack area */
@@ -73,7 +75,7 @@ _start:
         stw 3,56(2)
         lwz 3,100(2)
         mtlr 3
-   li 3,-690
+        li 3,-690              /* FreeVec */
         blrl
 
         /* Setting return value */
@@ -87,7 +89,6 @@ _start:
         blr
 
 _initproc:
-   /* Save Linkregister */
         stwu 1,-128(1)
         mflr 0
         stw 13,52(1)
@@ -197,7 +198,10 @@ __abox__:
 
 /*
   $Log$
-  Revision 1.8  2004-06-05 19:25:12  karoly
+  Revision 1.9  2004-06-06 12:47:57  karoly
+    * some cleanup, comments added
+
+  Revision 1.8  2004/06/05 19:25:12  karoly
     + reworked to support resizing of stack
 
   Revision 1.7  2004/05/13 01:15:42  karoly