tests/basic/string-lit-2.sp
author Asher Baker <asherkin@gmail.com>
Mon Jun 10 01:04:43 2013 +0100 (2013-06-10)
changeset 263 ba85a47ee414
parent 236 072f1114ea5d
permissions -rw-r--r--
Normalise line endings.
asherkin@263
     1
native PrintNum(num);
asherkin@263
     2
asherkin@263
     3
f(x)
asherkin@263
     4
{
asherkin@263
     5
    new char:str1[];
asherkin@263
     6
    new char:str2[4];
asherkin@263
     7
asherkin@263
     8
    str1 = "hello";
asherkin@263
     9
    str2 = "bye";
asherkin@263
    10
asherkin@263
    11
    // Make sure modifying the string doesn't modify the
asherkin@263
    12
    // canonical literals.
asherkin@263
    13
    if (x) {
asherkin@263
    14
        str1[1] = 65;
asherkin@263
    15
        str2[1] = 68;
asherkin@263
    16
    }
asherkin@263
    17
asherkin@263
    18
    PrintNum(str1[1]);
asherkin@263
    19
    PrintNum(str2[1]);
asherkin@263
    20
}
asherkin@263
    21
asherkin@263
    22
public main()
asherkin@263
    23
{
asherkin@263
    24
    f(1);
asherkin@263
    25
    f(0);
asherkin@263
    26
}