rpl/src/instructions_d4.c - diff

Return to instructions_d4.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_d4.c between versions 1.57 and 1.79

version 1.57, 2014/07/17 08:07:20	version 1.79, 2024/01/09 07:33:50
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.19	RPL/2 (R) version 4.1.35
Copyright (C) 1989-2014 Dr. BERTRAND Joël	Copyright (C) 1989-2024 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.

Line 310 instruction_delete(struct_processus *s_e	Line 310 instruction_delete(struct_processus *s_e
return;	return;
}	}

if (alsprintf(&commande, "select count(*) from data where "	if (alsprintf(s_etat_processus, &commande,
"id = %lld", (((integer8 ) (*s_objet_indice).objet)))	"select count(*) from data where id = %lld",
< 0)	(((integer8 ) (*s_objet_indice).objet))) < 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_allocation_memoire;	d_es_allocation_memoire;
Line 377 instruction_delete(struct_processus *s_e	Line 377 instruction_delete(struct_processus *s_e
return;	return;
}	}

if (alsprintf(&commande, "delete from data where id = %lld",	if (alsprintf(s_etat_processus, &commande,
	"delete from data where id = %lld",
(((integer8 ) (*s_objet_indice).objet))) < 0)	(((integer8 ) (*s_objet_indice).objet))) < 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 441 instruction_delete(struct_processus *s_e	Line 442 instruction_delete(struct_processus *s_e
return;	return;
}	}

if (alsprintf(&commande, "select id from key where key = "	if (alsprintf(s_etat_processus, &commande,
"'{ \"%s\" }'", utf8) < 0)	"select id from key where key = '{ \"%s\" }'", utf8)
	< 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_allocation_memoire;	d_es_allocation_memoire;
Line 534 instruction_delete(struct_processus *s_e	Line 536 instruction_delete(struct_processus *s_e

free(commande);	free(commande);

if (alsprintf(&commande, "delete from data where key_id = %lld",	if (alsprintf(s_etat_processus, &commande,
lecture_i64) < 0)	"delete from data where key_id = %lld", lecture_i64)
	< 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_allocation_memoire;	d_es_allocation_memoire;
Line 565 instruction_delete(struct_processus *s_e	Line 568 instruction_delete(struct_processus *s_e

free(commande);	free(commande);

if (alsprintf(&commande, "delete from key where id = %lld",	if (alsprintf(s_etat_processus, &commande,
lecture_i64) < 0)	"delete from key where id = %lld", lecture_i64) < 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_allocation_memoire;	d_es_allocation_memoire;

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.57
changed lines
	Added in v.1.79