Techwizz/Gobligine
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

More cleanup

Browse source
This commit is contained in:
jsalmon3 2003-09-27 03:00:55 +00:00
parent 07b41ba31d
commit c5acfc1bb5
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/stratagus/script_missile.cpp
View file

@ -270,7 +270,7 @@ local SCM CclMissile(SCM list)
value = gh_car(list); value = gh_car(list);
list = gh_cdr(list); list = gh_cdr(list);
str = gh_scm2newstr(value, NULL); str = gh_scm2newstr(value, NULL);
missile->SourceUnit = UnitSlots[strtol (str + 1, 0, 16)]; missile->SourceUnit = UnitSlots[strtol(str + 1, 0, 16)];
free(str); free(str);
++missile->SourceUnit->Refs; ++missile->SourceUnit->Refs;
} else if (gh_eq_p(value, gh_symbol2scm("target"))) { } else if (gh_eq_p(value, gh_symbol2scm("target"))) {
@ -278,7 +278,7 @@ local SCM CclMissile(SCM list)
value = gh_car(list); value = gh_car(list);
list = gh_cdr(list); list = gh_cdr(list);
str = gh_scm2newstr(value, NULL); str = gh_scm2newstr(value, NULL);
missile->TargetUnit = UnitSlots[strtol (str + 1, 0, 16)]; missile->TargetUnit = UnitSlots[strtol(str + 1, 0, 16)];
free(str); free(str);
missile->TargetUnit->Refs++; missile->TargetUnit->Refs++;
} else if (gh_eq_p(value, gh_symbol2scm("damage"))) { } else if (gh_eq_p(value, gh_symbol2scm("damage"))) {