kayprish/cirilisp
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Поправљена беспотребна дупликација стринга у ридлајн функцији

Browse source
This commit is contained in:
kappa 2019-01-15 00:33:54 +01:00
parent 4a6944eed4
commit bed3e772d2
2 changed files with 5 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Makefile
View file

@ -1,14 +1,14 @@
# cirilisp - компајлер за ћирилични дијалекат лиспа # cirilisp - компајлер за ћирилични дијалекат лиспа
# ћирилисп верзија # ћирилисп верзија
VERSION = 0.2 VERSION = 0.5
# локација за инсталацију # локација за инсталацију
PREFIX = /usr/local PREFIX = /usr/local
# флегови за C компајлер и линкер # флегови за C компајлер и линкер
CFLAGS = -g -std=c99 -pedantic -Wall -O0 # CFLAGS = -g -std=c99 -pedantic -Wall -O0
# CFLAGS = -std=c99 -pedantic -Wall -O1 CFLAGS = -std=c99 -pedantic -Wall -O1
LDFLAGS = -lm -lc LDFLAGS = -lm -lc
CC = cc CC = cc

6
read.c
View file

@ -112,13 +112,11 @@ char *readline()
return NULL; return NULL;
} }
char *cpy = malloc(strlen(buffer)+1); buffer[strlen(buffer)-1] = '\0';
strcpy(cpy, buffer);
cpy[strlen(cpy)-1] = '\0';
/* Уклања завршни њу-лајн или ЕОФ у стрингу /* Уклања завршни њу-лајн или ЕОФ у стрингу
* и копира стринг на ново место */ * и копира стринг на ново место */
return cpy; return buffer;
} }
void append(token **head, token *tail) void append(token **head, token *tail)