* as/link/lkar.h: sgetl and sputl are independent of endianness

[fw/sdcc] / device / lib / _strtok.c

diff --git a/device/lib/_strtok.c b/device/lib/_strtok.c
index 82a09c3aaeeec2e3afe0be347d884721eebd9fa1..ac4f68c9508fe3833120710c45c47314443ba24f 100644 (file)
--- a/device/lib/_strtok.c
+++ b/device/lib/_strtok.c
@@ -24,8 +24,8 @@
 #include "string.h" 
 
 #if defined(SDCC_MODEL_LARGE) || defined (SDCC_MODEL_FLAT24)
-#pragma NOINDUCTION
-#pragma NOINVARIANT
+#pragma noinduction
+#pragma noinvariant
 #endif
 
 char * strtok (
@@ -37,7 +37,16 @@ char * strtok (
 
        if ( str )
                s = str ;
+       if ( !s )
+               return NULL;
 
+       while (*s) {
+               if (strchr(control,*s))
+                       s++;
+               else
+                       break;
+       }
+       
        s1 = s ;
 
        while (*s) {
@@ -47,6 +56,12 @@ char * strtok (
                }
                s++ ;
        }
-       return (NULL);
+
+       s = NULL;
+
+       if (*s1)
+               return s1;
+       else
+               return NULL;
 }